From 6652f7d82be5d4d3dba0eb73de315bda1a05b5c7 Mon Sep 17 00:00:00 2001 From: "Matthijs S. Berends" Date: Fri, 4 Jan 2019 09:49:42 +0100 Subject: [PATCH] fix warnings --- .Rbuildignore | 1 + .gitignore | 1 + .gitlab-ci.yml | 5 +- R/globals.R | 5 + R/itis.R | 3 +- docs/articles/AMR.html | 836 +++++++++--------- .../AMR_files/figure-html/plot 1-1.png | Bin 31718 -> 31700 bytes .../AMR_files/figure-html/plot 3-1.png | Bin 24204 -> 24216 bytes .../AMR_files/figure-html/plot 4-1.png | Bin 66583 -> 66604 bytes .../AMR_files/figure-html/plot 5-1.png | Bin 48854 -> 48872 bytes docs/articles/freq.html | 68 +- docs/index.html | 26 +- docs/news/index.html | 203 +---- docs/pkgdown.yml | 2 +- docs/reference/age_groups.html | 8 +- docs/reference/as.mo.html | 6 +- docs/reference/as.rsi.html | 4 +- docs/reference/count.html | 14 +- docs/reference/eucast_rules.html | 39 +- docs/reference/first_isolate.html | 12 +- docs/reference/freq.html | 16 +- docs/reference/ggplot_rsi.html | 50 +- docs/reference/guess_ab.html | 293 ++++++ docs/reference/itis.html | 3 +- docs/reference/key_antibiotics.html | 22 +- docs/reference/like.html | 2 +- docs/reference/mdro.html | 39 +- docs/reference/portion.html | 24 +- docs/reference/resistance_predict.html | 22 +- docs/sitemap.xml | 3 + man/itis.Rd | 3 +- 31 files changed, 948 insertions(+), 762 deletions(-) create mode 100644 docs/reference/guess_ab.html diff --git a/.Rbuildignore b/.Rbuildignore index d20eb122..1d616f7b 100755 --- a/.Rbuildignore +++ b/.Rbuildignore @@ -13,6 +13,7 @@ ^doc$ ^docs$ ^git.sh$ +^gitmerge.sh$ ^index\.md$ ^Meta$ ^packrat/ diff --git a/.gitignore b/.gitignore index 66e5baae..abc6fc9a 100755 --- a/.gitignore +++ b/.gitignore @@ -18,5 +18,6 @@ vignettes/*.R .Rprofile ^CRAN-RELEASE$ git.sh +gitmerge.sh packrat/lib*/ packrat/src/ diff --git a/.gitlab-ci.yml b/.gitlab-ci.yml index e24afe1d..e7873c2a 100644 --- a/.gitlab-ci.yml +++ b/.gitlab-ci.yml @@ -41,8 +41,8 @@ before_script: cache: key: "$CI_COMMIT_REF_SLUG" paths: - - /usr/local/lib/R/ - - /usr/lib/R/ + - /usr/local/lib/R/* + - /usr/lib/R/* R 3: stage: build @@ -55,6 +55,7 @@ R 3: - R CMD build . --no-build-vignettes --no-manual - PKG_FILE_NAME=$(ls -1t *.tar.gz | head -n 1) - R CMD check "${PKG_FILE_NAME}" --no-build-vignettes --no-manual --as-cran + - Rscript -e 'print(.libPaths())' artifacts: paths: - '*.Rcheck/*' diff --git a/R/globals.R b/R/globals.R index 9c131ca4..aa0d6ae2 100755 --- a/R/globals.R +++ b/R/globals.R @@ -20,6 +20,11 @@ # ==================================================================== # globalVariables(c(".", + "atc", + "certe", + "official", + "trade_name", + "umcg", "..property", "antibiotic", "Antibiotic", diff --git a/R/itis.R b/R/itis.R index 3b72285d..6b3e78fa 100644 --- a/R/itis.R +++ b/R/itis.R @@ -35,7 +35,8 @@ #' @examples #' # Get a note when a species was renamed #' mo_shortname("Chlamydia psittaci") -#' # Note: 'Chlamydia psittaci' (Page, 1968) was renamed 'Chlamydophila psittaci' (Everett et al., 1999) +#' # Note: 'Chlamydia psittaci' (Page, 1968) was renamed +#' # 'Chlamydophila psittaci' (Everett et al., 1999) #' # [1] "C. psittaci" #' #' # Get any property from the entire taxonomic tree for all included species diff --git a/docs/articles/AMR.html b/docs/articles/AMR.html index f585914e..8b3a9a1a 100644 --- a/docs/articles/AMR.html +++ b/docs/articles/AMR.html @@ -179,7 +179,7 @@ -

Note: values on this page will change with every website update since they are based on randomly created values and the page was written in RMarkdown. However, the methodology remains unchanged. This page was generated on 02 January 2019.

+

Note: values on this page will change with every website update since they are based on randomly created values and the page was written in RMarkdown. However, the methodology remains unchanged. This page was generated on 04 January 2019.

Introduction

@@ -195,21 +195,21 @@ -2019-01-02 +2019-01-04 abcd Escherichia coli S S -2019-01-02 +2019-01-04 abcd Escherichia coli S R -2019-01-02 +2019-01-04 efgh Escherichia coli R @@ -223,9 +223,9 @@ Needed R packages

As with many uses in R, we need some additional packages for AMR analysis. The most important one is dplyr, which tremendously improves the way we work with data - it allows for a very natural way of writing syntaxes in R. Another important dependency is ggplot2. This package can be used to create beautiful plots in R.

Our AMR package depends on these packages and even extends their use and functions.

-
library(dplyr)   # the data science package
-library(AMR)     # this package, to simplify and automate AMR analysis
-library(ggplot2) # for appealing plots
+
library(dplyr)   # the data science package
+library(AMR)     # this package, to simplify and automate AMR analysis
+library(ggplot2) # for appealing plots

@@ -236,51 +236,51 @@

Patients

To start with patients, we need a unique list of patients.

-
patients <- unlist(lapply(LETTERS, paste0, 1:10))
+
patients <- unlist(lapply(LETTERS, paste0, 1:10))

The LETTERS object is available in R - it’s a vector with 26 characters: A to Z. The patients object we just created is now a vector of length 260, with values (patient IDs) varying from A1 to Z10. Now we we also set the gender of our patients, by putting the ID and the gender in a table:

-
patients_table <- data.frame(patient_id = patients,
-                             gender = c(rep("M", 135),
-                                        rep("F", 125)))
+
patients_table <- data.frame(patient_id = patients,
+                             gender = c(rep("M", 135),
+                                        rep("F", 125)))

The first 135 patient IDs are now male, the other 125 are female.

Dates

Let’s pretend that our data consists of blood cultures isolates from 1 January 2010 until 1 January 2018.

-
dates <- seq(as.Date("2010-01-01"), as.Date("2018-01-01"), by = "day")
+
dates <- seq(as.Date("2010-01-01"), as.Date("2018-01-01"), by = "day")

This dates object now contains all days in our date range.

Microorganisms

For this tutorial, we will uses four different microorganisms: Escherichia coli, Staphylococcus aureus, Streptococcus pneumoniae, and Klebsiella pneumoniae:

-
bacteria <- c("Escherichia coli", "Staphylococcus aureus",
-              "Streptococcus pneumoniae", "Klebsiella pneumoniae")
+
bacteria <- c("Escherichia coli", "Staphylococcus aureus",
+              "Streptococcus pneumoniae", "Klebsiella pneumoniae")

Other variables

For completeness, we can also add the hospital where the patients was admitted and we need to define valid antibmicrobial results for our randomisation:

-
hospitals <- c("Hospital A", "Hospital B", "Hospital C", "Hospital D")
-ab_interpretations <- c("S", "I", "R")
+
hospitals <- c("Hospital A", "Hospital B", "Hospital C", "Hospital D")
+ab_interpretations <- c("S", "I", "R")

Put everything together

-

Using the sample() function, we can randomly select items from all objects we defined earlier. To let our fake data reflect reality a bit, we will also approximately define the probabilities of bacteria and the antibiotic results with the prob parameter.

-
data <- data.frame(date = sample(dates, 5000, replace = TRUE),
-                   patient_id = sample(patients, 5000, replace = TRUE),
-                   hospital = sample(hospitals, 5000, replace = TRUE, prob = c(0.30, 0.35, 0.15, 0.20)),
-                   bacteria = sample(bacteria, 5000, replace = TRUE, prob = c(0.50, 0.25, 0.15, 0.10)),
-                   amox = sample(ab_interpretations, 5000, replace = TRUE, prob = c(0.60, 0.05, 0.35)),
-                   amcl = sample(ab_interpretations, 5000, replace = TRUE, prob = c(0.75, 0.10, 0.15)),
-                   cipr = sample(ab_interpretations, 5000, replace = TRUE, prob = c(0.80, 0.00, 0.20)),
-                   gent = sample(ab_interpretations, 5000, replace = TRUE, prob = c(0.92, 0.00, 0.08))
-                   )
-

Using the left_join() function from the dplyr package, we can ‘map’ the gender to the patient ID using the patients_table object we created earlier:

- +

Using the sample() function, we can randomly select items from all objects we defined earlier. To let our fake data reflect reality a bit, we will also approximately define the probabilities of bacteria and the antibiotic results with the prob parameter.

+
data <- data.frame(date = sample(dates, 5000, replace = TRUE),
+                   patient_id = sample(patients, 5000, replace = TRUE),
+                   hospital = sample(hospitals, 5000, replace = TRUE, prob = c(0.30, 0.35, 0.15, 0.20)),
+                   bacteria = sample(bacteria, 5000, replace = TRUE, prob = c(0.50, 0.25, 0.15, 0.10)),
+                   amox = sample(ab_interpretations, 5000, replace = TRUE, prob = c(0.60, 0.05, 0.35)),
+                   amcl = sample(ab_interpretations, 5000, replace = TRUE, prob = c(0.75, 0.10, 0.15)),
+                   cipr = sample(ab_interpretations, 5000, replace = TRUE, prob = c(0.80, 0.00, 0.20)),
+                   gent = sample(ab_interpretations, 5000, replace = TRUE, prob = c(0.92, 0.00, 0.08))
+                   )
+

Using the left_join() function from the dplyr package, we can ‘map’ the gender to the patient ID using the patients_table object we created earlier:

+
data <- data %>% left_join(patients_table)

The resulting data set contains 5,000 blood culture isolates. With the head() function we can preview the first 6 values of this data set:

-
head(data)
+
head(data)
@@ -295,10 +295,10 @@ - - - - + + + + @@ -306,60 +306,60 @@ - - + + + - - + - - + + - - - + + + - - - - - + + + + + - - - - - - - - - - - - - - + + + - + + + + + + + + + + + +
date
2017-03-28D2Hospital BStaphylococcus aureus2014-02-20D5Hospital AEscherichia coli R S SM
2010-06-26O32010-06-17N4 Hospital A Escherichia coli S SR SSFM
2015-12-14M82017-08-02A6 Hospital B Staphylococcus aureusSSSRIR S M
2013-02-26C7Hospital BKlebsiella pneumoniaeS2012-11-25K7Hospital AEscherichia coliI S S S M
2012-11-01Y5Hospital DEscherichia coliSSRSF
2015-04-04K10Hospital A2012-06-24G9Hospital B Escherichia coli R SRS R M
2011-05-20T7Hospital CEscherichia coliSSSSF

Now, let’s start the cleaning and the analysis!

@@ -369,7 +369,7 @@

Cleaning the data

Use the frequency table function freq() to look specifically for unique values in any variable. For example, for the gender variable:

-
data %>% freq(gender) # this would be the same: freq(data$gender)
+
data %>% freq(gender) # this would be the same: freq(data$gender)
# Frequency table of `gender` 
 # Class:   factor (numeric)  
 # Levels:  F, M  
@@ -378,67 +378,67 @@
 # 
 #      Item    Count   Percent   Cum. Count   Cum. Percent
 # ---  -----  ------  --------  -----------  -------------
-# 1    M       2,549     51.0%        2,549          51.0%
-# 2    F       2,451     49.0%        5,000         100.0%
+# 1 M 2,636 52.7% 2,636 52.7% +# 2 F 2,364 47.3% 5,000 100.0%

So, we can draw at least two conclusions immediately. From a data scientist perspective, the data looks clean: only values M and F. From a researcher perspective: there are slightly more men. Nothing we didn’t already know.

-

The data is already quite clean, but we still need to transform some variables. The bacteria column now consists of text, and we want to add more variables based on microbial IDs later on. So, we will transform this column to valid IDs. The mutate() function of the dplyr package makes this really easy:

-
data <- data %>%
-  mutate(bacteria = as.mo(bacteria))
-

We also want to transform the antibiotics, because in real life data we don’t know if they are really clean. The as.rsi() function ensures reliability and reproducibility in these kind of variables. The mutate_at() will run the as.rsi() function on defined variables:

-
data <- data %>%
-  mutate_at(vars(amox:gent), as.rsi)
+

The data is already quite clean, but we still need to transform some variables. The bacteria column now consists of text, and we want to add more variables based on microbial IDs later on. So, we will transform this column to valid IDs. The mutate() function of the dplyr package makes this really easy:

+
data <- data %>%
+  mutate(bacteria = as.mo(bacteria))
+

We also want to transform the antibiotics, because in real life data we don’t know if they are really clean. The as.rsi() function ensures reliability and reproducibility in these kind of variables. The mutate_at() will run the as.rsi() function on defined variables:

+
data <- data %>%
+  mutate_at(vars(amox:gent), as.rsi)

Finally, we will apply EUCAST rules on our antimicrobial results. In Europe, most medical microbiological laboratories already apply these rules. Our package features their latest insights on intrinsic resistance and exceptional phenotypes. Moreover, the eucast_rules() function can also apply additional rules, like forcing ampicillin = R when amoxicillin/clavulanic acid = R.

Because the amoxicillin (column amox) and amoxicillin/clavulanic acid (column amcl) in our data were generated randomly, some rows will undoubtedly contain amox = S and amcl = R, which is technically impossible. The eucast_rules() fixes this:

-
data <- eucast_rules(data, col_mo = "bacteria")
-# 
-# Rules by the European Committee on Antimicrobial Susceptibility Testing (EUCAST)
-# 
-# EUCAST Clinical Breakpoints (v8.1, 2018)
-# Enterobacteriales (Order) (no changes)
-# Staphylococcus (no changes)
-# Enterococcus (no changes)
-# Streptococcus groups A, B, C, G (no changes)
-# Streptococcus pneumoniae (364 changes)
-# Viridans group streptococci (no changes)
-# Haemophilus influenzae (no changes)
-# Moraxella catarrhalis (no changes)
-# Anaerobic Gram positives (no changes)
-# Anaerobic Gram negatives (no changes)
-# Pasteurella multocida (no changes)
-# Campylobacter jejuni and C. coli (no changes)
-# Aerococcus sanguinicola and A. urinae (no changes)
-# Kingella kingae (no changes)
-# 
-# EUCAST Expert Rules, Intrinsic Resistance and Exceptional Phenotypes (v3.1, 2016)
-# Table 1:  Intrinsic resistance in Enterobacteriaceae (303 changes)
-# Table 2:  Intrinsic resistance in non-fermentative Gram-negative bacteria (no changes)
-# Table 3:  Intrinsic resistance in other Gram-negative bacteria (no changes)
-# Table 4:  Intrinsic resistance in Gram-positive bacteria (641 changes)
-# Table 8:  Interpretive rules for B-lactam agents and Gram-positive cocci (no changes)
-# Table 9:  Interpretive rules for B-lactam agents and Gram-negative rods (no changes)
-# Table 10: Interpretive rules for B-lactam agents and other Gram-negative bacteria (no changes)
-# Table 11: Interpretive rules for macrolides, lincosamides, and streptogramins (no changes)
-# Table 12: Interpretive rules for aminoglycosides (no changes)
-# Table 13: Interpretive rules for quinolones (no changes)
-# 
-# Other rules
-# Non-EUCAST: ampicillin = R where amoxicillin/clav acid = R (403 changes)
-# Non-EUCAST: piperacillin = R where piperacillin/tazobactam = R (no changes)
-# Non-EUCAST: trimethoprim = R where trimethoprim/sulfa = R (no changes)
-# Non-EUCAST: amoxicillin/clav acid = S where ampicillin = S (231 changes)
-# Non-EUCAST: piperacillin/tazobactam = S where piperacillin = S (no changes)
-# Non-EUCAST: trimethoprim/sulfa = S where trimethoprim = S (no changes)
-# 
-# => EUCAST rules affected 4,588 out of 5,000 rows -> changed 1,942 test results.
+
data <- eucast_rules(data, col_mo = "bacteria")
+# 
+# Rules by the European Committee on Antimicrobial Susceptibility Testing (EUCAST)
+# 
+# EUCAST Clinical Breakpoints (v8.1, 2018)
+# Enterobacteriales (Order) (no changes)
+# Staphylococcus (no changes)
+# Enterococcus (no changes)
+# Streptococcus groups A, B, C, G (no changes)
+# Streptococcus pneumoniae (no changes)
+# Viridans group streptococci (no changes)
+# Haemophilus influenzae (no changes)
+# Moraxella catarrhalis (no changes)
+# Anaerobic Gram positives (no changes)
+# Anaerobic Gram negatives (no changes)
+# Pasteurella multocida (no changes)
+# Campylobacter jejuni and C. coli (no changes)
+# Aerococcus sanguinicola and A. urinae (no changes)
+# Kingella kingae (no changes)
+# 
+# EUCAST Expert Rules, Intrinsic Resistance and Exceptional Phenotypes (v3.1, 2016)
+# Table 1:  Intrinsic resistance in Enterobacteriaceae (332 changes)
+# Table 2:  Intrinsic resistance in non-fermentative Gram-negative bacteria (no changes)
+# Table 3:  Intrinsic resistance in other Gram-negative bacteria (no changes)
+# Table 4:  Intrinsic resistance in Gram-positive bacteria (658 changes)
+# Table 8:  Interpretive rules for B-lactam agents and Gram-positive cocci (no changes)
+# Table 9:  Interpretive rules for B-lactam agents and Gram-negative rods (no changes)
+# Table 10: Interpretive rules for B-lactam agents and other Gram-negative bacteria (no changes)
+# Table 11: Interpretive rules for macrolides, lincosamides, and streptogramins (no changes)
+# Table 12: Interpretive rules for aminoglycosides (no changes)
+# Table 13: Interpretive rules for quinolones (no changes)
+# 
+# Other rules
+# Non-EUCAST: ampicillin = R where amoxicillin/clav acid = R (no changes)
+# Non-EUCAST: piperacillin = R where piperacillin/tazobactam = R (no changes)
+# Non-EUCAST: trimethoprim = R where trimethoprim/sulfa = R (no changes)
+# Non-EUCAST: amoxicillin/clav acid = S where ampicillin = S (no changes)
+# Non-EUCAST: piperacillin/tazobactam = S where piperacillin = S (no changes)
+# Non-EUCAST: trimethoprim/sulfa = S where trimethoprim = S (no changes)
+# 
+# => EUCAST rules affected 1,828 out of 5,000 rows -> changed 990 test results.

Adding new variables

Now that we have the microbial ID, we can add some taxonomic properties:

-
data <- data %>% 
-  mutate(gramstain = mo_gramstain(bacteria),
-         genus = mo_genus(bacteria),
-         species = mo_species(bacteria))
+
data <- data %>% 
+  mutate(gramstain = mo_gramstain(bacteria),
+         genus = mo_genus(bacteria),
+         species = mo_species(bacteria))

First isolates

@@ -449,18 +449,18 @@

(…) When preparing a cumulative antibiogram to guide clinical decisions about empirical antimicrobial therapy of initial infections, only the first isolate of a given species per patient, per analysis period (eg, one year) should be included, irrespective of body site, antimicrobial susceptibility profile, or other phenotypical characteristics (eg, biotype). The first isolate is easily identified, and cumulative antimicrobial susceptibility test data prepared using the first isolate are generally comparable to cumulative antimicrobial susceptibility test data calculated by other methods, providing duplicate isolates are excluded.
M39-A4 Analysis and Presentation of Cumulative Antimicrobial Susceptibility Test Data, 4th Edition. CLSI, 2014. Chapter 6.4

This AMR package includes this methodology with the first_isolate() function. It adopts the episode of a year (can be changed by user) and it starts counting days after every selected isolate. This new variable can easily be added to our data:

- -

So only 58.5% is suitable for resistance analysis! We can now filter on is with the filter() function, also from the dplyr package:

- +
data <- data %>% 
+  mutate(first = first_isolate(.))
+# NOTE: Using column `bacteria` as input for `col_mo`.
+# NOTE: Using column `date` as input for `col_date`.
+# NOTE: Using column `patient_id` as input for `col_patient_id`.
+# => Found 2,950 first isolates (59.0% of total)
+

So only 59% is suitable for resistance analysis! We can now filter on is with the filter() function, also from the dplyr package:

+
data_1st <- data %>% 
+  filter(first == TRUE)

For future use, the above two syntaxes can be shortened with the filter_first_isolate() function:

- +
data_1st <- data %>% 
+  filter_first_isolate()

@@ -481,52 +481,63 @@ 1 -2010-07-09 -W3 +2010-05-26 +D5 B_ESCHR_COL -S -S +R +R R S TRUE 2 -2010-07-22 -W3 +2010-06-05 +D5 B_ESCHR_COL -R -R +S +S S S FALSE 3 -2011-02-02 -W3 +2010-09-13 +D5 B_ESCHR_COL S S -R -R +S +S FALSE 4 -2012-01-18 -W3 +2010-12-19 +D5 B_ESCHR_COL +S R S S +FALSE + + +5 +2012-03-01 +D5 +B_ESCHR_COL +S +R +S S TRUE - -5 -2012-07-21 -W3 + +6 +2012-04-14 +D5 B_ESCHR_COL S S @@ -534,21 +545,10 @@ S FALSE - -6 -2013-04-19 -W3 -B_ESCHR_COL -R -S -S -S -TRUE - 7 -2013-09-01 -W3 +2013-01-04 +D5 B_ESCHR_COL S S @@ -558,53 +558,56 @@ 8 -2013-12-07 -W3 +2013-01-22 +D5 B_ESCHR_COL -S -S -S +I +I +R S FALSE 9 -2013-12-15 -W3 +2013-03-20 +D5 B_ESCHR_COL -R S S S -FALSE +S +TRUE 10 -2014-02-03 -W3 +2013-09-13 +D5 B_ESCHR_COL S S -R S +R FALSE

Only 3 isolates are marked as ‘first’ according to CLSI guideline. But when reviewing the antibiogram, it is obvious that some isolates are absolutely different strains and show be included too. This is why we weigh isolates, based on their antibiogram. The key_antibiotics() function adds a vector with 18 key antibiotics: 6 broad spectrum ones, 6 small spectrum for Gram negatives and 6 small spectrum for Gram positives. These can be defined by the user.

If a column exists with a name like ‘key(…)ab’ the first_isolate() function will automatically use it and determine the first weighted isolates. Mind the NOTEs in below output:

- +
data <- data %>% 
+  mutate(keyab = key_antibiotics(.)) %>% 
+  mutate(first_weighted = first_isolate(.))
+# NOTE: Using column `bacteria` as input for `col_mo`.
+#   amox   amcl   cipr   gent 
+# "amox" "amcl" "cipr" "gent" 
+# [1] "amox" "amcl" "cipr"
+#   amox   amcl   cipr   gent 
+# "amox" "amcl" "cipr" "gent"
+# NOTE: Using column `bacteria` as input for `col_mo`.
+# NOTE: Using column `date` as input for `col_date`.
+# NOTE: Using column `patient_id` as input for `col_patient_id`.
+# NOTE: Using column `keyab` as input for `col_keyantibiotics`. Use col_keyantibiotics = FALSE to prevent this.
+# [Criterion] Inclusion based on key antibiotics, ignoring I.
+# => Found 4,430 first weighted isolates (88.6% of total)
@@ -621,11 +624,11 @@ - - + + - - + + @@ -633,11 +636,11 @@ - - + + - - + + @@ -645,115 +648,114 @@ - - + + - - + + + - - - + + + - - + - - + + + - - + - - + + - - + + - - + + + + + + + + + + + + + + - - - - - - - - - - - - - - + + - - + + - - + + - +
isolate
12010-07-09W32010-05-26D5 B_ESCHR_COLSSRR R S TRUE
22010-07-22W32010-06-05D5 B_ESCHR_COLRRSS S S FALSE
32011-02-02W32010-09-13D5 B_ESCHR_COL S SRRSSFALSE FALSETRUE
42012-01-18W32010-12-19D5 B_ESCHR_COLS R S SSTRUEFALSE TRUE
52012-07-21W32012-03-01D5 B_ESCHR_COL SR S SSFALSETRUE TRUE
62013-04-19W32012-04-14D5 B_ESCHR_COLR S S STRUESFALSE TRUE
72013-09-01W32013-01-04D5 B_ESCHR_COL S S S S FALSEFALSE
82013-01-22D5B_ESCHR_COLIIRSFALSE TRUE
82013-12-07W3B_ESCHR_COLSSSSFALSEFALSE
92013-12-15W32013-03-20D5 B_ESCHR_COLR S S SFALSESTRUE TRUE
102014-02-03W32013-09-13D5 B_ESCHR_COL S SR SR FALSE TRUE
-

Instead of 3, now 9 isolates are flagged. In total, 87.8% of all isolates are marked ‘first weighted’ - 146.3% more than when using the CLSI guideline. In real life, this novel algorithm will yield 5-10% more isolates than the classic CLSI guideline.

+

Instead of 3, now 8 isolates are flagged. In total, 88.6% of all isolates are marked ‘first weighted’ - 147.6% more than when using the CLSI guideline. In real life, this novel algorithm will yield 5-10% more isolates than the classic CLSI guideline.

As with filter_first_isolate(), there’s a shortcut for this new algorithm too:

- -

So we end up with 4,390 isolates for analysis.

+
data_1st <- data %>% 
+  filter_first_weighted_isolate()
+

So we end up with 4,430 isolates for analysis.

We can remove unneeded columns:

- +
data_1st <- data_1st %>% 
+  select(-c(first, keyab))

Now our data looks like:

-
head(data_1st)
+
head(data_1st)
- @@ -770,78 +772,73 @@ - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + - - - + + - - - - - - - - - - - - - - - - - + - - - - - - - - - - - - - - - - - - - - + + + - + @@ -850,19 +847,18 @@ - - - - - - - - + + + + + + + - - - + + + @@ -875,12 +871,12 @@ Analysing the data

You might want to start by getting an idea of how the data is distributed. It’s an important start, because it also decides how you will continue your analysis. ## Dispersion of species To just get an idea how the species are distributed, create a frequency table with our freq() function. We created the genus and species column earlier based on the microbial ID. With paste(), we can concatenate them together.

The freq() function can be used like the base R language was intended:

-
freq(paste(data_1st$genus, data_1st$species))
+
freq(paste(data_1st$genus, data_1st$species))

Or can be used like the dplyr way, which is easier readable:

-
data_1st %>% freq(genus, species)
+
data_1st %>% freq(genus, species)

Frequency table of genus and species
Columns: 2
-Length: 4,390 (of which NA: 0 = 0.00%)
+Length: 4,430 (of which NA: 0 = 0.00%)
Unique: 4

Shortest: 16
Longest: 24

@@ -897,33 +893,33 @@ Longest: 24

- - - - + + + + - - - - + + + + - - + + - + - - - + + + @@ -932,12 +928,12 @@ Longest: 24

Resistance percentages

The functions portion_R, portion_RI, portion_I, portion_IS and portion_S can be used to determine the portion of a specific antimicrobial outcome. They can be used on their own:

- -

Or can be used in conjuction with group_by() and summarise(), both from the dplyr package:

-
data_1st %>% 
-  group_by(hospital) %>% 
-  summarise(amoxicillin = portion_IR(amox))
+
data_1st %>% portion_IR(amox)
+# [1] 0.46614
+

Or can be used in conjuction with group_by() and summarise(), both from the dplyr package:

+
data_1st %>% 
+  group_by(hospital) %>% 
+  summarise(amoxicillin = portion_IR(amox))
date patient_id hospital
12017-03-28D2Hospital BB_STPHY_AUR2014-02-20D5Hospital AB_ESCHR_COL R S S S MGram negativeEscherichiacoliTRUE
2010-06-17N4Hospital AB_ESCHR_COLSSRSMGram negativeEscherichiacoliTRUE
2017-08-02A6Hospital BB_STPHY_AURRIRSM Gram positive Staphylococcus aureus TRUE
22010-06-26O32012-11-25K7 Hospital A B_ESCHR_COLSSSSFGram negativeEscherichiacoliTRUE
42013-02-26C7Hospital BB_KLBSL_PNERI S S S M Gram negativeKlebsiellapneumoniaeTRUE
52012-11-01Y5Hospital DB_ESCHR_COLSSRSFGram negative Escherichia coli TRUE
62015-04-04K10Hospital A2012-06-24G9Hospital B B_ESCHR_COL R SRS R M Gram negativeTRUE
72012-02-22Z6Hospital BB_STPHY_AURRRR2011-05-20T7Hospital CB_ESCHR_COLSSS S FGram positiveStaphylococcusaureusGram negativeEscherichiacoli TRUE
1 Escherichia coli2,19650.0%2,19650.0%2,20649.8%2,20649.8%
2 Staphylococcus aureus1,14826.2%3,34476.2%1,09324.7%3,29974.5%
3 Streptococcus pneumoniae62214.2%66715.1% 3,96690.3%89.5%
4 Klebsiella pneumoniae4249.7%4,39046410.5%4,430 100.0%
@@ -946,27 +942,27 @@ Longest: 24

- + - + - + - +
hospital
Hospital A0.55740180.4605873
Hospital B0.54687500.4624277
Hospital C0.52815830.4853801
Hospital D0.54066440.4659218
-

Of course it would be very convenient to know the number of isolates responsible for the percentages. For that purpose the n_rsi() can be used, which works exactly like n_distinct() from the dplyr package. It counts all isolates available for every group (i.e. values S, I or R):

-
data_1st %>% 
-  group_by(hospital) %>% 
-  summarise(amoxicillin = portion_IR(amox),
-            available = n_rsi(amox))
+

Of course it would be very convenient to know the number of isolates responsible for the percentages. For that purpose the n_rsi() can be used, which works exactly like n_distinct() from the dplyr package. It counts all isolates available for every group (i.e. values S, I or R):

+
data_1st %>% 
+  group_by(hospital) %>% 
+  summarise(amoxicillin = portion_IR(amox),
+            available = n_rsi(amox))
@@ -976,32 +972,32 @@ Longest: 24

- - + + - - + + - - + + - - + +
hospital
Hospital A0.557401813240.46058731294
Hospital B0.546875015360.46242771557
Hospital C0.52815836570.4853801684
Hospital D0.54066448730.4659218895

These functions can also be used to get the portion of multiple antibiotics, to calculate co-resistance very easily:

-
data_1st %>% 
-  group_by(genus) %>% 
-  summarise(amoxicillin = portion_S(amcl),
-            gentamicin = portion_S(gent),
-            "amox + gent" = portion_S(amcl, gent))
+
data_1st %>% 
+  group_by(genus) %>% 
+  summarise(amoxicillin = portion_S(amcl),
+            gentamicin = portion_S(gent),
+            "amox + gent" = portion_S(amcl, gent))
@@ -1012,94 +1008,94 @@ Longest: 24

- - - + + + - - - + + + - - - + + + - + - +
genus
Escherichia0.79234970.91302370.98178510.73073440.91205800.9782412
Klebsiella0.76415090.91273580.98113210.75215520.91810340.9806034
Staphylococcus0.80400700.92247390.98344950.74199450.92680700.9798719
Streptococcus0.56430870.7256372 0.00000000.56430870.7256372

To make a transition to the next part, let’s see how this difference could be plotted:

-
data_1st %>% 
-  group_by(genus) %>% 
-  summarise("1. Amoxicillin" = portion_S(amcl),
-            "2. Gentamicin" = portion_S(gent),
-            "3. Amox + gent" = portion_S(amcl, gent)) %>% 
-  tidyr::gather("Antibiotic", "S", -genus) %>%
-  ggplot(aes(x = genus,
-             y = S,
-             fill = Antibiotic)) +
-  geom_col(position = "dodge2")
+
data_1st %>% 
+  group_by(genus) %>% 
+  summarise("1. Amoxicillin" = portion_S(amcl),
+            "2. Gentamicin" = portion_S(gent),
+            "3. Amox + gent" = portion_S(amcl, gent)) %>% 
+  tidyr::gather("Antibiotic", "S", -genus) %>%
+  ggplot(aes(x = genus,
+             y = S,
+             fill = Antibiotic)) +
+  geom_col(position = "dodge2")

Plots

To show results in plots, most R users would nowadays use the ggplot2 package. This package lets you create plots in layers. You can read more about it on their website. A quick example would look like these syntaxes:

-
ggplot(data = a_data_set,
-       mapping = aes(x = year,
-                     y = value)) +
-  geom_col() +
-  labs(title = "A title",
-       subtitle = "A subtitle",
-       x = "My X axis",
-       y = "My Y axis")
-
-ggplot(a_data_set,
-       aes(year, value) +
-  geom_bar()
+
ggplot(data = a_data_set,
+       mapping = aes(x = year,
+                     y = value)) +
+  geom_col() +
+  labs(title = "A title",
+       subtitle = "A subtitle",
+       x = "My X axis",
+       y = "My Y axis")
+
+ggplot(a_data_set,
+       aes(year, value) +
+  geom_bar()

The AMR package contains functions to extend this ggplot2 package, for example geom_rsi(). It automatically transforms data with count_df() or portion_df() and show results in stacked bars. Its simplest and shortest example:

-
ggplot(data_1st) +
-  geom_rsi(translate_ab = FALSE)
+
ggplot(data_1st) +
+  geom_rsi(translate_ab = FALSE)

Omit the translate_ab = FALSE to have the antibiotic codes (amox, amcl, cipr, gent) translated to official WHO names (amoxicillin, amoxicillin and betalactamase inhibitor, ciprofloxacin, gentamicin).

If we group on e.g. the genus column and add some additional functions from our package, we can create this:

- +
# group the data on `genus`
+ggplot(data_1st %>% group_by(genus)) + 
+  # create bars with genus on x axis
+  # it looks for variables with class `rsi`,
+  # of which we have 4 (earlier created with `as.rsi`)
+  geom_rsi(x = "genus") + 
+  # split plots on antibiotic
+  facet_rsi(facet = "Antibiotic") +
+  # make R red, I yellow and S green
+  scale_rsi_colours() +
+  # show percentages on y axis
+  scale_y_percent(breaks = 0:4 * 25) +
+  # turn 90 degrees, make it bars instead of columns
+  coord_flip() +
+  # add labels
+  labs(title = "Resistance per genus and antibiotic", 
+       subtitle = "(this is fake data)") +
+  # and print genus in italic to follow our convention
+  # (is now y axis because we turned the plot)
+  theme(axis.text.y = element_text(face = "italic"))

To simplify this, we also created the ggplot_rsi() function, which combines almost all above functions:

- +
data_1st %>% 
+  group_by(genus) %>%
+  ggplot_rsi(x = "genus",
+             facet = "Antibiotic",
+             breaks = 0:4 * 25,
+             datalabels = FALSE) +
+  coord_flip()

@@ -1127,26 +1123,26 @@ Longest: 24

We can transform the data and apply the test in only a couple of lines:

-
septic_patients %>%
-  filter(hospital_id %in% c("A", "D")) %>% # filter on only hospitals A and D
-  select(hospital_id, fosf) %>%            # select the hospitals and fosfomycin
-  group_by(hospital_id) %>%                # group on the hospitals
-  count_df(combine_IR = TRUE) %>%          # count all isolates per group (hospital_id)
-  tidyr::spread(hospital_id, Value) %>%    # transform output so A and D are columns
-  select(A, D) %>%                         # and select these only
-  as.matrix() %>%                          # transform to good old matrix for fisher.test()
-  fisher.test()                            # do Fisher's Exact Test
-# 
-#   Fisher's Exact Test for Count Data
-# 
-# data:  .
-# p-value = 0.03104
-# alternative hypothesis: true odds ratio is not equal to 1
-# 95 percent confidence interval:
-#  1.054283 4.735995
-# sample estimates:
-# odds ratio 
-#   2.228006
+
septic_patients %>%
+  filter(hospital_id %in% c("A", "D")) %>% # filter on only hospitals A and D
+  select(hospital_id, fosf) %>%            # select the hospitals and fosfomycin
+  group_by(hospital_id) %>%                # group on the hospitals
+  count_df(combine_IR = TRUE) %>%          # count all isolates per group (hospital_id)
+  tidyr::spread(hospital_id, Value) %>%    # transform output so A and D are columns
+  select(A, D) %>%                         # and select these only
+  as.matrix() %>%                          # transform to good old matrix for fisher.test()
+  fisher.test()                            # do Fisher's Exact Test
+# 
+#   Fisher's Exact Test for Count Data
+# 
+# data:  .
+# p-value = 0.03104
+# alternative hypothesis: true odds ratio is not equal to 1
+# 95 percent confidence interval:
+#  1.054283 4.735995
+# sample estimates:
+# odds ratio 
+#   2.228006

As can be seen, the p value is 0.03, which means that the fosfomycin resistances found in hospital A and D are really different.

diff --git a/docs/articles/AMR_files/figure-html/plot 1-1.png b/docs/articles/AMR_files/figure-html/plot 1-1.png index eb824d6fb50025b38cc53777db00b4e82ba92ea3..6d329cc5683968389cf6f89cf3a55643440b2ade 100644 GIT binary patch literal 31700 zcmeFa2T+yUmMx6O<6$cbC@KbmTSO$A5lOmH5m15>lqjGgs6@#K96=ES2oekg6%Y`~ zN)C!30t$+tgY9+ocwK#g(nt_4Sll*UyPsi{%28K-x z@`nzp*$4MEI5=w*K9!kw@Z0wGcM7ZfZ^_HjdDQB(#Bw*A-c}dXVzqet`qsB4uOq){ z#H+BsGK^epci6X3aM`o*WrwxJ_8wln=QHJ*o6u7?w^hlKc`~6*p9IDJd~kqf#nm{N zmmmC4+&c8mpU%O%*lriKEyBfYDml^Pi0=#xS&DDS4-SR8EylN-l8YGejn&~dW_;T; z@;e8<9cW*=58vEAuvy?6gD+n*`L=vM0t3^4c^_LdYI=hbK^v%4F`zKvT%rxrBjzX?6NtO{EXRSIHFw>Na8D`cKfTbnAE_9`%q=Y` zBO~MS`Q_=9Z2Fh$T(3UQkvkW@$Lrd}l2so+ebx1FWP1A4S7n);(K3neaoU>W8ix-b z=8^OMSY9qOT)-CQ(D^Vb)X}s)-BRY~7oWZ6jgqF7(SCk@rt0K@^<+45THM(vHjq79 zHq&qJIx}3vtr^>btJR3tsmZ-M^VlpiM*jX*s>jQhFSX5cUaQAy;L3&j<8D>q*WDcB z^%yzgv|jJ;@IUD|-cuE;nP9pnSjN?b(&B$oN&fh8Vc~k?u&a(^KUUHnNZ6UZenG!( zot#GZaO3h&DW{2J&QeD2@4OH@mR(+v<1}g2(U57gQO3pDu;}g!&40SYzU1-V@1Cs5 z$;l-Fd5U`P07cCVN z6Lb9W-nd@X1D_P-rx)0toj-s6ecNy*=kiJ}nfHrcY!hGXJv%#lN+|H*!_)DSz6WQ! zWENsHUMDYGwhU`1^vBK(Gg1&jV z_lLh3&^*J}TEv>1Q?AZTWO6ZACgN(Rx-O`ye!*?`I_^``ZZ$VJqpVQ2hU3$tJxo-! z*~e$TK0n^F@CS!_%pZ78mDa`UEnb;c33v>Bk>d^!)K9lCptQVM%<@uW5B~W{sA8F0 zTjfdR71ZqM&d2BMYPRw7JM_k-(I`2N<1ha4nj3CLwXaMPvPTqZ{K`Tk?E0#Ah>1;l z@r7;^5utBEpY^-W*Cd~l<8nAlcBlFZymxe$pTYevMO;ooQc^i~gN>2ANvHZUd*e6m zzw)Cp=A`k*2VXL6dOJ#k*jKOKZB{?^=wf_~*A2sgssSm9ym+MAH^Bu-zcx3o<~vJ~e-;V;Teac%k(lp(ModR$L{SMV_x_u&{Vyp%|KSHfuUv=P z-rqG!I)%#RC?F^p8}F%d+i#{j`dNGEAH{Q5)DByf|Jm-6*?#ZQqn^6oRo49G{YX_u zN9VijlX(FFf!gALvr{Y+9QsJ#NaoTAE6_JWz(pQsH zQUuLyzMVE!*E2x9@Di1tYIc_xNH_Add4Fg9S7iGhmi0)T)n9vT-XvY=u4sAZ+11tM z$@*x|#lRr)HJRW#cd_8+%KqBdbsc6WPo7lF(|c`NHQ>XBUyIfr7i-=oAh1E)>a2^) zJj#!KM}X#DlZvz0Z3H59eSEkJ7)NGdx}2Y1;%eUck@jKR8)a7S4lW2D0tFs*? z0aTBR2{{uH_mu=RGY-1{v1gc$RpVmwoGd;*7Bj~y`s>p2x}QIOwA*AA?L$dP=J+>l z?boKSam79|^XY!6-4Y{V3$w=g9!ovBU8cmlf=_CV_9o;pQwc0FoI53?QCCjE6<6N; zxzXZd7_gj034fIT)$p@nS0}o^gv(J32I@1adg3A?&Q?aNnwXe~HQF21L~?tr;h3n! zFS;F#%}a=WshuX`@%dk1BO~t@PTi3~R@T;xEL_3&@1N8K z-GUk~am}VpxmWQ>_S+3)zjMh2E<&Nz6e=$+mRF3;Q31`fA+&SRpX8RWYXUHoLxM;hHt23&TFHTN=av zyd|L2cJ@S_vgXiZ{qLp=PRHDx=1+W=jXu0pyjVD+>wuMvuGP`w$Hy=K7JUng*WT4t zWSI2v<43Cwz;|XU9iusFwiWq^ZrhgL?x$Fi+rMglk`mzW@2@DDGxqAMlA^M5Q|je9 z{J-4>`5u74JwL*I8beaF$ht~BpZ|kn*go4Y_WJef>U~|eMROmBTX(kLIey$xWXVvBl_CBX?`GUF#c37uI|%gF-^;(eV1*e#r#?la%w}T@0z}zl-iczdZ@3x8zsQ= z>_VgJ8kajK`3OiBYj15eY&4*TXm)w|orzw3*N zhz!)EbTOxehGJC_5v#o9PkZrbA!eTFuG@=uNbIU=a^p#=Dg-t@ZM(}G4M|#~qoBuU zG!TRRR4$+LVDViZ78UY*{fYVLM!1~%k~HFRZ5lIeryk=ENISr}PYRaR7`C zR3{mknGLWhOZx6(AUzS9nY!e2rQVVw9}owD--7pE)-p9U9c;`g9ZxhYyoD$|d;Waj z09C83J1T6x(PaPbq&zkx zP6x_Vj=xm8YWfSeAgAj&W|}6RrX*!*XyqER^aU$Gy0%gCn`oPOr*wQ`vSNx%y^A1-zsi-U#>Uj_px`@HwH-c;z( zv2VF9$7xeJ*8SDm+FI;V^=GVwh;HT>wzSFD=X*w%lgHT~`+bodrNwPAb9&2-jRFa~ zF4w-|3}o53_oYDEkJ{H4(Qw8}?ZhjeG)Ct=zC&0EHQ#>~Z}rS<4R=mB!m~iY&f>jI zBc22qGBB(>|1TTu>}S6*9Jnm+ZD;aMZ+d@!+{u()N6MbI#*|Tff5TC=FYQJ}_YF$%S`-2t((UA7y z?eE;>_4YV*EN3a+QT%C0pmy}W$#4(Z`)NIo6m7mWLNgBiP_!TbU8VEithj8 z()u|5eKcC1aOcN|Y%}`b^_=>-(vkVhT5X%OPcGrarmNPz!!46L)(ie- z&Dyo!&UB^xqFjIwG~KU$d-+p_X6s3|@tFh_HMQL)6%iFOon2iEZQKjdZ|8jg+1k7% z%%(>=_EZ~xda=NB){a7&wTWfBjLUSgY%fy`-ncFD^6Lt9icd9nL_SIY;Q{)_rcplR z%0I3_&_6e9r}NYh2m?=6J?G)VS{HpDVPRnj@|9I45p%z+=01Ic7n}EfixbVAGNiQd z$xO><+4cj*u+gfK#F4&w9WSWt`s;N)l`;6F6;vIIw@auVAihLZ^@_CxyiyJW5w#6Z zAzRyx6!RJ5>->4Ht7BhKTYAAFmR22ezWU>-XW(4hWTrz*2*!`in zSiJ4duC2!&pgB5`s>B;o&^FAj?>yX>QZC)>ws@k!t|>S;7`R4ieyR=CVNF0Rvb?;!I1;=p1?xldDW#=K zQ@Mv;Jxy+%PV;9lcXVw1U9gB=JkZ6|p3p}(m+_VqM z86ZdoUOGWc$ zr`mj)K3(3EYSvJjg|ajEle|MYAbBdF1g_{Vx6Hf;o6=OnpbMaiU6i${JN*`ld9S&% z=Ep>Z);>FYo0TTCR#B+68X(D^|D=G4gkix=<4}iAaEOohS+-tV!t`7@Z2q?X>}HR| z^Pe7pLgZKFL`<%tOqMM{^Ls<>Tbw(gZ$4=WhHF;*3sS?5zEn$hl;w=g$I z4+Zm&4|a%V59M<&Ociy0dhE$M0J15$>x+sqJ$U`=HP(`_q^DEPH&~SlgJ+ug8aDq5bz#zVu=dUQ zj}Lq=%(UNEmPTv<-;8HqGZk^#37tyZ#K*_yu^l0x+xxJVhivDgR$h}Q5n~o*;$8l0 z=Z8FHE@5#f1^{mQu5;sMwV@XIOTX*d>1GHE{IO!gYFc!J`kD~@EUm#-yQXa89@8;= z($=!w{8AI=Ji#2Y(=ODd_Tzff2Xkiv1A(v!)&Pu%w6T2)7_x!(qakaOH%RA1>g*GD z=FExOi?S3zy?S7XcpD|*m4r^)k^=bQ44g>y*i|l>f?N~X0r=$gdeyMKGwHl861=Qg z@0Nl9-Lo?l_$|Y*3n*U6gOZVv5%B7`4yUBO1v-Ti-CKo*V)Yj9CMQ(9e58MF^RW1| z=et_=7Rdx-S>cPgz&G zPdFJ#%nrS?JLOWTDtDbVQ0Vjt`8ts3toa6>oT=|(J-Hk&Pz;dTfd9eCE5AOXuBP@1 z2_f;mv3W&=e0SH8oXzw_*Fv=zJM5!vmeCQYZB}FO8o}4u(ZT6F^mdIXZ{yk+UeMpQ z1`ensGzxZhT*T$pI}QFnlqB&P8(Uvuum2U2FBjg2bXb>j_8pz&Cl!BvS~uCW5D{c4pm|-69C^>& zTVR-kO}I5zq`~`&-Rjk=)pADAn9W7W%*9-Kp9D<@t$Unq)?QxTj@H|v@e%!Qix$%; z;J~tm-*05oKEDN79P8|g+oO8i7RkKu{m6q0Q?sMxK~C1jpy;8eP^cW11uI`?N-WJf zKs2d)!3s^vF$yPGX%F^U8p_KTi!_N?Ug~L@pGaH6wAOj5#Z%p+0<3h?!u%uzjO>N^ z8NTC>uGC#lLq@(_;?Ga@AVF?al#QrDN4=CI94NBH}zMrqaF^kF+M2nb?F}$F2~&Re9Be*HDskaE)Z?TR(Zf==-q)nGJO; z2P=d=_DIbLS>d$`Y6GNYy0K!Tp38K{WRvRxQkAGvx2Mc(3)1|FlP7VNP*YAmKh}-3 zP@iGVryME?bt^dtzhjHYavdD1en;nkkJ3*o`?S+;XS?^wWMkfd^TvO!EjV#ZizriS$GX7%Z>UJWiR4A1nZH9;#_ zn8{l})oK(M7YA2@epd#n6X^`?8Xcm>w)^XDG_bXukQmG!#aogsfD&_DSy^V}1CMBW zGs@E1dfU3o>JIxSw$qtpKNYNVY0eW>FTjAF7qRgInx~3?^OR*4k7%uuWs$l9h@~EL zIyDiQD;#N2%JB;CyE+5DrBD- z?pg@gL+2;mY1Z$hd%=kv{@LwUWpkU~l{hFCkWvnP`2}j=!Jyilg|CTEI zw=c}ecc38)W#yF6UMyB7m*TmdyLK5RRh#YgDl~lf@S((Po5+}cIsN^j^UU(*CX(}> z4L+~0ugA06k{i0+fOgzQ@#?)_`QD9_^z-SKZKjFuP$oq@EIv>@k%yqMjw2^DU^|#5 zE^N4hqH(DyH)rBeA8lbgn7|h|N9c1FWx?XEQ}4KQXGco!+_|%%dl#1v-*4VosC_p! znoVJ^5!6zuKc9SLe}d&?qmy~u-kR(4z2XUEx2fbUN7IcfB%8F!zU}UYKHJ7@hcMT9 z2Pn2KKfi{By3S9()fOnGFYtjmaG^nSdfUTB#dV1Ye0fL%H_E!L$bYERiH8GInlIef-67)aA9oP)7Wa#d{3>PZcOVoL2&m9)xFF~8 zDov85;(*I*O`@d0haj;qa#+0a<5j%D%&9e?>%$l3oD39J4y4#xcw76`h2dhpFeugW zxIZ>NrDJLrs$Nw6_!7><#6<8Pg#AM;z%2VAChscS*VYr8&{$)y2l@jcC^PzT7gXy{ z#l;Un6oIqt!YhB0{5{|*9eL#L1{;vWTX%-IF3dE^dNR)e*r~bCednU6u7L8o~-rf1fcY*#JBI&1k=kWPtJ_}_yUT$th7`+!>R+6U@E9zQlIvW^P`*T&z%`~j2;aS^}*xE z1W$Uf66*U=Po4&SuN`#(bIL+p&ap3X_rasTbD-+Ve2dr3dbbq_lSY9+iyd)vwKu0k zDyo=QK0?BS71yIz+a8}a@RLxE>8-a2K}y7==FS0HLvh|VY+uFtfD)^3!ry`-d6 zhJOQXcm=#E^zUh3IWF;`H;e7|&I559xd-bX%h#!BJ+N0K%-?iZSd&34 z(zU+}DSV!+s9hwoEAr96vC<^DM1`m63>Vuz`*M+f z3)_a1J@dCB7vpCVj{cd5V)S)6AY+s8Jp2?zYVgLqQg)C#A|kdVwMV?fL%YK%Ve9GH zFmRa;{+*Nz_n}FSo4Xb0(gg1WK9|u4h6q$ z9Q!QJU08SXv;x>@H&^UMaB)pPT<=`!LlZ=Xxv*x;$T?v5aa%lH0h!LcEkOY8^3XIU@)+d2bg3#ndM?^&Uv8#i_ zo%}4za-B6Elr}m)JG2D=HN?t+{lwNmZ;g*?0hf#L^LL}psLFA^ezy#X07#jIdhEgW zr$?Bzb5O@R%fp%y^z+a(PT_*3Q4~nCeVvJYqQ6c|)c^vY>vXApZJN0&I?;gCpD<}S zOw<^6b#~6Tu((#AF4xqtEDRR6E(6^Snj=B$^$TQX?D5m2K$#^6S>GZyxN%M1r?ToJ zH}M(sKYJ4rvdcdB!qmiZI`u3rSUtOenTaqVOWC&e_1O}SN;NpboUsbUCW#xsyT<`c zjiod%oftTBZsAnY2=ie2yZoQUe*v?enPuL{!pgz>hQaM_0<&<`|cX4r{JOvqm{e`auMAeZy>%Jg~mej@L zrc%wxZmeYc_h^*?Ir=G99VM*!ukj2aeFS7xJ~`;VA!7;NNkzG`Nx!-4)8jO}0&CrL zf^-Is(h4ScK)HXdm9e(64x_tn2UBD-_ ze1w_2@c9W+pK*|R5}Ic0m#2o)=;kI+X9T1-tT}h~EaVnb-zc6fGmIVGM+cOPzpm^V zb61d;AHH16DJ@m)RH^YM36&7;sE`od%$CD89sinchz9-tC=@CM-%DmnJB4dQV$n^S zeRf;K6#Z&dSo|MrDvNb5YUy5ebh;5$$637Nox2I^xvdWB4;FtpcSBQ^Q^_4@yFJw7 z^`|ICCm-D!_weZGA8=hsO}F1i(Vnlpm=KVocIwm=>{moG6V`eK?$HEg`{qiXWy@?k z5>o9Y^@^+V^YazJt72EznY$vJltBoD4#`S$baX^%D3cuh2-S>0y~$s(#$BcNHVL8* zXqZtnO!4;oTt51a-H}9~Hz_9U(hMLEDqHXlqa&!ju{Pmg=MXri2>%X^Q_eseR1Y8* z&5FGspZNHq45$B@+?eHjo5UUZh&83RZ{HR(Z`7G)tMa?r+aA9sE?zoE%BV~E`vo8G zaNEj>NfGh$_SK4f4m&>%o$=HBq$mDP*6NrQo%!A(s(S%0mswomKueY(BWZD*&3t1>k=U#$kInlWZT{BJYAd54&Md3KntYvTIhVLYiU_1bV6T(I5crzHc5 z-mYSmRZ(fieY4$k(R99%7aD?7_ZDRcx5q|a)Cd~eAN7_uyP^3dG^{;xk(?w~Lij=f zQB!fvyv=S>366`3Q0jv0^V;yBxc6Q+ECoiHO4hGchI`D!SAk@y4vN48pT={%3%aw^_ zArWEWIQywN^mUcG4fj{t9vq)&et=$y@)Ykz$i9p#JffoJD7I7&nfYO#bEO0!qZ?n# z&b|PXXY99}RZP5%c;3kp=Mb#fFg8#Uke-G>0q_S}@v}he%c-D{Oz07&QVulJ zcQUG?qG#}J$d<64B^nDRtkk0UJd(WH(GeG!u~h}5UK?358Ni{BQ-QMz%ht`slc|pYF-D*dnh{G`;qij zM+n>CSZV>f&{cx950LnH&dv-KMkQlxX}4C0)vGv!U|IVU3CjdFCeHU)u{b?W1G?Jp z!Aja?s}2ImDJ_5yQjkIfQngYq!7M-sqQV_?HTZ?&BDt=z5LpV$7bj|rb_(a#z)z-R-d*^&Gz8-J+s{lX(kQOO1)A|_si}>9(>DJUDm8;1 ztmc);NlMH7%wTy*$%~kSc8*RQtev>XtV{E= z(}?vFR1#T=uy$%aSQ~iQ5!5z?Yczq{c(Ohlz_|rA>CxlIb#Ql}dklk4L0TpQgBEoD zBZxF0?Ezru3$RasmR5bIeBwQ-!p@yL|6t}g<&+lv15RN$)SWJi#qiNd$0uCq9oO%( zXvPP-&bD!Pb#%m?N-_kkfmkdqDRD%eC5{QEtBv4qfRtsXi{zuklop`<7&A{uCeFaX8+TvW4h)4ntntzUG8Y#}5~{~=ThZYBRE!{f zVxq^F1gFOkLIR(3|RAPCQR11P&5>vF4*wae?%S9w`xck90H!1_sY)o5Pn-Dgg zoF}rOZLJB6Z_3Kb=3k$GQg;3M6-wLS(AvMrP$|~T+z9Dgmx&e;(f9@6M#%|zJ4jYZOdP^{H6))?)YEIkWWfDXyDf2Rz>?9II>3p5C%g*DcN*&t-w)g40O`50 zuU@fWbC4%5QK<0ZkM*+V181P;ae1?d5sKp(2+i0Pa0U?+L!l-KA3crBzlzQu6b_kR zIF!puOGodmnV>g^k0(qP5-DV{rKCkPFlGq|3v;bG7qn*e>N}ucKyjfpBH09_BlxA6 zx~BP5KjrWd#+Q8bhP?73VJ4wpbGyzCSV!!8sH z%iURLNfLkpQBbjOZ_q`-B$w7X{{mq%_?`~6;0YtWJ=k{4c^?9+sfKe9ax7Yu6`-hw zn%_cmpn8BoLW&0v%0^#`=Ol44{US@cr^8`XDL2O#aB@OD1cjiR>pYDndXG&{B@&-{ z+I@8Fm#Y(75OYFljB=ZWw!Mb*m+a~cAPc!G*jg#0k(4zEzC_K?aj2P-z*fc=w0f=S zH)SYPXjZc>6$1q50o8|84Z=a%{hf$g6zZNm<3L%W!XJx^mr@~lg^X`^n&@NAU!$p` znwkh$2&5(=An+o>pgNMV{@t(Dmm{Je42{G?hzbF|C4?9yzvIQdZgYU45&d^vjUh;cbztJH%UjJ+Ux`AKLf~e~=K4B^I#cCCkEC7&7e0J+R&zk<)#RKxc@?QwK1QGcYVev^GSEyN|a8qh=(Xb4qjP3@MTEmSOkZG zj4pC(C}4_01<@-|a~0vn$PR}16e!aF*9QlI|C@qSpbpTf$cMWLjcP;RWyBkBlM6oC zbNTucmVDkGc=!Q=gdqWk(FhcvyDu&BmdkjozVPYfc9IJql4IE(Yk&3jxK4w?faSTD6fR`CtS~bVRu@#T$)2i< zC|?lr8qp#PYCM3|sqmyCDfAw!gxj|2P?nxGJH$XYBCeTh4a-a}X8gK7@?zJGRl6nL)!aXABgYzDJ;&DOk`hCxIvc;Za(Pd}h` zFp=pzqDb0PzsC`V8C8BJC<(lE?%%hkx(S7ZxCv zN+e-P(8kDK!U6)zs2~;QkzR$iZQBQ8zjr}#TL68uP{rqChy<({*h5DotdP|Fzrm*a zi(iW@hg~%XcaB0|fTj3@h0D2Mr5xfJCQzawl7%EbPyqW`SSy6Sw}Y&fS5%zAlWD+u zfaW}BYz&fn0SN^J(3Cu1h+0FJDHnjLk*(08pm0z<9u@`yn)!?&)sITOdUCm&5Fww$%pkfM2MHC_Zf* zGEQ!5z%H-u`XbP-saRgn0qWh0^{$RrK?_&_Hs zUeG#d5BrCD5XRVtc7cL@uJIFPw4%@H%vO2 zC%r2Y)l7eP0~`1;Fi_!0$ex(i#oxsLbEkpGOan^sfjHRCh4)Q|5!H0{f^vwI+%Lft zgc-hi9akrM-u#Lex_wBwhOS_fI2tf~eQ#laZLFeV_FFNR;fqDHu6+%5&TG{3#fGfe zC{K+jH?LJ3JhYlsLszXb;92#(PM+%T@h@+k)BW}{aqpoeYZh&^J$!JbljiEfx6Y}v z^544RKDKt%z)aEACg+i@tZb`}Zgt6XL?JoT4LzU z!ll&~iFN6u4E-#cU9QU zq|nu+=AivR3#vLB2xe~%YA3IY3lj0IrcKv(*!EQeU^{9iMCQlqkp^eA9?B2)0GhLv zGy;4>_S@tFXOIcrzUm|d96?XFzfK|3Y@}6#^ga)|5WNX{1dW&zk!OE?@(uxYh zJQ1ltwBmbIS@J_*-HY)V&#@(NkC$tbJJ1p(!EPdXdjSv+TSf+b`3sFW$Ik~DLx36q z@jp4(47U~{v&ktalwkRSPQoe&i^zuCg-1Z7PYLgD@nCbD9MFvjVWp7~8noAXFdSjA z2)058iYrn)E1w~(mrd010T9ag2?U5M@OtnKY%CE@3a3$ki7(){1T^F8QS<9(w(JPI zNFg1rxXj?@&R@$Yuk+HE%r=8M&q3Eoqrf&(-+ewMB}E@ajFo1%^(MFmG{--P?+2Gc z&`!U|h>z>65i~R0KZ!5!3r_D=h>_6}EIT1*4l;78CFtcquhT(Z#T7%)D?8nTZX*v@ zj8#1Gly)7!pbH>r0qh(paWIOJ@en3zWrF?!(P$7bz_N4TMb)BJs2)RD&pfO=L?`kl zOnIuL7r~9+e#MQYv4wQ)$qG|326$zF3ZZ;-CQP7nnSkJgS0Snh3UGzs2@#Csb^r)z zB)1W@Tj4FiFNhD(|vlZ%<#Zv4XwfQLZ(7F1wlZ>`p_ z3D$g24`@I4!c7Fu=M#$M%B*%X1Aw(4KuYKw<~ifv5LKVR${^cfH5(z=A7AEH;E2t8he#!k;DQG2P)|wmCVl=fIlDv5z71kiYh7uzK}*m zVF{6}BFAL(s(&uh4Th?hJpz3G8C+aN_IdM_jRH_1FHUdkKA^(u-SDPOq zswgd3;*Yxa2#v0oz3`Q>=JQ7d`$c6##58a^nGLo6tiKiZI_sM^?HND%lRmcBF z9!smYQUvl90XdD%jevl|m&y2$KHXc6z$snm0r?Up<42)lpG$Rh71(gYD1sKyVVN}? z4oX66FXApkN3cnNm~j#H*9r3k)rj~VFqyVyWZ*GYMaoWL6%E9j?7-dqu!V91@p1}F zqoc*Z8umo}brh1alb7ixK~7yIzlCc-*rI8ySDQNMt&;zm_3PK;0V)Fz!Xf0>6$##J zoaovaS!%1wm9c&U0Fk~~lCXV)cL#mc4f;~CJ#VaD)4Dw{IGBU>VKh4c0t76J*I9v` z)6nxm$n|!up2sWE{}xGJ&rpOPQteGE3_;UOY+_H_1Ah>tmnuO$3J=Mse>?M41^V2L zTe2Z?JB%GVq&+AP3+sw3ILqO%>Q+9HtRR|l(H`tJIT2dFh08|_L-kPq9a^rluiABE z?Mc)tvT?EPxGdf*$|yyB=A<3{_`|miAZ!*f?}N#q;`@B0ImA{!daO>>jj&Ra39!AP zN`W5`Jv#}SeFA%5SSLLZ)SmeD>8{cXC`)kZMIC#10%eAlssa$4aFMVr;N(W{LzE9RAlj%Jgg_Jz7)0_U>=R4fvHGwI z=-&N}7GE&HM`un(n|>y-#Y3M4m4r>w1i@H4^%CebR432{M0P`>TBW>Bel_#D?VFGW zpaPQohtSdl+ChhO5!`p-pzNY}w2e^ekqML@Y{xz%noPJ5*C_~vhcBDz08w0W>9N%X(!*Z2W0#IWMis*IaPplGf_eiTrPwm>ol z^^=3zfgF(6pIV2)v=gAM;G`yvLV9z=(pB(3yj+!jp`k9&2h7pLfw#aWwI0q&;vsby znnNPq0aZLQD(XAp1y)L^Im(o$Xh6iPdcG&f;4PP}5g_&?Y+ok zHkdnNH$}_!FkONt4@m$Q!I}@3ep)y`?RGm-(PP*<5gW(|DUe(+pxFak*%a#hs`67f zB?AC~oWz3a3mG#sMGZNfG>|nZ#>5+VU0)MREr6Jh7-)dZh7M~Gep!HA1O(l$aeTj5 zS99k++!XOQK(V#P#p%NWfhVQBzdM4&tNy}IO<#?m?J$>Mdn|xq_L5h(TX~<%->IYm z6m+Aklw~|Ml3R9P4&l1+;i_h-?F!fwarYUDsS=mFY&Fvw@(E)ZR=rsc=E4!tHMa}( z96AE7%{G|`WWQMvYCaQDwJirgt11hs*0FkQEZ?3LywzX56&u`3e;xqKu zEm=dRq=%v`KwAwa6>-6YadaRb8s&8v$J|R>=*YKO`6*Z-ss}L=qJ5eR601TM)0aS} z{Kk=@Z!1e?ypwJG2XoH$QX-SWt+>uVgxr2vfZ2&<1Sx(8Ggz>)s!@vcBcI z+O2n+`1xa;S@Ly1HM&beZpY{av1diSk~o3Gjd%XhjPoSCDHM8I}fdSArVHkf# zT_$d0wC}%?G5h%%!s7jW~Acr3zo1$Y0zEUBNYmXsDavn3!# zj_y7I3PCs3lI%2jfh=o_W9XLvuaJpyF%@9??d5t}w0i6}f((GS!RIbOI~G1ugJR}_ z*8$0*ZPM3}-^!LV5>pm<^(u zuy(k5U`QvdDZ*h@-738I8Fs;}MMWh6g0d7O$C8tw+vKw|d4AOu+0cA@Non-8toi!$ zBSD9X5k0NL_IN-*HMoD$3F3?i(t{zf?<2y7c!&S2@B+9`xcrLs2`bP8VUSp-@hn;K zTpX|P!baWD>de+{+&q%&{!l%CkNw6DR^21^)PUCQN0pRBn%pfkQzo0s!~6c=01C%2 zfvf4g^!ZkjdQV&gRDS2l5(Zunv1;XayMRZHq-j_+(NsQv{@e_%V;D+^2=LyU6C6a{ zY`JL-x>^+Wku>hxg#v2ZLPAbU&zo(F%Sm(k-(1JG!n|Fjj7}``k|hIQ0MD50(Iv-S zH#f$B8;NgZSs?c@$Q4;g0{;F3-UA1A?J z>yy0EA|f&p`oURr$POZ{r%3zr6h5}=Chch8iG>-sD&*0lT8O&XsU1od_;9>e!>poB zf2|GP5+)Vv`5++bpa*liebB3}l@$IEe=!VQ|El-`7Tk&Myvt8KaQ)uXwXP=Us3|1=V@pmp7c`E*mO9iBIg8L5K zyqC;n0sdvb@|z@d!7Ax)Z3t9C6@$t_cV2)<+#0$^dmV9iQ=a-uAH@y2ZALW7p-m;M z3h02n<-2t9(9g5xLuFMTY9*Wls1I-w;z%cWKxS#g36ch-1qr09Sb7!zAaL%5}_>gD3B@8FwTLAX;96?$#Z}}K#e0H z!Q1&4AXU&P$UUM*CV?5<8ln(b5Kb?kLZ^tM3CvGtC27n- zsEpT_l9N=>FTlnhg9*LPet9+WL?~#n^z4C*;7VUhPK7@r-7w5RL_oL$2>U=dLTuI`9V_{PM+9Br$O^cEtQ5$&Hw_{yT6(sTwBSdN z_LEIW14m9Qa^UBP501=u0YUECxf9fIta_|1xU^2mO9Vu0Yb!B(vyw*ifT5OmggwLY z7DTmdO*a z{y$LUKYlLe{|n$peOo`XKO5}spz0!%d-_hCz9^57)-bU%U{AIwRFytrzkT_$kDEl7 z8*R$GGei?8G`JTWtdq;w5`TX1ZJ4K9_}NR47++|AoiOZR~&pa}+J>UJH-aglom0Tr7o5b>&OeR@Ia1se{r}`1^{%4;a+9$gaHBFPn_$=W zpmGBA0s<*0D~rB8cRPg)Q9Kda_H|JaM0%JP{Cs^^(vB)BJ|>Vn!&(MbNkZ5VCf)ZR zFTb-bD=ixH1fURhW8xc7nXm$YP2_|EF8Gg7=($z)xtsCKYA$^Yl%{%!pG&tDkg-i8K&iHflxX=MlSie%Qk z;N|*49a}yPU!cEJ0zTm1>iL%*R?nRbjpOm3KAKO6X06oC-*_ZR-rD&gymXW3oe`=0QZXKmo56sC=wyD=g8*}J zIHVUP!~d^BkYb%4|3IJS&LWo+uH} z5ETt%d!3a?oKcdNE(`D6!nc>MHC}@tI8dW%yVx7zg(oXPQ<5D`&ZEaE2GEuT=93Fg z6Ud@s>)+tkhK6DV)fpHw!?>gxp$D^{ECtAm|6jZ;9J>HIP6(7mxX&^F!Abj2R>mc6 z)sDGu5VBuE^9Mg7CwhS$&t)rJ>q5VX(`yB%#b`Ez7O0xof1$~!kY$#!r zpL9^BY<59gNEZz80nJjK*Ey!s{VZ`h8OcI}@~MKxeqRvgkI(vB@$bkv4cv&PN+C;B zWyEUhdSa=TKf>>d|NK-^QX*r_aV|{$h{2>_mL^Q#u(y-5ag4mhpM#tQGf(0NI~$`! zst1GF?p(%PB8DG?2<|&GDfso*(YC8^5P$E# zixv1g$8i7WW=_IGFen@c8%h`Ka0(D2H>&`#r;x>z$b?h&#CPr5g%DOMY_p8AbldEO z`NE2U#s1#VOQhig!ubkjncW~Kg-BfXLYJmIg%U@s=O&X&6dK8J8rn@yR*Vu8({GTi z-4hR(@18;xr+NUW%V35(vVqf$VsV?~$-l)(l^YpOk3wZEMw?8dfE$QE8Kq=m$EeT< zab-OXt`R9*nj(4ZM6?8He1m?VWniF2ZNs0d5Rv4ZYgQUGVuBxP8y4MU`0E^Evwv&! zevLxbVt+BdkSi73-yG0S*cCd$hf;KRqh_mc*N?iiLGS{%Yp3(CTHBr=s)(WQ2d;2%L)pS1}x#A?o;kLS%oZkR5v_(rkF7U-OxuXtbUtc8f{^A-5CJ1zLwVPC~M-SW&%(7-|U# z%nC9C+%FL$@G7`ViFJ)orXvNPNp`ie8iDqxzW?fVKehnh!6%EWZGPwITZMt8VV4Vp{qWmua=s6S})LB&j99{j_cIhQ}n5ow0ETf!N# zDiIU&@L@sxrJtbz22JaE#fp+ha78%&fDrJm-JsT$)vEhLuIZM2VBC~`&HV(i8WX1~ z77D}$Y8lL;CNPabK~08w)E=J-izwP)BGmsn)E;b^KAbO;$cd71u%qQ+;*lujNH{oH zd?qb#E)GIQO7F*z!eoE(o4oma13LCGK<0z}V8-7XfNgnsWHn(Y&Y zKP>najvsFTfIwW1F2BJ_1BXR4++fQGyLjIs#@S@L?s(*9yNkPb!3E@m#?}QS8;TS; zZ4@_6#^{=oep7NMDm4f{%v4`#u=(Dh*G@bLAnb^VZza!>z6(yogNJ1mhUFP200E?E z;tVfTqBK~(J7P2*SlcY!t8Nj(d3@lp>#{1E%b`^Y7uwAyzsd|(aEGpAvOcsrvFFV8 z#s0r9VvICF2mQ+@VFX7HM)M%2AQ~V@kHLo01S5^OD=VCz9e7F@b+E>ZFvv^vR5aB@ z<$>s054yuz3x8Sxk`nRTVu1r6J<7z^gp!XFGe+TqFOS)U^Z|Y|4ilAMDv7NE=OH*l z@`g}oLZqE5gbam!iPT8j-7}6$ZH3Z6)j=@BX1GoWS%gRyG`5HEQ^CF3{N_&>L;IBa zFWII+Bv=lUGjbDggJOE-zTYyNLY)@RA6PUpD25IO*o#y|Y%65r`zZ8w^wKgBMFrep{VW32~i0%i2W^lQ2ql^pX4O$Av(yyLJVBeCR= zyWGJ{29}(sN603`v?Z=pd%$!_*dOFbOma3C%vJd47`2!aWhY?aQKhszF!HYX@;(<* zCV35B5BJR1uU~O;+7ytnEA}|1=p|ck@>soC)2X9-?f9CJ@D`T-dg^SH`mApl&q9=I zi}IZ%+$)#7tUdF`ww1pz+j@bsOn1}d#`s-3z_B1_ zeH2csUqu6)B9oi2X*+`du^nub5*K&C3!rJ1lc7u0DdJ8N|6~SzoJjLK3=6<#vH281 z`zDr7GTb08o{s<|p$m%u!O$pGU^?;a33&-#mkX~#P+{(2d(>;BHoBu3gKFUX!2FJy zAI9VMA$~bv9WYo$$Hf{daURDZcMA3DbTh*j34NoohgCpJqO5(k#NAcT>G%ff4dc+tD0??lY>xb!S81TH%K$sF% zHT5zcd5DArg{os!jA=dcm|>3}wx;S@YzMFKo|;so{uiXiCKbRy8> zcrt}qW$j;Ecgp96%qup}p|I1#axS!a<%P{5>zJfB+rBb&&p0}`=fI+mZ{La}r5_Nl zS}UTnjvR7k*ZLJlEF;#*Yy~84%*Gvfb`}$*_y9>1Ij6B7zUdD#kl*k$&IzrZ0m}u} zdtjVy+=(+1S}OrF9k_o~2rE5uo*kY`ISOC6_kID(7*p(eD8$(D8CWT3p`B&|fIR>Z z;lePegLrm!WTCCrBv7&map6X1o4cubVk}7tOQWM)hYN)c9sSoT9hL#F~0ur77S zORNMdSf%j9N7N)ROHXEN$bm&J!XJm#gPHqoF4E~i=mL_kvE0D~S|LdTAbXK@$zXOU ztOZD)4`+JjW^au#ch;{8;Mu|Kic~Jy@mInF3k4BM7%+HPzXr1o9JGCyQ?siqr@Mzx zczvU?aUc~$Zp+pxm2`T+itxE{t-pXe%cuDf$*nxf)mQ1xb(zgpyB;i3xaH0nrF0vF_7w!QnvqMRzm#g zl&#A0Z`t$%&J>N{PwtSJ5t0o_pVR^a(^{cw^sByFPp*WZYUANEQO5=vobX9_@|-&IYbR**$%~$5!04-n9Bx z_Ma!&zkqtoJ7nYZQU~cd#rBWET{l0xL+f5`k zM>&t(c_;bjQ3EA+GTnkcWg1RbPV51AyH0Cpd?P1@1P=!{dB@*Vb`}o~2??2cy}hev z)uk6h+$*NpKb}k`SyaR8&Me2T_0qBUaB(}k%^C)Y&CO57A|oR?F~jKPFcKuHFAZe^ z`C}AT4sxi8ECry391@3r3N_9hAf_BFF!|Fk2tB5ZXDD~&=npU_@&b*;aF*^h&QhcH z555>wBI~V;gY1H325w(T5sVZpm$5>)48qn2GD-sBPY`ve!w#R#E56`p`9Uy58HyyA z`xK4NuF)I%$1c2uS|tfl8k>{+@tcKMulp6;N)Fl)b`}V2hi~I}&iGqEvrR?|Psyoo zz~dyIQGB=?;SsIIE#Qv{qyV`}S~qRYH7^%uCAq8Sx$Qu>fn3uNdpGO+R{>w&Jf6e* zcMR08G}z9bXw7h|U`x3Fb8@5{CRB@cli>p<{;%1*8C6*d87HF>t0Szi7-JzphC(}X z?5bAC~?Kmp{WKynmqL|G8_+XKwBqr`x-vv#$4_~6Oyo8<2;5pyjnp!d2R z&)i(cZ|^>YqXqn^vImLHtaT^!e|y*ryf<4)Yh=xmTbeD%0ij?QT!~ zM}%J;O95jUt{hIf;Q%tTfTR;3QxR z(uhafL`JTWKro-kvi@a4yk`-US z;SgC>V**{Q`HmA&$pXp2>%QAklj zIY3&3(%yklovi|^JEsJc7;Os}L=FSEK!58Y#$i-0C7k((;KjM7fIEP~=ry}SF%E^Z z`DgEM0-w*j_Pxt@p?M$PhKF=urcS(b|QH>fE#fgFQsOL4ZxqF+J4_fdRO(~^v1|5B}O+?GJ>7{0#0}`nnWEMNZ zdGZlabwY(&S}v!zkxG;H38zbnI<#fbp}d0XmCgxqnN@_Ro13h-x>Jt!_AkZX zz$b2ag_Xh|dWPr0;*#iI?V~VTyKqVGq`G}DJOV5s}JrtV~?nF~1P z1ygGptu8(*+)X!w<6$nvH*;u1W3`>TEJAIk%=a!YjkbR;Gxu*mCD+8woBgEGiau1q zp(2xaa4Vd`#p2?R_=-4=2O*Zhj(gv5FqPk3R5##72HVHk_mts@-I>Rr9laeY&;)}7 zcCshk$4lh!4&}k_c!#Sx;IK(PsI^I zPHM&-^7gDL-u~v}i~!g(T)yo*m>+_w=SJr2^5;$YGIq2Qd{`aWL(U(*p-5rXUb;!8 z**SgpyegVYpO67fyKL}fl6IlHL`;e^Pl6w-p4`fw-|ls|eSCou?PNFn;no`s=>u0p z4XMS(ky;%3+%L?o8a)!7>lKh-4V+tS;KAbRTPHv*Y6JL3 zo6@KMj`n3M0RZ;#5IBq)L`~sSRv5JCNsk1g4q8{BJk)s@4LS9Cy6Z)g33TAYsm%V4NMWi4`Q;E?r&Y1rttEFN36};XL~eIjH;vkKG@#_?@M+_Jrmz68#Lx`Td4N#M9}Ao$xRr-=v&S_1N8=?f z#87-(6yi80;3kEoqDg$4HV(%G9A3(5b0szTpWM;$phDcHT$!Uc3!+vcC7)*fxThvD z8xW6UsTxVjHvct_rhq_k5v%Dl!+0QzEU-UR};*E7)UHdf2HR7U?yC0Aio!uZoCW@`>nZ(t)u;cqi}ir;1rHh|)SDv9@k1g0e`O6_`{|$P1d| zeK9UViwVC+tfh8;NJ4SzJ8b__|3t)0>?cyF1qs4M^uQpK*LhDuRA>q0{DC99ilVPB zW0aC=ZYF=@I@SRWF!nWkX$7;ya|5ljxt&9D34t~>9Q2_c7ClZh{*&)sX90)tl^~jo z20J22*?jrX=Wv9jPAU`S?B2M)`r@e-p998ly;%b=ymRMre!eFVL(T748Lan&zi^Kr zOy&^hA}6)@x0bz-W>x1-W*I)Cl!J|2qVol(CkMWv8SU&6_E&9BS(>ThET4LZr6H~v zvP67gVHdc_B!o5>`oK%~U$H_GxCr{nM@`zI{z1fl99?TF!Mvye0b31ABrGYeeJQ5c z>`OpMct_bf>Q+(Danb>LCV1)8W4+YrnZCznP~7$`ds%R;cU1FI781{}89CQ*qwI7C z4;U9sCx2UZ8#!`UD2zb!iQuP|E9<8OGfsJ}+26+<3Fw29D>;c2Kty914q{;nLEfgbntx{^VNJ=R7}D$u$J07)qFRNv7;z z67Z{9Q822I)}H9&SS20A zMhPvi*TP^_wZ_H9%FQVQ<%av#)OprMmdJobBbDeVrLO6!Jq{ zvF-T&Th2VEWLfs!A((GQ&L0%#eruSQKB$1?gk?U(*#}ybAj;R_Nw+A=w&cOz4(f1v zR(&E+uQglX?epFy|6b3X7k)J6wDTW>wk3`lm-g0#A){_wi=CfwW?g%-sa1Z`l?{HC z*F&oFe+%)8T*u|t5gvDyyB8}$#{Aq=Um2U8?rweQLdezn;RVvZA+9Uv+t#an9=n&Qg@R ze#V>r)L$7#clr*|H{jqC-3C8K;wGM I<+Dxy10N^qng9R* literal 31718 zcmeFa30#hAyFMJ2)w4t%Ls@9>Af?fiN)ru|XwsxnsHjv*^YCPOunI*Q&_pQ>8Z{3h zB^5=a(xfyPnoINWKd!8Izx)06JMHiP?r-n!_uGE&yRxijxbOQquk$?4<2cTXkGiVT zvL)-5FflPLQ$C=e$;7nyE)&zDW0ZwVOibF7dMohb7rO&T9hjInFO&Z-@b4TnV`AFC zq^z({%O$L*+0{e4_MU8yW5A0*rUe`MH$;2yl*>$VI5u+`jPqllmzc}&t8qLIu zzO}wOe1X56P`vR}U`f=dueNRYt)Dak_ip-q;YP;7g$G~Qwa8Yv50@X_u;u#oo@c|; zj(YA%nRP7|YhTnA*7=rx8pOpgQO&lBN|WDs&+vRCKR2p9S%4o35#EdN<9DeA%=kfd zUC4?b8-{-3z>mEhzlh_9_ls3__`!68_api7_up7!>Bgjde7Nh?pi4ol(!S1jDJHVg z($b976J>rz`A)SXc6Yy;nVDUrE@5HGwrw`@70r1Lb(FVGwTxxiw#t~lycHD{bx@luoMo;)r`@3l zsfnm7!jrFTy@uN^bL%9u6<=hjOERcSHp(}!$&ESt={b$@^5sj@XO}Xq8|-Tnv`Y)M zQ`h0`>Xo%$y`#-4gDt`xb*dwz-A8+l#$UR^F0_Oe=J@_-e0+TA#mgM_2gdrEnkO3hnF)a80+ZhQ0}Fs+EoS%iAuA_xqbQa1s}GY z=JCB&H{ZEG`AgegwkxH_edvDdt5;h$=ViuTmXG0?W&fG=euu|z(Wl?W(irLVRo0DJ zLes6@(Hm>AR^Ix;5{vwTg$yoHWyU{V(CkzR5ne{)I9swJDB)-P_jmT?Ywf~3M;mAi zu@;x;4*vCuii)<6C(J4LEUF{^?KM=pml4uarE5$CkJiK=dBDoK=cI*&>}dUoix)4_ z7{$fKzpUEw(714tu}bw6LN_LXq=`(!9fCV1Uu^P!m#CZK+}~2llcv}6e7!A)jK?^( zX;)QvV}f=fc1uTRCj$TTrS&#(KSDfMXq@NNC^CTbw}+3uzE7Ge=Z!ph@?@Ap zl>~jF(q!c~8?CJQ2OnB`P+0aUiIqo^YbCOLc)m1j3GOft)e8tcb3D3gcbeTtp59d? zH$8bO|091HQf1^s`7c95(x7R$fNndDM=MNj1#C@SLF|}6BKlOjEA~cq0 zCN`K{?+E7DDRrv@fw?f^BbMwRRF41dTmQ=(rxuS&7((;ib^vq z1DkY}7W0hlI?$IGy)nR@b@Ny)&*hAaT_&scDpJG~o>zrSTDei)8IxpCdE@G$J$_%) z#u7hmNDn!EeJObyD;a^(B|7R`5f7?zo)<3+QiHX&6nbO?7 z*vsmRvs#@jNOBRccm3@@`@Bg!J(;x>pInY8;!mB)B4L6(p>T`$KaH{eOO}URAd`B; zrRX{JxAJl88g26*#R9rAmB0LB=hu$%iWBs4=0iqjWk`xqewKEkPPn9V-`fXjD0dS{ zRg(P$Ljou+l7ps$?WLRcU#&k8j$)EwS(`8MIW{(yolYR(tp6&!E$(Qh*hfA-zF(!?&e_=Xt+fanykasP1yo~@ zZ8L*+?xD|4Z$I&TdZL=Hs@(8xN_40B%lZ=&S419(UV1-d=641gtP`{0kbCj+CC6@SJydYrB>nGz zRl#qwS|Wfh=5FtC{Cc*G)A{M*HLL5U+pmboQF|7?XNV!EsDP+wZQW1mEAX{1UcI_jdVKBLwJ{azMJ-p$jaSoWj|?UQSOF$|8NdQkKLhin8 z&o0-!i@NVBYX3eVxJe~1FK^}sDK$T9m*;>0ChLh$@t5q&0kF<}ch9N!Lo?PA*&S=I5=h{UNs(7$wk^Hw;+hEezFeC8rJiRm zP!zovJ;Y~WX^aqpkV zW)bn2{PMtTxnp0`1b~mAfw8)Js^ho!OIYJAYg2AK(#gD&=g$1RB_(-ey`F|vbE}d4 z%K^LVszWDlwLRUOa_fTqrOO?+I?89774-$#ReCn->FMPFPoYf;(it^!znfP(>U{$7 z9kb96t;NM9%p3+;*0&KOpPpY+ljscejhsw<#>(P8G4*)gg`dkf91b-My$TguvwF4G z^yTbYUT-SFu1?GRNU9sx5Z=l6;%$+Mp5Qv7pVw6>Ik-E6W}My8X3G#q;Nzteh3J56XSK- zi84=)J@^>AW3?^b(MKMra_%|zqN>WPC#?((q&x+fb=8(bdWCM^f8h;#jdap}2Up=W zSh}WiG!<(rQZ&6|)23*bWp6aAB)Y?>#Uo$dc2|WPXlbpMLq@rUhUZbWOk>X3Pb?w@ zsrtf8@m+D2na<1n^aPzgT@z#FmhnIziVo*YZ9*+pdT3~9ov7uxXUoI_A5Q!k568Ia z6}X(GwAG*R7s@X_Wc| z7m5Yg1X4CK#u5|hd&@MW6Q=T2{MK@@)+k5JV`Mf5^{RpE95y9C>w8Q z?p(UOe0%xLsr)M$dV;~@%W~u5Uev8tT*xXu5b$YkJ?U_nMgJiK#v#~M9mzdqa)Eid z43ovnsw&m6J_8nkMrG~z_f-Ee^avSGH!m+QHYXWW0@vX#Ph7Bey+v)p z%%+oc3fXb2OBOF)4Co{>djgn7c5b4Yzh~~<5jE-W?~c?xJbL7!r%uubS-H{6grEC( zci?McicM3_cE+}2PrMb%QOAs$d8NO`Mehb4LlRime}Dg;?!7BXbIY;Xw^ePesHN5e z)o?jVwe*;wV^PYD;NajO@=NDwr?0BW(~8lylyk#3=&l9r7~M1wBVUmirxwk@aM z!Z+NwakfU87pTG-JYbCF78!1bm)m*f#*^Fw39*p(E!hfL3veq`%+{+fw_7!QPi9

JuP@Q}ScM&2l~ELl=vtYW70tAE)8wMg>D-FUbFa!Cf+ zT;g^g8*PgUv#su#&y$t`ChaqU_yr6o&Ug(|sDI;evtUhDR23U?+f$(A{U;fHYEayY9SIl{_OGQd^(vV9}4P{{7on>)cE$ zUhtvNeGGRhV^$G}1)a$*nmHrI)f!n9&pQ9mH-}JIDWH#GAJ@#86qMwQ8r}c z(smI5`x~wS?-g_W`VL6S`SWWUW5Az2{b^0ncxm=-?p>$U+Y3X%9Qv&j{n}s=SvWU4 zRV_2sLoNPoG0Wu0mm@$Qwwtb&ebO~NTZ%8@kjwcTb!E$;TLV3hs%K}%ifmCZDQ&<` zTXVUWWim+oZYakCk{(R-nwy=u!m_H;j$zxV(ut7a!V?6+Iyu_wj*$7@*X-W)^7bNT z)}^$9iLTHoiBuHuq2&BNx8BS;oBZA^ubIi2L4Ueo`pNQ(Ym9%Dy9Jy(JuzH)I^Sim z9VJqVVFwzOEaxb~VW61hGArj~g+Pkbz>`HjZ8LTBnYzcztoxdBeX{&zXUBI|OF7JZ zuQS1eLA#=teo`3`D^EcXv}8xb%lxqlF0wI*vNeWw`_8sG7fm&T+`ULOcJIwZe{tOQ z3|4Mry=_6-yOnIZ#;#_Rdto|k=YaTHy{3A3ByHSyrr zl#0B|RGIIFnY=Bvrhl#gBR!*8G!S{NM!D3{ChtqE^lq|&zF+Ij`Q+DlV#0?v;#WDn zTzfN#GvL1EC}mvkJzV}=$OAM6VF|mtx$R%jg4St+-Us4;W}IAzUZ!;Hn!X~zA=fiV z;9lX%Zgy%slii$EW(n^3MR~ad5?%$@!2%)8!}?j)xn)Dxr|~7We)_HUS;2`(4<}qk6`pYytck z+1Jchb>aaFJUFwF<0t?=m;aXc%;0H!ME41FV*elZKrfSIZD4tQKAumr$vz$gQhPpj z@=cUtsi;6swiVmt=V<>?y$HR9(OBHhjKfm4>0qFxxn{;c`O8yqCCMmdW=gf_;5PY7 z?da*`yp8a-FZq21g6}}VbGcsHN2Koqsz9|q-8*XDzNL>oitJ5O1)B7enfy$ZL;HtF zSpIojE(g1^GL|2_bS=PZ@mz9AnwXEN+O2J-h@==+5ZY+wR@XH!`|wDiq0<_DjcvBy zk3+(~-!A4wN{aWx7U6W9c?ZeIchOD;joB^$7Orc^sGNVIqy?lT6v?-zo4MN zSJ&%XQuge4nQZV&!U1@72I-Pw#KY5xBr5Wt*L%StISN`QE=2P2@~aFNso5usmKThE zu%a<4h4Zaj_uo228t*_i2Mf^U&aIx#lr}t-l=rpD^~^sijMlW*LB)XIsKo^F`udJe zobx$zWNtLOh+yKGvDTCWH%EIL=lYzBzP*VqTeMti8%h<)`REpRT2w8iHMxCDLVLjX zpm*zouz=rbNJ(~I;~%s*R7;bZ5(#Ah0>_s3n$j~PZ=vVp+ivQqOKAn2utF}UBR~a7 zNb+oZ396wD_z9!Da}&5ZdCFKTovtW+eNnkEKNd&%^S6{D)y<2snli&LcUHzXpsrr9CouL;ZY}7)Z zn?W;}3Fv_Gi}qJ`cF;ePK08rS4{R> zB&V6aqAe^P2Y>HKN-jDd^yQ6uZ{3H*~`aX_KfAlCs@Myre6hK76*WeEu2z!WM?pa8E z2q9h5%h(g=C~ZiIRaI3H$oYu-W@JA8o}wkqcF&d(73}erKY#Z7^6KhHS^8|abISx! zN6dobJ(ny@3pfUzD#dhG$vMfS0FjcZVT|Kq8I%yO9#lS)_eV7xz=jSsYe znG*kWb*C}*7=MowbkInTA!VRV`badlk;h=^Qv?3;`4Y3Yw+0d}@XIui^<%IXiK&ex zpVos{A!T{vN0%=#Az3!f`dQ}t=YMHvyusE2-D!wyjI!guPBbAdj!#6SKdaFOg$ZX;fgMc`pEp0`?7_;?XSY zqi0Q}xcX}obp_c&x0%Wf{#qftFwefT0vWUiW!36k+?&%6!grth{2IU`sv}k4vCXN5 z3ZFz)niNV8;dPK(B|-d^u{;c)U)^`Y1f*@6OH7y)6ch|YQ$jICW~VWL9&!Qpu?SwX z6WwF)J7Pm^^1i<}0894{0RgIU+E23YSMZ;pIZv=rqob7l=;J^LhKGcRc}4YO)*|CW-|?O{)o2o zY0$H%D02X<_~%SdPY;SegBsz|?vwDfNPoU}Ip77#_ZQky4)Ij+eFuKxAdTTH; zpRpry6ezD-Hm63Pe2dEVGxpP| z*LO2AGN^KZ#=L3~VF3X{0Mx75*m}EXl=%b&Irg0Uj1m*}YX?f;IyrE0jzQ;)o9E+i zb1oFDSEyt2ZEJgRi2*;bO|{hUOD+RP^g`pq_bzj-lLJd2-J9{&mjzeECHH&Tr&69P zYeZOSOF=Vh>G}keylH3UJ$xqv-jKfL{32}D5ECy~v|JUr4D^Q=spNhGE?(wzs`q6R zU>7#jvtK&(<$>(X>A~)ik&%QC#a&F)`B>>NMh?Js=V#cVqb!@%J$SGJd1aj(pD|~2 zAb=4&T~%sK13{0*B9LG3bZ13Sn%+YswU`R*ERcqode0ZHG2CYN@d+v-x7To2iVqtGGH;G&c1nX|%Gqb2->wt2T+1D#XS3Edix*u}$OPFZQ2bw>C`@oc^{ zJGV+BRf0!N$!Yh+LIu5b0Am2`wbDN+#DC<*91te>MT zw$3A9-=BC`DHprr(ZSGd(DAUbu>}oB9mK{gyS9FfT+Zy|HYFN7J!YmPFY2U*rw5 zD}EP$WXvfKpgZ^s+%6G7m$sbpNPreEZ>42NRPNsD7!^PlG;sB|XgXoq+wsd^c+YA_ zb+!Js-uOOyw_$FEh$H{ZHy?U10SCfem`Cw zuSyE|;_~E?LQO zF$e0?)zahW0!sTYXua=x6)I1;efxGy#VQ`3X!l2mW#}}ap^`A3!Ip=XhP18dCr}ac zQ4By(`@mhRemv1IEB8m0$H$B`s)8|auPp~7QV9MiH{mE+<;*f#ma&9`S1oa#~kCi-dynRDM ziY}KBQlt-kah*2hI=|ARafVM;_?JO-t5C>$gUt-{;q*slSw5LPU=J1Y&JwX|{qCMn z+sC(2y09-uBl+|Kv)b()F`C_$A2Plm;GIE~fBogkd;xro=Fa{Dp-@pm%_`mhELBc< z_!3zZ?>DQ2V1+L;o@LX%+2OK1Hny+jJp3$HE`N`qaO zt11(3TWq`esdbsC;~4AJLK7ocX>|XVz-sQYm~&j&n8OYf+PX;nVUZz zP*D-!_`VlSnxjeGNrtC-?wRALl51=h5z=erz^yGm7$jnpw~Jv{vO+2F?I=Nu((X*at zX$2SITIDF97E~KNO${utYIb?!^VGSlR4$^M_M<0@&*kEQnnX#hnNZz*Ulhn z@piO$Xu?9yWWrZKEe3SXTmDIMdf*vMWL-nw;Jk77??k6b6yBgP;zNmh#XqK{h){(L z1oud}wuC%oo-3O!nj4!Nt>>4Nlw{bUed+u3D-ppev~#^bkqt`&?RyF>Md?Lbgg094 z_46!$#qOi?^jyRjpgz zDFwWzUtnTwY5DcSav7Hfvk>iu>*R)KQw}n7&=>%1Kd8|go$sK%TfdEcHTHO{kU&xN zajkW2C0kE} zR7Alf0v{;ES!4?5!~ThR@WBGdeYMe4nU@9Q9Fe>pt+&Ym=3+%butKcCV_{w$!RcQ% zmir6^D;%yAX}6JE(2v?nuK)n!H^guPw9e%@@+P~ zJ%=Bt^J1<;9l+12a9o4Bj%yd#+J>I+keV7<;qT#54{-y8h^}qEA3QK`*v~uw0_Dm1 zMJOh-GyQZ~US12(?eK4fOE>_QbYVwIA%l2+c0kR8q9{B5bU9HYOlF5di1k5VUmxTK z(YvsHj$`xE7&kU4c@35GYI}-`_8`ryhoQ<*ES~2F@v)KY3A9bvfMoN)<&3ASCkQ@$ z#u_(GW1zQ6Pv;ai${PXXNI>ZTv+CA%*exLOW}j(vvUMbkDk^Q{?8t+d3fS%>>oexz8!cFD@hYS3=HVNi*(JuLzC8yeGFu&S0o z&-kGa-&-{I%qdXB?ox{XBsHZHA=YD7`WlU@u~UN?{A-5M`>&}=_GTc|h-0R6*Tj34 zhdd9TB2xAWk;DXo_&ZGgS`#QaY;q(Ym`Qqo`~OiLBpgYbfnGO3iwKTV5T?=BVc?@k z@d`VLVuC}!RYQF^2O%^hK??8@UloB`foyD?Yu`E0_6*_cg+RSbg~*pjEe5uPv!4|F z_ANkC1;bS;C2P?Gox*cN`kjOJhpuYQ1t}{TP)PGZ&X?HGEvjKIP!BV0n)iUy0dG~0 z;)n?dl8CUt9B9&ghS}NK2}$jqUqb{{G^J>4ERKJFznFy`-y%u2B|v2@Ixl-04T&{+ zDlWw1>8;;U2DWK@@Dq_@f&>Nm`SXzCnn_NB@t3D4aeJPN(I*@}X!pwMYC6Cl z>^wJa-W*1S=i$1O)0g)RIYTFX2(oHl(cJ9Ba5w%rg*f*qJs1h@r{oQGF9@CO40Ui1 z?bS2}9=Riy7lPn;0FMgz#gOpuLL@;%{Uz$k%HIMr&4G99({ZI!Bjls<2atyE> z^p;7EovEs76|^(Ch81);WLv%TL=;)Pe+&B%8XfWxWT^q?;hn-YU1t1MpKsRg%E;Z%eDjL7vMrS|>D z1B}I`IuG?UhWt^~R4Hx0u?X|k8niz4#H58Duakz6k&u)W|FP`N9)>xo+dENX~g z0}A$VwQN!LWOKf=$gBtGv`bXPvl=#8dodo~WorB2c#9i+l@M+}SfvOZb*VSKoTQf) zb@%SwuuG@sqCE~yl zS7f_8JHeQ*VP_APa-VnT)t`t&QzxihgRS8CtAUr-?A&zqoCn|o05yDL4ZsN4d!stJ z9SMm(mk&dP)g6imG*Zh5EV)1;eG9JK#wZO=iAA2{&p# zf6>#S>$Zg#{DE`BvU4}gPyb-Lyn9D#VAs%U30 z%`(-{2+i@iKlj|gv*pV<_hj@O1NIiIbtiE=KuSjw z#Ji-Du69xuq{(S$w~=0xr{k9$F|P{C1s?-{ftk6vPHRJAsN#O)!8k>XB#T6$mE$24=yF{AhoC;s(k9fW!sF%8du?=0oC3ky7;hH**9VcI;&}Y8+jv#|o z5(*T8a4UX`4ebZ@1jH?nIeMH<07F@%2}1MtdyVDC+>si2Er0s->7vQnly!Le$k|}i zW@o1Gf;!Z+J-B26cOwXc0)m1)2=qa7KA$9G=B2;dq0~J zFanC`$A7@km^3QKm*&rs){&=(jo=; z4SHX@wIY`J>K_5Ua_W(ef?3_CLnMn9&KnAC-kONYJ2Wktok16R+fg)dT?H;aVfkMYaOZMB{E?{AUpyw`HlOx>~DOq=~Io z^fl8~-|Bnr!bre%J375-?3IY^!tJ#4CyTp>b?y5g{C7p%4)y4N3Crz&YMAyfpTb`b zDE)gAtT!h~v;^O>yJJ^Z=8FXK%;#)26?7{gpB!HAV-`hfL9kb) zoPff`>*WQv`@z-?rQ3n_$xwhnN=!wTG3k0%n>aZ+fj|ZvWS5HrV+9ya#|B1U=!A|2 z4n|wFyQkNY3Mfw@qAYA^WqzFbuuQ=z9eB8?AsyOAzWJ*=GgD)&u~ugn6Q!69Fkc>@ z2~7Eju!*I{r;E)ri(BFeu0o z_|_TI3b;r7*FuyYa146K29coC(CVUJ1J)2F)(&Dg!!5g}2*b(oAl&Jovhu|2RR8dj zPlGP#mrkVBqY*Nk7TSY;KouEgWiNwT44Bk{hl5JK8`uXBq#9Nv=%pJ~Dr}*blI;oQ znOHMG<-u$ybhcI9%ZHOqj)=64P>j$q;6giEd3`1fD@>-|xSGfp>%O8e~c@_uAr z$m_U2M|k2N>ZKj82;2&4yA(IujOkv2j6f*hiaB8{Y|;F~v51GJ9dj_q$hrADLAZVS z{l@6hNJX1haCad!V&b3&_>;IzU}e*Z*W_Ugp!*C7(Qf&E$^=;Jd$B;=U0W@IMbB>5f7bs!ugF zXnu!wAOmhhbk`i`UhktZ^aOQAjQH`?IRU(({mO!{Es;h44c1AJvG-%ppS%FZ1uii6 z{1`je+2~Z>S`3v~1b$lpbd<*=GJ*s422c%hbq4kq(9^b^J9lb8J5`kgqJ3~U)M>2Q z`7)IN@WkXierf3$IPvOZ>%?DzV?uscIeeHC+yS05wi&$u+7Rlce!kP0Sxa;cvXBEw zRRVlT##2S0LIXNz_{1KQP8~%9n;8Jgmq;{|VRUdZ*y*IrrWV7t9OU8%XpM+iPP-o) z+ci^g?Z;NT3pw`I&6}%;tP21&+fSd%uRTn15{-dk(#=Eh@&1H1p}uC(sa0bS7*uG} zSnmivj264#>sMZ!w}Vb2>|L)Aq8P|g7JJ_&r|lA$MyecI30pWriOCkSC-gdHE!bIb zA;iE00cHqQcMd%xgz4`uZfpXl+?~|&r2SV|)lgHlF?Lk3^}%Ky^6NW>LlE>r>b(fa zD$IXDs)K;BQj8gsNuKC5$cz$HeqhOvB76J>ga)cCigrmS4eeNS?E3Vh#Jt1AABQ%D z3`Ucu3`$lOdm5yVWC&aeXdI}F*a=%4gwKL6zxYUP_Rv1W%0+djO!4F z>GszV$P9E1F2?2HQROKihW5(mV^{L{=nk*r*nV6AjzE}$M-jh-_u>sdSEFOC?{nz( z4jzWx^R*ToB2oyBC0ay!ptND6n@_z3#XB`O-q;@~q#%-9Wlg?$g|7rLrN`x1B8%Wc z$*BP#chFxBqK6#C;|R{UG5D!0ML(0DkqSh+#_Ky7A?HwLP-|*xhP+e_$8OxYa|aCX z-EBqK^b+h>(2wWsbwz5Cqrk+gGF!Y#Rs0?h1TlRe>U>?tUct^1EX(r??V(Zr?z#P( z9s^IwRRyz0f)y7e9KzArVnU?H?LP4w{*7Q^-mM-_Rj}`_ycs*AN{atp#T&P8O90CQ zE)sb4M1|0+xU>RC=lIPLku^Y*;Z7g6(p|A!SP;UlA(sV})4xolbiELfkdR=ge{>bV zPo!8@8rc_wYrzg03+b(fkr?&>e)U^L_wg=8!HDp1qnvGLR~_{7@ya^=*8I_`-?UI3 z_A1Z5e!wvgbK>~e1@-LSX((l$dUG5N{9@yShn{O}xX0%Q;>C|!R)(<+R*r?a%2Hgm zZ=y;Gy^4_IF<&YagLa&bO7h73)dzSMheN7~apL-|H=C+Sp2R(oJ_lIsnuHVxBE1E*>_^0563-3(Y(MS#Y~SGUeqw%cJ-P zpMxq*vIA1P@IVdHxjY5WNKLts1B4o+DKf@rvT?vU0lH? zOT%7{w=Ji2bafF?BLqA@nP7z3#-=nu3=QH((+sm80lV0~&d9kJkVtlJ+5x}{xZy1x z8CD?-sTEg=?>3orKa>m+3G{K+=l9qFBd|_gqN;+VdZkm3m|1z#Cb(RYOe1>Y;U{Xv z+oOwk5EFxX#4jY&i)5Li5&azLZj~CG2Zmt5Q8-AtU$xv420s^E7*^{XDdqL4_ePrQ z1F-Kt;nW5_w7DUnu0uXj&=8(kc3|nUf(hECHNt_wj9D+%|3cgzAG< zxEYDU2_1Uyxk9WUgjpgW4$Iz(efeWw>_wh{CE*G*$$mIOK?R_1YB=F9U4_LaMjDcN zPg|iXW60tN91*LWEmp&sNQ@R#3{e)O#%z^S=|H`PwhV?XBCpXVAJibhq}ZdA_{>n3 z=a!TaNGYGZCg?U}4pu>2Q!vtGOf zBU-Ei7bZEj$ z314HN0LkIUF55wG?!lrUm+H+Hqt(AySAZZ$JEm}5GBBtZ{SrQ!e~koxDnVIRHPd2!-wU1grN}f162aPgOI5G%fNdTRL)KpTiys+^6D zjRfa$yyWtbU{@K?2AFN}dW((&y3xGWlU|@^dj*|=^ zn4n&dg0`!8@q(`^om5gn)1XloG04JUMoDlCL%wMOMp<*Ebm;4$NSPUAvX-89GH8q< zUvW|ZH|c#QL5`UNp1oW^0_b4!6!gLX7wC@OlY|L76Pd146p;kb0*RhvQY4es18fR9 zp7im_AiN3OG|q&7)}~SjAIX$;*>}Ai&TGIy3gSC=4qumNm4L_P+q?Kj$4h;QdI*$3 z?5)Vbp@A8tQ&!-+(U}n+85-yFi47+*=|GKg^iR;29K3yiOhW zNjyTpu=BZt6P*~5Y$$C=-W7?tkU^<(V8V~El+$@x@FnUuw41z7pcc~@oBYJl?MbAh zqUndFRFBdIgE;^32Hci3<27yr4Oq8GE2^*@1(>l)K-uuAY4S3B$nP1x?pG?%T&46OSImJuXg5s)(~ zoA{UeH$hZ9Y6#YSsCVOl@e=Z(;3fvMuD*(E68ouPkDOVnMwVYiVFyW6<@Au8`-qyp~n9%L6W=I}2=BS|2Y zo*-$ZFmrPfj!WX_BAK}O7v9x2uAl(`U5wg>fY>%5409TFV$&8S*diHI06x96~$mlAa8QfI0$N$clzjJUf+|409FsmprB*pASDQd9sDB? zP-<`p8S1$U01mN5VMQH#>IX$4Yl*=@>nAp`kLWBF3*dly-k!Y^13ZXrH&`Ix>70XK zJbX<%MDKP$n-?!$VA&O;Hj9d)cB&B_70;e%-(=WsuN5rhKq5O?Qh3C~#0C$1=uK%? zjn-V*nK_o_FJx=C?>@pJA9<3pW0UaWds zPHZp&iH5=#0N5}K>5CyE?EAWLZEvD59mN>x(4F__5hu1!Y0sh5JXqr#_Z6Q z5Y81yDa`h?cKycxtgPklU1%fydfD-`0`KTB*0hRk#qty3cYoqYozWigJ^>nT@j}w6 zTxws;0dj@p9voXhx-uBfHb;mWaNsd5rGe;)>L?_K4OHyIqQWaVjqZ!U=EV_hlVDgb zQJv6eN3EfQiBP)ws|KJGc0W|nvyU9f>=Aqna>D#1PLCy))qlojIZZUUnc z7wl4y1BTU}r-62ZHhO9PJd~1juoT=9_9t<23c85w7^pGZK&O!LLb%WQ)o0PZU8X`F zH}dU6(Pe5>!_{FAy#?k24@*$W{J}G5xWPNQAfhobMuctSR{$#~$h<-bal!%>A-m{c zm6nCxjC&7IN-b8w$rJ#?WPusiq3r@pl2b3xdlEGxc{sMY=tX(A{9^c4HLyz?(@QA7_ zW;wY5#t5;5#0Mn^_W-1y*X}DIwVfOr6BX6|Gi)qS_F!}v0j?viJ1A5T4w@lH^w4L! z=@=)xVr+*^U20g0$=k=sM1`0YK;|@j?BPn9PD}>?SN8!q#`MYHQ&YpWKI0sT*VvO} zp!oA1VjMdkfCrZ|o>&ibPZ-UWWAkTbY~%0aAm_3%m2Un>e*FDYBL79z^MAq2|0po? z&n$;_MgF271vH2#0iVveO2I-{+~bzts>B?Eeoy;6L-+=2^x6i*s53cgGPi z>tB7^?f>hinh@yBJX;JPNu&}o&kN9p8Ugi48lVq`j|#hnnuqfiP743IC)**^5w-&u zjRBjw%sjVj?g=&-=Z4V9abR02gUw0XzIU+(3J}PZwcr`xtHbob5Qw*{ILiS^U*@Ct zBJ{PMP@C9So*${!Ze=6PiUI7UZWcE6w-RAQ>w{ zJiEZ1x_G|}p&m|NR|)|S5#-L$wb?IDmH79lv_>SKEfE&-M!+7i{O3{m3X93fBsnLy zi;30AJH!Ph=p?Np@(40aXY(39cdQ;#*wfQt6_ux@YF65Er%Iza*(5FPiOCY^NJ3y~ zfM?_=NTUKX=>}=OI3}SNjgPS5V<3K@H+GABTrj9!lyzz`ya0rPY-v899&+Qx3Nlf4 zbJgk~O>}|)pg5Bb`VV*;S7+u5@GL6R5_dvFzwP2u^ieZC=AMwFrlG8+wtOD)?R9OR zo()-`bT(M%6+eQ&+cz4(0}U7}&4XaS3V@tOYB8)XhLdJ0kLJzH?QuB^%KnV#sssN5 z(f!5Cl!y+QX(@`H6)gTnz;MQO=#U_ptHUL;L6zZ(D-$OGysmP~dI~a9n3f1=S$&g?qrOiqMni@abFD z#%LZqWE&hBnvbI!hWc0n3k#I@;{ZUj01f^~{1&dcCDm({N-Y93>Sy`;*#3;V$gyac z8-)+Z3jPb=H)v&Syl#A5=`lyi+_w5Ytj2!R5vBQ=5lIo-I%W}w_YAKjNbFbOrc|Ls%Q*+XA z*w7f@iwQg2+04mz0>Mvgpz~u>aBONJWH&5qiXwUPpGxh+xAdG0;g$@OrF&8CA=4pN zMEd*oHcUZ{kfQ*1qZ`z99a~({f?oJBVF`+H>`X8wgRpycAS@&S|EY3_6xakzTACO9 z&NQ!DP+e_^!TN748bLi;y9sAw^4=AbI$5P|X!XFa7D(2PUgvUDz&JfM;=4{gr3=o-?9kj+-<+V{<(1{Ii=hWb64=A5Sauj zNWjgT^5g^&a?l7-=ZS6#njS{P>O@(%nBKk9nzLHrxMJM|>mKhj@coqHcybHHWHbKX zh}{$^0W+OO;GISCK1cc9wE5{o$__V_Ie7}vY~e>4Uh=l421k65v)jQT;5;0IiMdx7 zDxSVz-f-*W>SLjIWa+a-b2DWA9{;2l;Y1LAt-O6PyHNSyeS-C)ScE8)K1&)4kEFg@ zJHhl5ws0SeGfr4*= z_PHbj5j90TSm>lGL(C@{)tH#ppCf-qfCy2qTTyW_O2eCcg4^9Z)^kcJ;;PR&fEMWDX!WRvDurc~^ zNPnXkFd!-WPT?VmqcDI#EQR&f71K$Eu!xr)67$`uAWwl28_l&FI{7t1`hgJ+6fPd;GBIdAFSOmevTh$U=Pt}}lL-{$ClD*v_{+&6+r#!t4el{{P z0|D(pgd677pbrv>t?kl!1o{NT#Af?SAsPdzhMZRifs-8bg|kU--n^-codAx5TnCvB z0Gkt8XAM6c&LY`qU7rd~UKBJc4yV9=n*>G~wkJnhHDRg|K#o9Y%xa){L@YsCpT$>U z0$m=ysBaBuol5t<2)Vwza; z=bjxPCliAeM7p8eI~c@|ZF+E*0xwQGB1fq8Hi``vcH+y(i4j0iQShbsqC|UoF1@w zyN&hD$inA6QATL=JZwqxlP5d01txdt0Wy;#@`#undl+uk*oC7<)2l0X7a&T-bG1g@esuJ4xgN82+k@`UR;`{Qtmnk;>KbEPTd&R`smrQ1*Y=8w9 z`=2*GM4dkjpB&CbAOIX$dR42vGZ|A15q5PXrYNf1`NVKk4oPGxaI+XUryE}Yqb%Fs z4LpP0c?N0Kl?RP7WnPzFoOc$!2W-AAgO*+sDIJ0jmrCk9SpX|2{?Q?VV-_NC(B6vh zdvbWVWM&a&1{D9$8#iu@2NUZ@=;4YXfj3k#ceO-I63!@M48rKZ7B8WyLG3%N);GBRVble^5?ra~=)C%&4B_z&%ZRSh^;jLTIC{YFDDGTw zZjl5OMQSnTUUM6CkW_)}0S<3i zPOz_Vo>TQ5(Qm+PkKqybopnf6kk3GSwU{46t-Cs={0ha(bWiV5|7lT9JDJCs-_W1a zPzOlWCdM|ba0<+sQ6c=Zk~uMFbAVQ-FVbDtJw(`IJFcAb;{v~pG!c%|3jkf0CpS;mASA1ux~2O4wQ0t}$XPRcb74D$)ufW+@A>H5 z3iAt~JgIC&Ah!vOKw-KA?SjnZK-VM(<`EMR%^K&|;p1IaR+wu;jr#0g9u^ixl|uy( zo3aezU%dSCv_k-!&LvKPV-StVcmjYNoWi5vyf3is0krYL6oC|K`;}HoXB?J-6qt6T zw+=uwob@C^toSmh@f#oevGQ<7Er!Ps29J{L)_X2xx(!Yn2ws9A#2CBEvCb&OnbRc# znA;eV8&ubFlo8!?n_@heSA9y|yFoMT?ME15rxAdjKu#F+`bc&zR0x0~XG!L)=yvX$NqOs^p zR4g^D)!1~yx(0YUu(A##xv##puJDvkcdgo;UGaM-h!qCF6*VMQAzb8{AKNx)J2+At za$5J?*B#sUty$p+QI*WCV%q|F=&hLh8glA)(iH8@EZOV?Y<+lIKkQTDF3$Rui*h)6 z)5^GLjFMG)EJc%;`y#&V)vNC*^nVO~ZhBlW=m4l7D7yv7a>P!DueZf%Vdis3U)>b{ zr3k&w;tFy^&6p)$OK#rFQ2r{VXBdths#89>XM*G#5+Fr9WHU|vzU|h63SaLFLt4P) zunBy@kykH5Ep6}(q~)g2Y)5Cw$pgsC01x3fsI0xF0!>pZ1R;Q$CL|MI*H<3KN6-sk zIM@Z{Xcc`CaL*S256=WuWjkn=g{X%tiF+XRDSL=gRB3&!mgF1B-+#C&-Y z{Ogm>&sds6hYu5505Q~I)=Ajpu@sj-8Cn1e#`sw=E-O4N%+O_J2~Ojh9`+3W%sCAQ zG&aJA}bj9yJ4Pp#}+jzuC2+7?Z2T9>D${9q=W?`Rd z98nLvgxq-(zP=7lN~wfyi0P5i__t_ksKr2MAvt3>b{AcK5&GlBSz{Y5H>(D0JLW;`@3+7y5`KsDq);%*nSB7faM2u_s5DAu&V*B{)&kZesSj)eO^ zrJY$+mFE?Pe^i7Z0hB>P6+}f34n##6L<_}QD=v|si6AJ26=jrQ6$O<+7oyap1`0$F z1(PVWiYRu4F@R_a5gW2x3<^^8AR0pgN{I}D^x3Dq$wgN$dZWwX0RR7e-`?+j_q*RO zmYj-J1NJ5s4iTj+Fpxi4Y$rOYFK3%QhzRtJzFbp;(MbzZZ>BwZ%fsPgrrY_K!j{pa zmToVqzEB7-Y&EZ;^fkG5+;-iWxH@B*;b(RgZgn>>Aa?7hSwTRKb+-8u(JUjd$OdO% zK1!KO@=r@!M)?9JTn^5tYkkjZj&}Lk@vRd}503$~@l2`XoKLI1`1$7&#$Wj6=Hwh^ zPAM91vNkzDlM**gxcS3Oum$D$6483%3EfVvO;m@YB;z zpBmK?fO*{9AuD{*QjY~YF8a1f`kdHZ64xQQsqPcNE%20(wrz|c_PgqSra?mAzuhy} zuEEf{iFt2=jxR+P)JZH$u^Lf=?cH(A`yHztg~v2fG-vgq%U+WAymIekx0WIv|i~Tu=x!YN^)7piKDqas2xFc z2UABuZM;I;2x-#Hm*)Y`^5y-;GQ`J$GHH;&4nVDnDu2g^SjCC9=edDt(J%tCH(>;% za+|OzR;5XaBMmDV9TCtGWZ0NxpATk7sT+zaM%pl=J#FP{VvfH%k{Xbt&J~IvVt?~w zd$+78CYHQ{{6?-+r1#SE7UO6VBXQgB{ulb~O%5w(E2^n`@s~5LrG`hwlb)6)*cSR& zFIJYZY6t{uX+}orI7IRA=Lotw$Z7r@9ke$k`G`dS} zDKdcXblu);Gu2Bx=|kQE!Welx-xX8ZH{Q3Lszl8E(}%)=rUo1Q%tGt`oxA&Qjmbn0 zJIhnDVuap?`uYM)-7y}F<)GEvBelZMo-2uEZj_PIsLKo~YZ43Udys5S%Hbw4_b zLE3mHcIznj&Tp~pGf-+A_Hot7+`AtkytoX$2V7=@U(mTZpi~h}Q`8uN(7=4jtfX(L zesOIm*5F6o(r1TV+=zum+b0yTmdyoeEEBpJu}ZR zWdaRT`YT;Lk_~1aM4{AOed94ySOUa=jNOP0C(N1lI*KY07Qt^k6Tw@+UiJe^YM?QF zw^K8qxrE`gj25DXyRK;b1s{JBnPkLT9fW7*=lC>gOkg|~nQrA%-9zwRkQ_2J3|LV; z{~oC9KdVF6`ro%9!t?Kr9*51da{rD)i!5)jV~~fALj~U-8Ly?d)yQkmsFo%h%F?8HM)#oEP8&Iec~HqTERc9s_yrl5mhb|@vY||mO?nfB%ob0`AkrI&OjCJ!8_F9uX*O5)5+G}r|>h|_baWHNiZLSS5uqyf`S z^1CUUO;xD00mUDOVhnY_J*^ z^F5Wi85dG82F%fz5aSTE;xH8}V)4dB zK9z2P>a60F;35+Trb>v^?1e#;u68>+GZ*=K=gno<9TGrWkK(bBf1{K$QDM{hHCJH0 z^}27-Ule5$&7KS&wX>}(4J>Vc@C=qyG@Zn6@4VNz$QhmdO5m4>Pir=BkP4e4AIxML z?@rKG%TM_LloTt0m(>7KLrM!?6CsCSMLBVhWzkD#?)BDZVGZ3L#`IWi-y7PnSSgqx z6B`^GIpi9Zs+!hKBs*WqO^$6Gg(Iiv+{)-M>Qsd5|Co)Yt!w;s-*~doO4vP^E4~M* z2ox-ZX^QP{#c739val#V=p{b8yG*{ZU~pX~z>M5qpK5~~7EK!6Xz2rS!u=7&^WS8W z1n@7txY=Fxms}Z+3BOV{Pjlsv=-No|^s9tgkXjgwm1HEYzY=;+Zr4$aoJoocu2VGN z44PMCYHXb(ofnGia0p}+j~|aGr!w0jce~xT3VeJ3akMLOd^q1^acIp_m=AuyT|0N0 z7Cc}(uvdhq{U*Q_ixXZ+Jf)dqdzR!GCKAt0pQ3#HkdcN3*V#XU)QM}*oY=MO1RW3Z z;zaH&L!r2w>7GXjJ=`gtu*eT~v7+Dh7Ad7z$JT(eBfDA!X#}=l8+^wIJ6=fqu8d?t4>7Tqffk3krcJ*pvo>Wtlvw!bC?z z*pLC}G?37y5NBSo;^NF89LjijpTS4wNk>(G2zuv4fY#c))TUoeS$_Ota$ktn`ia-F zQuK|Vr0!kd6Bm4dcvdlATY2a=K}XrdAC_;-4cL%<(e}dSo|XDH`|>9!4}b5uMTsfi zGh;9=_v!GMpGW6lLvho#W`4N3t2eZ2s+}7D>GVf$kJjh|jT4lbuO?|Q%{gO{x6C>x zLx0LGW0`bGjNyAA=HK*?UlsKmnmemk9nlD`=8N60^5Q?A{a+udoW8j3eA=j9qg=|R OtY7Q->nrZRJNhryNi3HD diff --git a/docs/articles/AMR_files/figure-html/plot 3-1.png b/docs/articles/AMR_files/figure-html/plot 3-1.png index 11267f63ecbf4e64594bd8487ff9041dc5bfea28..6a3133746a2c3c097e4ade95c4bfe9e4339717a2 100644 GIT binary patch delta 11267 zcmb7qbyQXD*DVHed=)tc`qJ_mD5-Qv2r429Dxrdc3P_g-NNxjLKt)8PRHQ_ty95;k z6qN4nl!S{O4Tl-3{%C}sNGW}`)n8c)|3RdWt=iPazdg0{37`FSqw^Z{u z&TM(J^?u5&?Q5gAQ=iSxchGkGsQk0D^I3pWa8K++_J~_q`j?8GEoGTIpA{L>;p_f6 z?QkCQmy`M{8SsND>$7LgY15L@iPb5ackS9$WGGybxScT}A)!9inoDtyfWU=hGp+E5 zRsO%;9)6T!*>IPdvpCg|Y+iH4S^5c!%wU{Sw04XlCHhQkbDFIIdEiq&znUzkaccfp zR|&pEWI4)1U%%d7p>e}9pT%dCnn2X~2P;_0&h>_t$xb(JRzGlRKJ~-7#4GJz9@zDi zE{>H5$v6%-CK{JVbF(Z~fo(K?M z9Cpm*6BHb-iEWt~?cj3#op+DRedhJ;4LXTee)Rqd#nK0o*l>-X-^BVqjsE`3v@{VR zpWXhDPmVUzA)Reo{o&lBtpdFK{OnR!4fXW&DBSY$OIZ9!WmHA}oppR(+9gdm{l<}x zrx?7{f}|PQC2fAbK6rZ#!T7#{t;KD+iJJfE=BfZObM5$er}6H4oX#ecwjjsmsEXwW z-cb`dl4m>9MlP!@DmLOofcCsZ_($WuhE!|cA-A~+r-@(68jg*Ti&nmtjcM@(kBqKf zy~=xLQ@iicoxC}}Wy6Y!i|3YR8x&vfjh=b%#Mjq|`=_B6zXx&U$15#Y#-EaSuK22B z$BrpdW@l%$QX*2`>BZn;Km0{{1{2FZ<}8N!=^eY!neVVeMkez@rh|Vlz2RB4<*#t# z6)Z0T0s{K>Ds<0YaLjyqe7A@!eXVv%*{4(I&j%je`F=^d9O<&01p`UCp<;Umz8qIy zky4N}M(|Wz7hQMrXqYYcS^7i8-m55mdX%4EEJJP@jB6z%B_*k4YP|>vA--%>)@(sw zb1r?poAG_)E5S$fx9-qsukfG>CsB1$Eb4yWR$Nspw@P__YG|8~UY5g9J+HCx2fb`* zkGKvmnQGJ2;=k6dBgO+-aGBGm6Y$vAesHB&6I<74Vulm6?*g(;%4aTj#l~Ed$OH+e&S}6p=&h6pFfg3ER*wY3q zp*g%^ z#XfZ-BO`7P)LXnk;Z|nmq0EsSL^|f*6iAhAG@QtpA1)~>lInhGz?-sj(}PEX877sH zr^wn#GOdty9A5akP2Zw6?u}(bN>2#ke!+1SR?V6|)VAJ>)qbGb^83sEs~9#|)FpJ? zqF;B_&Q6kniPLp{C^cd@^Hj}piWcy{5|P|};+1BNpF^FIpQ>QG;UndbU4QB>xhXhr z1sMm9MD8_TSNOE9kRya-DmK@uC0RCzKRs&byp?)yVPOHgD_o{X7fq+Qd#j?bzeVfD zH+dBHzEj%TFOVgo;+FN#$!s}CxyY>W?Tg~k-9A48B&=HxzPW^>;vI%`_HHrj3$V^9 zn%J^^oPTxPU)!-gNoG~=+ZgVwY2{?c5)>v@Z@`c3K8w_sn~jW}S6XD#6Emr}Gx@~y z#)+pku3oWQ&w+%v%96^jTt?1+#fiPZfpiwe+c9 z`h&luZF^(7UGBnINokPG^kALcwMRGM^L(y-ak?d!HaB42XgpXO zA0*@WasD}OedBI*6PBq>FMKD1YHALQe%UN$ z6(Vd@ti&XHtv@P4+u~f3$tg-({yL$-mR!O&NH@j8->Zxah=rZ!G$%XIOb16?y43dV z>5lQSvE^d-(|31@Pzxfq3Z9=CE#$K9&Xy88m*YC?v3B!Rv&%@xLMIQii~D5N8Ey}& zrVOnX`KL!M2FfV7=)1!mjO-&h^H!8gt)FiC#_lm~&YFF5kCRpLdQXsJ|FxvCv9VvF z%ErdV-hc0ZI~K(iB_i2qPG;oW>gz(M&ZStKqr9=!&J(?d{`vLsLS~q% zpWwNK&X`o9S$h1t2%mn@X|lBa&RE`(n zY`-56FE+jV)va5%^7Hd6UjzmQ`lv~p{&*$k!=vur?QeYK@!zMq1n{>i^9x?0xTGZP zWaO^@0Bbz;S<$=q`BU$ams3LxNY(2@^~qXl?MH(YPR(nia}o=qhQdybwuM^y1>{b- zs(SsU%<0tGS>%IF8t)fE#<~mTE?k`)f}F6=FkACV_z}IL&NjvQYaA3-?LRT(-I2SE zdCL|;bm8?+I@S>l&1JQ5HvOuR?-2CFU&$NT`LsV=ABagsI&F|_y;0AUJzgqPBPoh4 z2XQrj`W2-SLCqhmON_Qy>J9Z)q;SYMeE4yYHdmAT!q=Arlv!6N78orIo>cMK9rjSg zC`vi$T3@*lUpOPKA)1A)J58t`a6*#v>A%p{)04C7{!YyYL8n~zFcg-;iB!cU+M;>m zB{2PTlVi&|p{$ce^U<+6tcuVFh1zNyWd5B+{td<#ayDf;hDca9htMV>u+vmUY-Me{ z!J~%{r*JBgPJ2+wwEW#(jc`r*eB^RE*3w8cHa>K@uf6~J?^bGlhqt_(Wj$Fx)co)h z0RWtdN)7d{uC5@P{Iw08x5;eptG;e6{OagV!HnLwr$Uc_0_-ZnPYg7sk8jg=jR#MH za)SxltnYLdY7}z73$($je0^zgT8YxKM4QeX5X^I%pOOWPgt(3oMKZ%_9Vqx8B_+^8 zf_!`>KYnoRzkDb_+%n~tGFi3dBtlUYQ>~f`9&s4>8%igK@m^IR(^%viZD@~vX&cy232eaVVpC+QsE;jguuJW{j{O#L6UdmrP zA09!cYv3d)TcLr^QzS|g4~i76@S&~|A^u3&7@g!}J2x@P_P@W&NiDy8kHg^`Nh{^) z)CI}yYNj;Xi`>+RyGz-7{Ev(OzW?*$YOe_sDBLwG8NNgvezes;c%@E*UH-l-y<*yG({uA;f*5!Gx`p37Ki(%`^ zr^Vk!4ueD(<$J{^t97mKP@O0Hp)I11ml^4*)EGDBEX6Dn+CNjDxoG=5_CfYyOGPT| z>a@!zSyD#`zMJG8y!wa~a;r-)@((`DN+F5x=QSf^V{5K$f=(lU8ZxuZK}tPy&v?SbB@iPdcPpgw}qM66Y3RO6wqaf zO(%2Ju2iZAaMJKSEi5by4?Q%UGo3v+xJ3N=3|Y^+AqUTjB5;NP`Ce31XBrW-hLKei znbFS_RQsLy)i0VV;9g)<@}lW_hi4%d;c9j)NZMZd_or33YyHo}A(UJAg}0|D|*eRwCd)I~IEQ@L?@4hlSBX^+3t}JUkKN%Fz{#g!mGRzROTDs@Z*Z ztgC9e?$SLD1TmRJ_+WLTmBtxkKDx}>&5x$Sl7Tq|BQ}@EG?uoSeXM-C!_9CtQL5vyNHEfYn$HvBnlRn$Vm)f2E1Sw2GU|Iqk44hvBBibBj6TOc;-W%V$MN6; zQudw9eA=BoJ=V0A_XXBpz|KpzxfZs2*bJxlG`r6a3FsspwN&5jL(F{U63m_`r{;fo zu=(Bw4xO&nH`Og^Np?)6)MX7)+936=n5&4}L!|70h{tc-#By|~qrh_>dnknSctcO1JW$)+d>ce_F-#F5%Z_Ci(LLp_Y@4 z@7biU_1@X0cQy?F_mZ3It=y*ig1@f)pxN^|egHLx$d%)Vn<(7ClZ`u$usip@c@tj7 z*1zZ(&GZLsdL}B=W8E9>kGPGvB)iV*FU{3Z^IM6$+vcvxjw8)bujZ6X-QWGS^jL)r zk7`#t(!yL(=vpCKz#5^f-}%)1Kq)&jyQG+4U1k7uEuMb_JJc_fJ=+}+K#Xife<0)m zMYt^q%}cTBgG24lR0X4IBOW@tcl3Y$w@93)2G510M$o3@+VAfW&n0wiZEbx8nEl>X zMz;U;oEK5brRJmYS-w$&V;xc#w?($$i#F;_d=HcwuTYnd>2k>}fr;>kCe2;NCew3J zM&;$@#S&(WleB`Wd!N9-3ZWWhE_XhhPfrlfjM2-^D1Jdgv&cMAqoe?$V^t((7RJlW zmmkWWSekE%MI6ZLMgcIhWkQtJn?_V!Upz|g{~p(A|83|ZHgLnC5YWq#oUG$B{JmRf z*_rWF^Yj*r$!=_H)QZ-Yo$d4iy{ZQ_pY3w>;00J}8YCX=x^cmwE=*jxp+8+~6sW-E zP3wtW{eh3kH1*j=7#iF7&k`hw8F)#B&qYV6UUX=(uhBeiy0g)63;1d1ME`6QQa5_E zN}~Dt4terx>4mOURK+Fh?8)l>p^MO^Q8I4sH5}3@zZ#pJ2V$uC^xMv#BvX`>7xmu_ zMNW?zq4xr8eHc3}?9VRieC?~8=bycq5Vxo$PR=ev;DbY#`zxbJ?1quUmpc(lEDn4~ zEY(RitAe;7rV>M{OrMkN)*WE|u~8DxZdZNISl~j2s0S(9E4#NZSNDD)A)$q`qAgk* zgaO!^*kFS#MI^a0TmZ=21H?d!P$s)_@c=w|f%vQr9zth$oh4-sq2h zw|xfqIoDpgmu%JK48=ywH?$OZvYpY^t_HUuu}NH>`Q64W!4NenDJI=|W7TO#UdZS{ zl#DFdWKB0FMn;ktalJ3hPmywu{pvR`#K1&sYRs;F!e|4x$Fpb8?k@RR(dX>BXRG0a>>)+09u0?(CK+|%JQZd8yPJ^Qp~pAW-3K)qDxOgt87U$q@Z&k z*#fNTR&&A8^6R)939ogD#vxAK{wToW(o(@aduD(=3xH6ptiyMpU~84Vm6&@0?7vwb zb-DEZ_tA3`eHD=N0LC|fQxr^xafn-WF0rI*oo$aGSwTs5jUUSyXnB7G`0oy0p)K^t z$#dC#-;d7hTWM)CT3Ch+?AM|1vf)~2^&c^4UGFsk0<8=dk=zaz4a{4??XjC!qkM?9 zd-dx6BGR8_<^5xz(9wC;Z;%<>hvwvX*)0JosYx!{p|2imed2on-&w8Ics*nU}&)`o{DU>R|kWg9c>R0Fo;Pb9myOFecS>TvJaZ1Zg zPpntFSUjgp?=|#z`HEtMs&4B`(7IDkP-+=siw(pB21{7$QQ80(v$%h`80nuVc$QNo zkEyDX2d!AOhJ+wAap$l`D69bIKGe1#KYtcHTiD-=4CHzuPqD5ngcC9Xqph-rBq`rB zs9!S6V5~*bRsrM*y2{9$n+CuH$7UyE${Xk!c(9jz*PRYO?w^42^`OF<`3O;2X-CTM zZ?A#UhfYX44A#c#=gN#^B_<__R@hl&^s`A0qoApZNOw?jGq9OAme#8*|4Poy+1=fp z(gwK^-E$V#cw#F<(}xTL2Rji%$u(q$2kJKjT>1xJ+^p5|X%tU$m#QW+lmvWcb?hw< zD}jDyQJg{h+b^{h*DyRkx|9s#XmX%N9-SeQfb?Xn0IkQ>;~u=XZk_3oUt&>|?0tP( zJh5yA13Ojmr99y-TZq8iI1&lTUdZ9tIFw4Xa4No(wl@ops5n$5VFLv~RfIATmpG!W zO}Rv>BldN;9c#?ZRSb8j=#BjP9*CZrWMq#j4A)FgHDM;zHRX*)gc^Au$5n0-cy@Fu zhYo6zCm9N}D4HO5!+FZdtCQHr?Ln&UOou%}LLuUoIs~OH?(>E}artQyMw@9`kY%rR zKr{tW_=AIkxeHxF@H0Nz-eZGEgQQu{9f+>?-(>}mhT4GsQbtd(3mHZ%aB0jh_xr@- zSCNCxIk_&=!?{a~BlnoNXg+YdkX@=lKQ}7Qbo!`wmj=0%$r97=)P~cLHKcf$QzJtw zEMPBE+z;fCGAe$a<2En;+x2Labt{GYJT$A6l+@>YOu1di&GfDpl?51S?4LaR&(pN- zSLPp)VslJnva-~m3+C0;{&02_&X#p;T-%x4xhl{$=?*+T{^5bD60R4B_KSc_UVu&s zR|}e(&RufrD)xmju$Q0zz+l{G+CVNXTG^Y^l!g9v#;j7|AB*!|1-vS{i+oixfzRpJ zZC%eHJ%O9#&h7=+0J*U7!U}{KHYt+6(8LY{r2MrBRA=>S8O(YiyhgN{KCh_=LHM; zPlb+3%!oWu@3nE<`1eDg3(o2LW7R+e1tU!kPi7bO!f7>cge5NwtuWeAScYOpr|Q^f ztBi?CzZ5}6T=WW*ksvQ`#u9Db8eu(N7FL9a*V>iI<_?5$EuxB+X3Ma4k;`B155(ru z$_Sd>pHyByhf)#G{fz&yUfHdgYAJL|W#=Yrk^EGxK?p=V3@gI`FCaUe=(&akPIice z-k)!{J?4iqt#!TW3GyE&7;Sxik+jb3fkGGkL>8&S=1S_#(6ls3k2qlcn!m{^FuBG0 zkIeye9?Mp#*uTeVwnRi)G?#~|a$Rq|=`xZn;qg0^YtiJtZi-rYaOkagX0k=yRe1S- z68H5H#%n&m{6&n3VZZ|8J~9eFS65B1_e!_xv2sTRN|U3mXzyH1G9GN^A&qKG!v+z} zvS8VJ>sd~pJQ?>@A_oDh(I?zIg*-WAQZP}Q3isrb=w3yg|X^0ILksM?J)Ce)xX6Oyur~Zfcm?9Xc6rS`prYk=fU;U(qPa^aR?$ zr_%m--U$qs4H^zr_RfLDosb~z==K9yph$sgxCHwwI;#>hx1{xduH`w+Gy_=)?Hd^v zXVdxZDG-m_1H%J6M;7n`>spxUAiO1(rZ7(7U2bdw&3LUI>y&Y0F*lC9wKBH(9v~4b zce|?3`2}>3gvUOc)=%U_%fjN16OFl|cMe*}Z0E`P?+qHpHkvs#N9yn4^os*YCcoP6 zFnSx=tn^)4Z#aK4^;0}FV3lzk9OC&PKLOpXioFe~#DAZ!{g@Gi$U`4%fAC-)8ytS< zdt$cB4+hwsJ9o(D)xcY}T$rqIT>+WQ(dK zZhu~S=OQzeM}EWhcW&GY722tvPDNyJWaK0Vsm-K|~M{9m&-iSg#j|J8f`@78lf z@RI~)C3H1cAv&s332#=h_wCJLjNw@~3vY|6j9iYV-q&Q^c1ug)-GbzeC&PD6vN6s| zG<9R_xIfXSsI=65q)At%M?4@oyj3+3Z3+;UET7h>XR*7N4K9S&pb;y zLIq^V_L3oU;jTPA`Do(O{7>plgQ91<$k_~7S_WNyeJ-CCmp1Y7{JAi>4?4-b7JF@6 z{eYTMnsf3`WBz`Nahh1OY4W>whFG-j{#_=w__tEFt~^UmRg9xoHwT7+D!kBjDwfM_;uPhLL7`WG(+G54O^mL@#ZNb~va*UBG?<7Z zeL#*yGG*yly+v1h!E;J6X;Gp)B_4_UqK$8o(DX^kqgaW7$@_2G|CtQkIhtb$(@jfOQyeShSE%F|}F_x%W z7QQ!FA>iH(e?h$!KNJ8Qa(jTPv@Pl&#FZ!^Zd2!$2^pf>ZIv=ON{Ise%uOv&p(j)N z_2rWKWOF6TxpR{oB$K{AGU>U2f!#&{`tK$KCq%&!vl1x#iVXXKwVQXp3oc_-JlbTJ zL}u`^0L2N6>=1cYnGQop2C{;X43Zu{K|lay2ZS^NbdQ;`6Ivj&mP?M5Hl&)`XIIeC zb|uWhF}e#kKKKLF2sdmW1~ipHk~svLrOEWr|OJjbyGirPj@JL zeHbw$3C--;-TBMtin&Qq0Sa?P4;G#>2$M86YpfWfB=~L>hzLLcj=BpdW0Gt6NiznM z*u#)UD7dp-0`fC?OyuAyysH%#r3)Z>igx3t!bJa8NsQK>iXm%4qsV_*1ZB{Bp`?-l zf%5ZpWuzlXmT#yOxtvOsAWT^Cjtn|TDKzj941qX6C}-xfscB!zOLCf`AW$V>Lr$d0 z!I)b%h?9K31VI_DjqgCiB>@#cfZHwik;!mFAX2wAZLF9Np8O(oW#iQn0S1n1C(R60 zREpqy$s*)rhLx)d1>rpwVgJT88ltgAk7I1GJL?#x#qlHds1cnFA3uJef!{3gmJ z%vw@mZeW{h@v-^G^ed%-QhmV!hiMXyMm$$+^NngeHWB&0MpA{iUxjv*KC! zSDq5hX=KxfHV+Utj?sICs4lr))=EAb&0ahTSYZjP62P1n^DS8z;R%U}N)%wtsMeVa zRhWm|-XLu<(fiAkWqC&)POSF&3%ykZLF*w1T9*(pJ2w!^1=|yul!DfX+kQo^OS5?sV2c&dHE7PQDum>L+Z~0h#mg6=V^gqnJ=+8FqKK>G9b?)4`uT$W8MiT4dE`i91<29t(r1M2}eLxV4pYMg)6NsVzT}C$E z6w)LmH(yPv>p2(g_r0il-yrZ5Dsy0)9#_9PlH_~S0Bs`}DgbXa07P|X*#bep7}^G1 zE#3==u|oJ??Ouyp#7Wt&W5+8fA^;*B3KD|i4PPO#jKlMp%x(IU>TOQ_FAl4_AVJ?z+xEQHL&@S$I<<=Tf=}Kj4^1) z{f}Q+KH3giH$j;?0`LG;L49>%rhg75 z-`NmFpfQ{$SptI-jF3uR2=MLQo8ESp?O9PLUbvFB>n6S*FN^QnM0zBzwP8u!q~?=w zHde#~2jxI=JW%Y3>7?zrksSjx)_Q!f*s&<)6Sg{ogxgjwBRmlBmK!6NT6fQx|@BDRtbU#Xr z?72WJBs0K~fZy@eKln<8Z%`juhYG7nV+}9y1Y+2436hb;>t2c!jIryXZO|oAxMgHq zV0?p#Y{Dbz{yg|eKG6I;rgWp^Hwk(88ISoa24I-FPr{qzlykk_QyL^9o45PK@)GNd z%gVUK%+Pg)3d?SMf0YStoj8#oB71Y_5Rg`QUw`=e$7?5R0AbfSOBJ`P^_{0^udp5K zpi`{hrYNw}rw9{R*2kZoazd`4iM`1npx^Lmm7+7KZukG9nb=k`H0-~*Ll(^Wcs3Q%tvYpa-|fvN zPrF_`Z(v)VMcpMmh`zmX*-t;fk^GuyBf`7Fil*=4$f>7g-^+MCh>lx$m%_`{hn^lZ z=TJBtbMoXVO&#Wqyx!w(?`Q6(oUt70n4GdrGl{id8MCL_KU(3*!Gm9UH*9~Xu`yZU;;sJ!=ys*b delta 11345 zcmaia2~>^i+kQkgQ8|t&CEHL3r9&f46bdOx(JZ8S(xmY}CFw)rC0%x%LB|jI zuVuo|!O~A-E69Ivo^EAg@@5>P53Sy4^wmG4fGs>ep5I^by3?k}W9sVa+4lXil#Y&$ zIQ3Vb#%y;81&CQTN1YAiC=_dPNwM#5P*h%Z=&GNNz46y%1B(85Pt7(li_heRBcr1> zH*UyMO8o>Af>&W-p`!A#bXG$;$Esw)z|d*A-T2Q4FQowCZe?OdwJ9|DdRf53 z4SeOn5|fVv^M2O9zB)P3v}zsag-e$*&9j$bxM$V5ZeN|B85hhQJD(epZ1ue`&>|}) zHC32anV^$BJ=#?fDnk@K-ipzU>N@wUwKUU2>(ym2bJd3S&*`?=(-nnzz*9VB0p7h{U)6mdJTzUp?!l_lB?mTW& z#WD-SY8Q3JtK@lVdLO1-FVjplQn9ukez1NQ<}629xpL)2T}J~Im8!yftZ|;|#sA(O z9v;3hKg+)5&&vh3h-KqWKO_coHpu>L$tUobSkcb*b}q+uZz?UL#VuR+*L=0t;_4#2qyw^koNRK4vuG>wNOQZyD<+oVw1=wu z@OXF+tBk6>riR9%AfZL+`yAW6J~=s=e}%oK8fzG#k#b#4k6HNa*&|kFDfpa2_Smsw z9{n)_G4j26T6Q*_pARq2jf%A_{CFf7CEZ@gwo5`H+q^N|KV;>#OBPE%QHIO5`uh3# zb?-geIj!U1?yblxB(<_$*Zy;Xil%0O!fw$;yU4SFqEuQ(sb8IG2CwPS+8F9c>>GE@(a|y2J}%+;^VVlqJ-@m*8yIxl zU$?DCNWR`tgP((cMberbv?pQrD#K4aD&qN_^R4Gr@rE?hjGMzh(oE}W#U-vH5~(yD zho&^$Y_*Hp+H<{ni%z5c1_lPEwehFw=Jbn+>#vU{aTM&k#UXot)1891p0TG|P8bB@ z_5-w}8y%lG8!x`n+_+%b8eM9E7&^Kk<0^|MHjtyR?`w*w+2YVUb~y_75!>jxf4^oJ z9MW~{@aehuH99^%=&;RoihjYZW#bL&@BpJ9_Oyb7jw9_csxQ@Bk}C-5S=;^wyXG86 zVy=y6|Gs^)l#LrVUM+gOckkZALj}wd4g=c%M4p9w=Et9z)@?UzY?Q^n(_#f49>4Ol zGHjQ;XOOV*msI2GBldk$(_NvK^+{n^?ag{F)~*iBcxON+_xH7)ns(h^490#|&CgC+ zR)v4KvyydWWQ0YGjq7GHw?kw?w#q+A!XF?c&Z``v-Qqq`f7Pp0FyAFkKA~-CcJ#D& zA#ch2>yu2;=lH%1Xu)flbl0dl>g-PMk7N8h*bw#D*lQv8nADfi6!~e_4t@Q&OEzM? z_?L+A@SWAFw~WjhQupHb=M-|$pFF(xM3EN&!RdI;h-L`kH%3W@dU55kem& zS(n8xr)<@v2xz67%^eF{pUFbkU;X;&vW3zse!r~6Uop1gviuM7%RkoJ1YTl#5SV@Sx4jOjx}r6B;<^ILbTsw z-RuVB(Yk42VeTuaC#_#do1bi1l$V)NsR_|@n>L_?o$)&mI2fw1JAKlWtSDc?yIDLP znjQIQmHEVCPv{>dB_)SPKJJpESmw{$=X$DZXdE_SMECXeeShbEQD%IX9gF;i{8|>= znq+X6nB29m)K`F&IyTUhT{NMa>m)VvGa`o7hS4NcAt_|poO9;Dn@HE$3AJsdrKR~Z zJ#i>1b$Z17SHsYG02N05*P}-$8L1W0v%+(G@Kh#`2#o0e1GqoNzyGZie1zNP^TC=7 zL5<|y{))c7zMh$>FM@P z)u!gBXSO*WRqz7Jh>(GOrcHLp{%GWvS^LXWj+mmw+&}ykMMoY~8UF*Pq&OD?xECspM{2jS$ZBrBlfk^xr#XX}^|r!v zF6B!!CNALj0qK5Zdsj+@bfC2B%);y-G4ys--OcFC%&7*`L;-$&{sRY;%uCA3r212d z>e_e>A%jnUzYKMAni~2p67nTpBjtjAOjvUAdE{sEr5%?jmp2}zP&cqr{S{;P^+jWL zWH|r$@Te|9N2_hOCu8;Rb}~M_!^J$xymY=`+b^A^nb@%!!4j1Y088*8gHMK`uIbZq ztGI0|&j{wGPETMWPOc`r0u6-7$jv9b9{HD^uSQ|`AItf8P8Teoe(J95E~6|56=S@M zqTlh!MyaKC$R5<~t;GHxt!CIV%d4oUQ1r2Y zBI(4`cXuj{jr$0rV+S$cs|W1$l%Dz7*QZ&oM)+fi+DquFA0o3D0-8tcdQ#U_ld;LE zSG|raMj`}hvA;&fmyBXmNRGl=%b3%hfOdzGnjEq%d9J2S`dC7gV&{Q3T_$EkhtEY> zN>i3yV^Iv5a~^Tn6W58aFHP$bMmx)9+jtf)si>@%jgF4q0t6vWohrG#YJ2?~o32{5n~}f`W-XoZ%vCxy1jZ4NbLqDF=$aN=`mRO9Dawj%23W>C@BG zFN1D;vUk)cXPza}^yo3~Zx6%d+&#Gt-}n-F3W(iX|GKR!l*rS6cVE=JLEB~cL(L?Y zn1!~5#lUKUFX&tw1)!!&`JUY}KaiobC(~iD`DKVx&jw{l>#ksjW``D6yaZr`a)p3? z=gw}~lr?VeWK6!$33#<$_UD%ur9Z18_>_XC5N?8(lAfcGf86CIIX_mdTF28Ad!bdl z^%iq_QiZ=^h-2lkRZ_EkDOe4y*Sc3ubd?8ZI}Ext7{5$2ZxoeEB+E|y!fyjdLpGs& zdn^W! z#%>Zx91m367IpttrSM|1zd&}!`K{Br z(Md^3!>gJSnq5ZAIAp!HOOYe%eq$!s?c^abF-fv`rX5#W78fSvC^lW?P1q$NDZlVQHuAc7J5WeZUteEWSGOWWDiJ9_0*`Z4UNhzryJ+b1^yyR74z8Q6w?V0m5e*38 zn{QWc&Y2y^*4mPhlQWmqn=o7MkVg-mUz8sE6EGfoHxUUNV4Cn1Bek)yacDHpSjNnv z7$j~z8mMIUoiG{?XjIp0OExIA$m)&)aX%~q1|KfRE;WXSY31Cs=JryZuc-lz2z8t3 z#s!XEQWHiP^Xx?bs#Tz>Gb1$8Mlphe){z3kkw|Nv+iOe51wo) zP0>?st5UKgR5-m@JgygBBoykxa=1BS#_|a6OO)gLa#_PX1Ipdk=k*Un#^k4VK}wNC za&Br^BqR-!%g28wPMlD4u01zzgre8A@uIehu5RA61tif|^Nc26I$ibZH?m+{%%7=w z|8RpGr7S??%={ibks8#0NP*{(kJO1J{br?a!Owu79xFQL~Kmzd`?Qo<*wm*+C- zYX8;1@1mY-nqfsqO_yq~bzc9fVZhzmt%usXUxqf%JtWILAU?a%B3rHH(j?C}`yZU- zt_vR~wa`_p4WNb;FV@ghn*}s&u|6`$N0e{wgIC_SdC6>Fm}DPewA2K)Y;A8Q5GsAi zrLq*}Rcw+2nQf@5eg|}BYPBpqcx3Xhqn;82Q=Ng91G$sUoNb=m681mdKLjoS291G& z9`eeEJN`yoAn8ZkW#;r>Dg|G!2$_E=GjII%&PqD(Sx!;2dI-GUo2gk9=B$a!Oj4Qmr%-yK>@im&@X8i)CYaKR(iP?oWgEy4l~52Egcq9QwP#v9u*lQ|Cs>o|vqv zxQmI$?y~elH|^Q8r$T0NZmhey#cj49ALh=Dlw!#n?~^OC)^p5?Wfdb>NPLI*UFM*- z%cv_1t;~kkdU6y3uiV+VHRl<3K{Q6a3Hj~am0@z@6?%*r`B{*GM~@zfnbi-CRV#~;eKYsR}@X=OCK#8PS7EOUl8=TDueiAPpLInGd}(!69AZej~sdaBYLEktzNKrOz3FmV*_Pt5s}s7K`Y6#E}CINkGczk2*1 zfBaEDG8tRT^B%i0nLFqzNVEEWZ*#MCF?U&@n6f$QZ2sc>U}ENvzc>mJWUJV>YqzzA zmCIzN+N@(k5CjD6@)Qp*;whohY$~M0XhR)-dKTl|Ahz?^!vx&Nxspn&d~wE)FVyAG z_&9AfvB5;L0n7UOYO(s@dXejDxfV1I%?ykA0%rEe}_>EM!O{A0= z*1(6rn}unA8kPrTahV5pslQW^=N7U4@gBO`X4Jj;W}AnAj6+;!S>R^b%=V{eNTuEu zc6_Jxbcf%?epNYU!fM_3f3gG&-|}O%D&fonPN>yPyh=??E%J@^3TMRjZ1_Wj%eL|u zm9~;~6QjeZQ8L3a#k#Es4B+pj9|*X`XZQ?Q zrACm!$vJn|lyVz9;1=)8+jVO+-rO+IvDeCVvhxricXrdnVtU{$+ktO~X~YoLrDo|} zW%KicME=4|Zzy;J^r^aeA0wt(!!TH_w@bdqqAL8v_r{7G(k-Ecg@<1m{_!EEPIu4U z&5rBEvA{+*OmbftH(>y;G}C$>@`aF!`T+8FhZ{sIUfrK; zb{>q5@FX-bDrCHpM1N{?uJa&L>%)f+P-AObZrpyH1=(`e01DBpO7{3MqPJ0L$};n* z2ZX-fx!?lH_PNMoo2ewKw>-R_H05fl6-LgHyKWmHdSS7GRWRpIZ-tzpLRNrx;=cX+ z<7CDX5urJw1^*c#0W$qtT*aN$fmC?g{? zH(2t!2peYmgi)6k@=2vlJnb}hSY+fi5N+&_S|h!reb8+(+fUbNFF~`a)i5+47xyTU zzko44xCAo}E(p)UkoyJkpI=i9Df)sj$OgC zgZVOc{uQB%b6vpCi@8Og%F1$agDxl^`JCV*b`V!yP`b~u96z1dtYh1HdsQt4{AY$H zp?4K9&I1(!nuytqAtu07YTzC~ispN8OQb{B^YOhzDfsTrvt88eQq6~BCQ?eT*bcWp zVfdUbe!O)Q)nXl|uu+Taq`=<2j!0$l%^Zd6<+%<5HJn^0(=(30lku0MgvH0l59ibS zMY)^d8ffxYxDiqw@)Ei8CyXUIg#%XW%~N&UNB$L8V+UwQKDC}bVDe1NQn$wxY#L{A7eKLUvVlSdmz^B#OJKX zv)^ngFu

;4!b?#k>qT;x;$6Nk9`hPLPYB*9PFv2jIR)u+(hY?%X#F(hadW4i0ph z5_aOzCNQIxLb4dYwrI+#R+2FP^!MJtilIt5cI2udNosnw_0HZsBf+BrzO~~@Td|i6 z)?6#YBG}Kb4kaSC9}Z*w!gyi}u{b|kA(M}R-&$0dTgFe+_=a<-s}Jm&{)uI_z|RHnsN1YFp}=C zDP6E2#tB+(u*#ItNBtbTcjl2Fta?$fo8 z;zQ^%ooxVbK4jHepjdI|6$c4Qm(M_1jm?c#7&>h-yXO^6U%yI4?3Y`^BoXYfO$@<) z-D>&a!-rA2OIuecNGyS7Q96VUeYCv1bwyMHaiO*T?bL%cbQKm6!kCo{$(;E!{1F@Q zO=_Y(0y6>IW~Gw25K1gKX5A-;60OF$T;9=f8g5xjqFz4A3qa{GI1pI}&$Bn(C=~$A zUDUBtJLGRRb(Fj%?X+C$7BD2t{=D8G%8|(Sv#7VzWtR8ZxEqFUlh+U?HI)Si;oW2p zWbI$7qwLaC&x=-_k5UTGf)hdGAU6aRLfDEQmw$Yolaq7Y{D|$(%9qNaxF;?rN3z=H zo1=)Z6+%*qN(%}K>aKn{2~tuNAv5)sJxV!L_uM%S*-RKc+r&5F8P~ogEM9bTTX?$X zjIJv&UIU4@-TM9dCHsAa!})dVxWGG3QohHhlTZc1JMgOQo^P%q88vif}wy z#Tr>x6ek|`cz|8=3>D1E#5d{ zae+#69PKo4+9?rp|IHT;Z6pQLspH2kuy``eRZX@SID{-?am?AMC(e6}4m8_6e+S^5ixX$gsh&}yKG0I!{{q9SH&|rk8jur zXr?|pVrK%gew(9oq_D6RjRUEW{O#K}plTB$Go#tb)T9l_6EL&WTR|Jy1vAU_-70dq z9`~Z~dI*63P4&bjf-Vo0>Me}G2C`^OH$TanPCp~pN}+07ydPn)wVs!SAkOcf;EfP(iW>^RkBxPdF`?r|6TO z;s68|g3^|o12^@@jTavz96koE?4Hl9FMlQKC-yvU0 z$Bx^dT$lUt=eIXDrcJu)>Z0&qhuexPo*j(P%XfpsGDKGY$^c;ls1E+Ud*3WB5VMxK z~~;=XNR5$rAf!^^UBBES}gNrmbV+b$XVL?w|m|<%;#+ zCgvZU-s!ysiwuS|#ZXn20#j|YBa`*=%e1D%x84f7S=hI8$!@{eC$^IbP=8pY=)}o< zu)O;mMCWJ!Y6_WCOcG&56fU?URGM9Htw`Y|d{m$meQ)FtPnB8WP8CL6# zURgCb{(W|G?857jy^yq)nw=_fuzs6utIx&+CZ(FzSs?Gp=GwulMNpkNHKWHi3F_wL zy5lCMfCv4Avv<{fBzm1C zhz=>&mNi1uih|KRe;D1el{8vRKVBZ6ku3dRTWntN`(VU0MaX*zNJ_zh9yc|Q zbR}<3KZ{#K8;35j@SU5lIBLIkoRw>~KSNKBIxw$Y*+Kx zl2FyvU8uRJw{g>^JP>stejmCpD(B9f)7F-RZUGtK6OhB>lgg4)0tZ%ZcyOV5o=;6( zeUmJ-UG!_Iv_0cLGc=N~ojT;tFCf4zVsc@pw-K~2!o`nYV+6$s4ET-AOqEx<;{(WQ zY?(#geE#BWK8UDVG2!Pcx}VeesKTS#S6YTnYo0iEYg3xp9;gPiu<@_>(LT9TA!25w zr&I8qs-uWa05q(`q6yf4G!EGMdH1@aEdDR&S;)@)Z}Tlz;JH@6RBmyZ{ph_bEbs|PoJ~Q z&B<|L_1d&~GpX(G-Mfdf8zTV6`(?0w1KKZ9ivA-61*&WPLE)3Fmy)lQfc@Bk zB9{k<#0^xOu5tI-f3Y^29j$Rrz6O8bFTrcWFgMVxE-URkDX6;zD5}5ck~*a;>DJP;sO;p1i*_+YWY#uDev{v#Yu& z3}{Mske>1G-(oyaH-!w#*HYJ_70p@^EMi&eXq4X&rEVe%OnMkB+8L(V%#|RVXSlvK?+g zACRdggbp(sm2kX^?f*2dPrLqtmE`*&Zx3Go{0#Lc-R$cK_^k{oE=j-L=4XPjo#0rP z5Bbj_ObGY2TggRS81c*RgObnn3{uz)dUoVS`^QrtwD8H{b$|v=ql=6Uu^Ilb`C^OB zw@hn99AA)?Y>h8+I@GBrMp<(BJxp##;BiM+m!Ge%`h^Sa9UbcshdsL0c04G|Oh%tL zomh%N)_G*byMk<#B!`Lj@KM2d1|X9K^XG0*sNM>;gU$0O>?XDGUt8bat&7)CZMp04 zzjb1NHDZ6?xY2z44e4%qh&A7=*LO!#?#hS1HU>*LkVFGDZGbcQ1(nPNrnAT8Dq1hW z0;POM8#=M!3jrEQ;x z_|#OA1&;{~`lr=LsymHiJA7o+<;Zj{tAb_FLIHp3%l0h9Q)vtl`D_%`C0%6S0&PU{)|J;fTo$zu&N#|B@9XSU!$>pcyk8x;P!mQHU4{y+4gTJbE9Sy63lt zP$UhQ26T?wNP9`lerp#<#TXBe1-ahZS3Ee40jFyYWK%E0LI>?#`NvzTDoe;9VDPT1 z`yl?~!7ezrbOM#EyO32-(VVoi(HHH2HJA!Xh^Ujhzn1LOvaVUfDNPdhg3jdX8-J_6 z(&Pqbt;uj1bZ(i2sT|;Y7rqdanZHCJelb9yW$_m+pBkP;k4zA(wWXR~;@K-=_m1+jp)EsTaP za*3EQp!-3iWGRm}36KqIIQf-WA|2pAT4|>y&B*$1QuVy?y?qbExIRfA5T%`JRE1tf z6P!_41RRC1AINq9GgRL5yKGqAQRQ&_Em^%AQFPQ5PWIhzJ0OjBr1G-LPel-1BJ4F4Jje)_Emtr zDvWb+>mQ65Rp^g%X|9ms^Cik|H;T3zlK!}I({VDUi0}#USrmSkIPuHNzmTuP{1ybWk9xNqO- z-uL8udt%*gN5op#_AvI^bys57E=zn~gU_FD$Gtekpe!}cz)ca#q0+EH8jY36o5s)Q z7ree!@)V=)7v6{uZkem*r~JtvPtiPIJ#ugZ{Wi-^igqS0aItqmbk?Gu9TXk)dK z4kYPQ*XcTs|Ey{=giMBgnuM7tDzE!BXwkUO1o#_;(*sn+ah6$NrPdO|2S*|g1Fb`qLAAj~YNNa7AJSRAU!r;gIR^?7rW=<_ zbP#{5c9sV_!-_-qCEe@|Yy-3~Ib`kaC$J=JGIK+U$~IklNZ0ykFq&RnWRH*Zc5%XD zg8cVi8~2ko6ACj5nF~M_n)!dMuiCL=Z$aecJ-Ph5AD*L|k`H34+CawJt)J)`(|4@m z{ihXRpG(KC@Bs?2hZO669MzvNvMp@HtJ z2kYB?JI*(sX4?_zOl7D5Z?_TWj8@=!6sgl;=j3q$;on1N!Oqlc1_rMzM~|`aRZ5ob z+3O&@v<)5ta388wFU#-JSeC-Edik>d`vAZSVrsD=dvqu^R?f1ZcLl|J@3O+(JN{a$ z*~_%gefsuL4O$u z#2osx_TfjaL&1Yyqpn?@XP9;!Zol?!cEKk;rB>I}J*AvCKR#EK>3GO35*8jvE+g#_ z4#yN9k+e1RbCPS{9G0y+{4If7jg>Ezh6^+v5hNQzw*; KC&*sD^Zx*Qve};i diff --git a/docs/articles/AMR_files/figure-html/plot 4-1.png b/docs/articles/AMR_files/figure-html/plot 4-1.png index 7cb52457452488a1064c4377eb53dcc641f18fd0..5ba457e2c729c982ed8c5e5a5890903372419a0d 100644 GIT binary patch literal 66604 zcmd432{e{{`!1|mDM^wcWGb^r=AjfqCG!|1Q>M)GP@!auNRpuenKF}1kupXRA)%0D zjLg$MF36-NhBm&E|YF1AtBLR(%Faq?6f

qtVvaEJKcrtqOZrX(bXNfghV(r|k` z_RahVLkZ%&lCKI*ove7C3LCP|Le zqILi1sMY969?j0!50Tp+taL@r948@}3){M*;fP`+qqG+dJ$M++lI$>q#F_P>u-W_dy zLq&V`cY9k~TL8thwhM`yQp5YM6zc+PIMr?9@}iZ71_s*jO&8+D1Mb{8%Em^@{Pfu~ zn}q&X4nw<)GB-sDs0=h|O`9t>w_sN!C=YQANJ>e`tp07=v}HRfGrre))b32ct^?K# zn@M!K+C=lC|8xJReEiJJ%n7>CtgE^7 zM&7g0E4{Hh_aEsLr&jh}9Ey=8J$NwY(=&ybL61GQrxhdf^7Ex6C6xpte{d<6U%#7I z%+O#Mj1OG9v$d0%iHWJrwZEW1sKoBWqZ4G@jz4Pd*55z+CEKX4wl>wE#37XK1f96k zuL|#FA-d2%4f*-`+L=0^aNkR_qn>VV8ZRzBIUgr{wKlBW?ax!%h&aQz5d|j?kEMe~ zUZ0Au_x*0q@WeKhmVQas%)q;@S1kSvr5D*{6?5TnvF$gHJDxENPkbv~U0K=9xAsYaiMB_uq@-k^Hk{wOJR%|@EiJ8MoQ!qw zowt|QXUo~9*yDS&dSBTOjDE?cH|QCAQBeFnTxRXpuU{PNx|v&R-`?4a({atN{r-{j zTpS$7@)UI0r+>^<1neX~9+t+^^_!!vsmbflyMtuMXJ+0Q#(D|^` zxU{e!>9g`mJKJ#kXqt9*g5>Me2n*-I!NGG6kDW?Zqs_dStcGyllaTnTmvyg6Ds>ad z4NCc2TU_e@ZdLH{@yR#)Fj(E^vz*o3Q&v{i952Cbq_$=A=I%nPF9p}sU0q#GjSDT? zcN;DxNVqmPHY#&!rCx}~+eEJS8Z3`&S>;ZwX5qKB`Lyw}wY8nj{I&k^(JyGb-lh=FDg8?4}%Bq(mGB>!^A4Ecn;(>t8(j7cVAx zvk(0GMZ?J0n{u8W`OVaLb!qna@#9(T2jABdciR*%p`FIX!;@**p5DDDO|LM0jXj86 zmGkRVYqIjomoJsv+x8#Q)z$6R*YAxy|47K*VQD>;%)I%rZYQH@blrzv-pZ7Reln=P zCsww(+4gHumJ6+lN((~G^5_wqIql9A4ozOcA?vG>Ro}yIW{@S7?c(H!Of)!%=3y?43S zb5hD}>SRLn~vkEIpGl^U$NBCS1{$6Fnu}3Vj*b73odmz2&8MohxQL^c&QOYmiRD zFOOSy9y6W50nTdOHPd{Jgd}M&qW{JvwTj!f56BMl&4)2aq$DSgXgJJITw456CLc;? zYHB)?%`PC2>$N!Tu%~i$F0Q!;i&>vfxqrX2+0f7s=a-%0qr78e1z21*P8k`aweIn; zF)w_;>Sht!o_jH~b8{Vu8LJXA5v&S-$ucjMY9;8GdpM7e(9+WO_V!L^^6D4;;(uk? z&XqhFb(eZBz`onF`satZSu!5Ig0q}XWAH*K^3n%J^SR@vu9Ogb*Jx;kM|&TH^=W~ zk`|&_RL?pe`FzJ-#&eHF?NPSmeKa%}cYI7t{=8C6#!q9Q_2ej1P}WK@NY2`kX(4g?_hUmKGLNhi?W!#@WUjqSSR;%HuDG)|)&PnNwf;flp^*zk5p@Q(r~Mw0ED|$HbIv z&BS_QeYtO)FLS%!LD`1Y@1q@A+}2fO2l)=+Mt*&I*5I5O;CsK@ygg-N_yrU}joPThzFZZg#6;omB&dWLbvkti1dm82OR9)#+y?i&-iOT8s zXT^lI*)K-)y33L5%DcW&nRzPlM)F*+d+6}D5Lu*7e8+B@!z!O?rB4%iXUJGpRh7D^ zy3CP|gd}I@(M_Gl)9&T|IYD<`O|2CNv(J4v9_4XxXeg9PMp{y`3?HEsJ2TwUc!Hyt zi9RAS^6BxR{1#~|)Hg%JUSv37+n&yR^Ol=ib|5y3u$tn2tPiVS7t%ieWD$A)ezs91 zBR#!m|C^h*nMZjVIyySJ9S##cVvDDdqsh42l1^=j=fp9%ODAlt)0uhX{G&Q1zDuu7 zW?w|zyd3l{idR=>Qipq^xHUAX+6^@vSUe5H5K7f1%@CVqqGuwe9#(-ec~G|nh&DL$ zqUX!GeKw36$Ni14^&`VgO&XcSFZ}P^X$&9^hLrNMGo{@0%uHMMO3mH<07_Ma^r zBPXxVe3o>U-IuD)FI7}j^jBG$hJvMKdc=9vbUij*mmPQRDkSFTJ4QHj4RDX_e);5d zSCMAAMsCi5pYd%ZBsb36?by*Edh}?jYoE6(mRB~=Z^vHC7PX9aS<+~wWXUWWf5Dz- zMJSYq#GN>Vh3ER#*XCPf*1d2hZ{5135YFfgl!qd21MK>MSAVX@u_cx!-PvltY)wr~ z2;GU_9a;JfQ2^h!Z{O}fwXps68ewbk?X|PK{OvzVQMr`oqY@MOeLwmLSVr(nlBw4n zRNXEnE-o%A`l8*E-G^IVGtcV5+MMg(EPxV*1&-~<^55WSi{HbO7DQA1dCO0>C+Ed7%V#^Nlo^sFPwT~h4)FR8S zZbKdO$WjNoe(AoeTHq=gosoWrrx?dg|I^c-s+u2a&mn7gEWWa!zy0A5-ka7 zmbkH}LpR${%KZnbeMrHN&fKdGx!d>9>HH_bX3l6FzxaqVo9pAEW;V&(d)@dye0v7Ji3EWI%4~|Vf z-cCYdeG61edWd}G?_a0!5e5mDC>e{&AlcfL#Tmbi7r4li;~Cf)T-0&1rjJHS$!g_u z-B#1)1AWzrYBsWg`;T6zV|pLXbUo*!o}OOBd~Vz+cVGWC>ide3LV#V-sP_gXYCgO# za$fPD`@1-tNMAPBW+8+`6eHvM>*J|dLqXL8M_5>7*QVYbG@{`-tk?>EvZp!EW>9ea z~NZ?6k;#xer=0 zbiTg9-bDD{dBbsl^m6Qv-j(dJsqTRjT$OCg3kwEiZmPa%3kz37uVP`w|lghHxN$p2k*{$SEzq4}L+uJvAY}sz~ zdl3OZ?IOs3vu@8^1)E}3Rh7K(?4N$zx27EFW2plvHQzs&#tPesYN)aq@-}|9U;KL(gDl9fq|bt zT>xpw^#9>Pom+R3cP9TZ6z4Juob0R2mh$e*xibCt&6_uX9b6-OL*?^vvT%;-9RVY< zjD`{LLnXMkQoHZB1TST2tuKvcH{>BKkFh(DS(SP%=3NLtx_V$PHPdu_WMrf}pPW&$ zGtX3coGct=@E4D5eZa@(iua?qAGAm>pDWSf<>1iCHw#^HpkS^6o-2&Wd(I!yW}Bvz z{7Axe0x)w>my?q-yJ9I_&=pBRyit!b8e~W@^7dY)m)7;jdj?&R&>+aDdF-5=J~MLV z`Lpt8&PVS%xw^U^@wU`(3R(C0tdX7M^hI@bUGL9+=>GFUBb~@b3Vrbst~h~7P2NM%+UGLW zB}9b07N(-2s7$pS9Hzm?qDrop&py!9`xn!c++dpJP8#p6LV|a#vSH|H}^GK^E#SL!->?;eG_G0=Z>k%;BzUmryJK381G z8I(dnPAAx$Ip71&-EbM^{R);dIET?z<`yHl&VoT&N zg;2WoY$F*{t8D$^3ong)bpiibtv#uPKodRH-8?*mtvZ@oT2x}6N?tJmoW0E}=ujk} zmai5Usi={r0Zy-eTRsvWVRY2!>htEZGRgQID!2UnB%FUg4;kkgZA}hd<9_hL>K{0F zahgE22j*LI<$|dl7U%nXjm))>d>~!OF|)9+0O6Bm%*9==_%lDxZ{0ODH3jvljaB4X z5vO{}FRHc#?)AECBa~KRS??cJ`Pm$wA$4gvbngQLByR%GL5-pAcmPsy$PGz*ahsVgZd3GDbc)hmzL-w-lDI3^$`O-wM-(Jg^0K9=^@ z)Aj0kWxr|DCPPC*FoBPZ!By4D61wNkH7WC#Yh-Bg?%liB$f!@)raR=2*mNzEZ`5SF zNL^&bG4>0EdgXv4Ac#A*Zx@%4&`#G#bDiu(<`ANc>{8WbuVT(#O-=NnJ9hcxyPyN{ z@$o22xEYThH9Hj}DJdxjHMefv8f7>5-g6z)g;hR;bno8zY2uZxUp!%zUG4&$>27=R z;=POvEBw34G}x1hs=i2}3VZxMgmyn2-EX9=@89=PQwzIKo0wjXVmZh!#VhDj#3_gk zj+B44h%irZ{~3#{D26M1X|UL3p1Arm?)u+a4grB~RIEGJMl_ zQ~i@1Gz30jVHcb$*+3))1mxSxv_r{k&c8o%mek>GH`MMzW{#4_$)5hohqP&+bL%Sb z@AMtSdSvi!yoDqBkTnB7@CGD}#{Yy5F z+9dgOL%b#VFBaE{FCqD#==3>P=|XWJg!j-3Yh<*`QER1Xa7AgwxDJm+6#z0DPbn5ESv zfCLr?-KJ^>laAU>eAPc1VR^OTw#c|R3E#C9?52k&@e;A=cKX>AJ3sNQjZeKZ?hKn^ zH^REV%8$^{hlUPNP<(tU7YyY*PCD;xTSk}L43+?r&paqsdzSu}4x;xJ?)>{)qVy%t7aH+f@7xXLa;W8)cuxzJkb*^Ay!+>MXJTunj3_T(hb(LWbtgU^ z?SsNp`o6bAGJ6>%A)~%D;^E-8~2o9zG2t|q{Y3s4=JH}eTp^%vMimcOSyn@g< zB3-Oq#ASWS(%1Iw0;p!@bHH*E;6!G@8vmg)*|aJhzzkY zy~E@~A^R8HP9;$q45PWJNz!}C$;s(2@FQ?y!o7PJJCpP5wbDv*ewv$_?qQN%sq)*w z$jJCiJ`{K*D>1PThXXC5GMtR2rY1B#{($qyTS`0s)&PuPlJY=fhZm z+_{sPnb|>e2l=66jB~j1p~$wB^NlSn+9|_>gJpkPm6iIwRr>ao$)oG>vz=AH%q^F~ zxb7bF`>)%GZLWcoF&6IC)%QY`_4tF(z(5)i+sDl{%%^XAp>YOW|32otk`kq?(`d(e za}VGW2#<~q4k-G@@@G{F&2%+1G%jDhj2?qiiVO(F^c`SrvEU~IgZ1}8LeP3rMR1^Y zK=*Lkm1$5SC?VmADvnTTk3B$1nTH>6n0GNFYFeSTvF`I(o&6#kh&1TEG?GeAzRo~j z*WT`oHYPyQgFA0OGWxw8lOH*j&FDU_E_f05Kw^#V=vesUyT>L?37!56Q-8i}z^)XY zuaL<4eAn@LM(cz3RnQ_y^=6Ppem;JS^X8)f3P^`|Z8xtE_ow;^Jqp*WtfF#IHiS`1 zPo|XFe*qfJMg$$xIgMryN}&rD0Gcc9-f3u+vVq8}*NQLwoS2Y?+KMO(UYE2sR($64 z@KSi$@_|??BJ*7|Mxj`Ho|3YQxru(fI&$Csik0ccy1F{F{+!1;1w=((nYScBn6}2g zA=r0Uyi6AQoXN}2PqfR>b*x0dw`XYMytAbq*u`otg0hcN1#Bo|Qg;u!;%L;};NbnT zPUGF}3+c{=YR_1q?<2*@1_Bh&^L&KLx9GQKWgPtVMKx71BQh0p4KOq^kffw!lMXAf zgrh7~o0jiCcyOfYyxl|BzB@c@Y=ih{q~LCpAhb?FyvmXOna_awEX_|6?YGg83SBzO z2bW45Oq(BzmAZ^KG&N})(aO?ut_j?Sw8?Ls_V@2!h?8M70zXQI6L8ZH#hugF4rhil ztG>aP{^JE;loDjW5fZYS)p3YC`m~_V$=H|i{l~IZmzpvZF4&PWPxO}SKa=0nrcJcz z`#G6$p`geQVq#+A;;im#s>BMKHbilTLo&rt2Rz$*NR(p#{(LkMW=Fp;NxEHRba<-K z?zQxH1dARL5`wNNqFczSBNKN7$m8VddQg_8^t9ELyuDwiipZ||XhbTEP9sl!l1SXh{4p*SaJ8kE(?t+T_FAf^b&<0T!%`m^Gy90 zNn9MR6apynP4lNus-6#?&pOb017tfnI8e%>Tk-3Qk?(mGl|)f{<1=T@;PRpbaW5gE zq0UZDLJMk!`w8F+8B9Rn4^Z~@{f8RbSd?yUoSahPmhr(^@6#;}q#bnRh2 z1E4?LlF0A>3LG4nt)S6qqDPlB*I`J>?*zbT%@^V|kDikN|%tF7PnB&itskeI}Q-a#WvMB-_ z7(m34+&Ti96Ljdd+*TZGoVq$x8gm>nMOlK%&Xl9t%*&-|MnfN}P7{hPWVKj)+Cmt}HdNxwy z;>C}M@@n#AT%wiGBNjhjj}r$wnxdkj(2f12t)FZB4ni^Fx6b$V>(_L5FV1!7U$4)H zZvOlnfco{aKk`?qDgmL7Z1=^1L24QKauGSw-+$|(qnB5iduZe?l;sx+M8#&VL2t@L zX@iwSkpMu-(1psciAjlx>H1D2E62Qc8u>9aqzP>kg@C(lh+7j-Jd!P~{rC9SV)zvD zaf&A4u8y9ZnkR}mnj2{1-yI`B4e}2djWZ)l~PzguR929HbORt3_B$go&=R5N(ly*YJ0BWS>H$3M;6jcrz zf_*`K@&zY?xx})tyCb*%Ix{=FDO%6oOMm~xU7Y>|5)L)Qt7p&u9Z%QBr~glA=f>~; zJEvJoea9w}cc?!}S{XJB+el85GXMUZcGcti!oou8!JQ;YIzi5xcZ`v`{ug-7{#UN+ zf9!xu3Za+r@j}sp0t*0O!w@XcA~|yo+F3yG8F_hWfW7VOLeG5OT(JKfcd7Ejh>$|! zC86{>tv9>PT+2DXJy9>YJDL|+2Ex zP*vt~xae=*wDs#2Yb%Rr0|LV3J0Cuhn{AObnl{n$Q}boz=e`oZ8)|5q+z?cbe2#py ziy1O(rPD|&@(@6n+?g|-;(TuneHMpOUkB38ZgIKuthajUrrJLr(9FC&N*0<$QqyZ> zV+V&kbgLn$3~?V?Y}j#9_nqoqXh5{sGLHN~iFRaf5M!L+0#q1$xDV6tcR`JifVmGJ?vFK3xEmDY0Il3`1=XS(z8+cG zY6#n0+Aj~$(TT%-h5T9PIQgw~zEzpu)ZAP_LE%fLu6hE8VkzsAw-E-L=&Q9txX0b1q-OV_A{`~4lYGN3Zj1Tzc z%E}5DGeZmgQ{?6P1>sFeI1xAUV1j7u<9+Qq$>&c>MwWr%uB6n!vhMAENnPMSI+A12F;r977S`E3-0%h&Qb8Dp_&11nNQcwuThfSK&=&RSiTfy|yrb zRe{ud2rDsEj^UPixAfR}fC0VO(|DN)QZWsRFF$lx7}M|qd4fG##iD;=PraYMHP zJ}2CBea#Ub!!m-P!p8~$xqjmXs_Fxzvz`3Vi>O5imBUb22J820Yis-Zu7CdgnE<an z>%CS8tGz=!uKlyf#o z{04||hAxa#-jXOIBP68p(j3h;Lhyq|?)36$uz?(|05};1IRU2xI+weLhncxK`a%;( z0|L1RplH(Ik^}d#BL4~=KaO}LlpaJF@TYw9R^+(BXW`NSC-9=6{N`^sGA5vh%(rVB z@#5zHAzF`xZ5~k=1Ar5KKJ(*r`fU5Hxbx<-D6`y&P1gaBG&B1NawZ>kh%TpaGB0^QwDbnx1e~V+`U%cQb)LZ@L+NYb5D<_yMobOrr>eHj#mbh0zU@^+1 z0;pa?<#JG<5ULE~P8LK{)9leV{_U|9GH6EX`KZY!tIbaK86~S-EB=&(w5$Hm?fu0^ zZ72k&P>D#N&{|Wnx81l!bR13r%b{09DQi)ge!j$L6_#YIQ=3sbcBa7`@R->jUGulM z_e9^FF5aUU8N~^XdqDP=j7Tqpk_}68^sdzNadXWQlPfcc>rHiapm}$^Ml@*_wO~{9 zv{K4&!@y(>{##^4orSxUq-`-+Gm<-6&Y#`VNm$u!`NKYHI{XO~04!pW)VX$-Pg>O49JL z>jRsGt5mOx&xCmt>M_7NhQ)^=2{8;aKUCAW;$4g8>!|6Y=e{HYF+@&>&oswaKA0AGf`Mot%-VwKf4qj?X zir!FlMUGMXpwUYtuY#knc?=GkFrPuU6tYRwzAw8Q8XFz$>^`owE=EPY;krTj2KRPc z%N`#9rr&E?9Zlt9IO^d8?DXYHqE0#S9c5F*lz|13 zGZg8;;XAxkApJl{%X2pI_MZls(guegA3zN$ftLiQt_2Qn^hH3D8o~#twPx@Glwv2J zIWgc1+?}}VMCN+8a{u+;wxp;jJI~-8`0R21PeAA;D+h{hoLcKREQ; zYUpfx%eo*Qj&l;`S~kTsO#@O@=<3k_`SpvMzJ4uz^ zJfPa44xp4m+TbyGMSvOV2eZoc+zukg<#L;8NO)=wKO<>)1W6xx5-ns!M(1;JO39H- z+lBwc6tmR#HT$moQHURzrW&7|fQbjaMWS#+Wa`7oMDDRd&X?;bv--j}eiwK*7U%#1 zdlYjI32E3;Dj}UtPu=gXywvEY^yrjrTJuzpY#?}koX%Ucrm~Nl0>Y!2u}!>z3pz`Z z`WR|(tfYIM!K-5(Hko$|W4|qTgmy$~mI1QCFZDS=Eln*MIV)&AA)5ffH11^^{`vDI zg0Ce(Dj^}Efx-jHoXKb5iC$I$pjTYnR~T=+yuDF5JQk--Sx?|N`=T+05_}Qn!a#_E zz=p?UWGbOVNNR7k7M2GAFuei08h zw=yY2xBUzZ<-Y4a`>g`+-qkJlD3m;Fg1QSqdw%@u@b~Y`m1jC`O=#DuI@Wc%&+v_^OuhnOG_O#v8E( zHZdJali~^3d;0Y0N?aYtB!sNbFE2@OadEM*RM%{+g&LGjOe(R;Jc7H+E}kI?=L?o3 zeTbweE!X=h#)pT$;9bzk2p@ZCCpwP=`vQ06%HEc1d-Z(whp1lP?oWEH{vSVnM6$H) z${Qk%z{EF47Z)H)4MkX4X7oW|HE2FljjG2l5l{ov*?mfw6Ij+$#*{zbAXueH* z$B~f4ad)&0AWNz6Q<9v_J+`u=f$M$$h5|$K|KWJy|5NfIbd(#$q@<+x*y_tnzkT}# zWx}5VHHI$qeY(AFD8|1|ojPS}`!Z{bK-0T-?@;DQBjV#PUA%aC)NZ#U(H1c=H~%V5 z@fLV{kQA^|$x)&7)hkSt)O6gWNl{Bfhv=w35);sE5qa$~s1Q&H)qINV?ddn1(VYjMJ8(LWWyg*k@LOeO@)YXXjOy&3nVNzvkV=;L*s=BJD*9+< zKz+x{nj!ECAP^rP-!0!;)H%VvxA6Z!9+Kx0le~)d$-=Q5)g89oIuLY6@zklCT}F*4 z*DK#HWNF28^Cuw%Y}>XidCuy7aBy(h9(F~p!c*yZgOaA@Tfl;Q#ZM@ne%?MZHpVj< zR775L%#_|z=#d)zbFXU759aiy#~*YG7nsQ5Qvd;~l@hpcdkPA*t(7Xfm_Z}cK9ojJ zN$VQml9Ja4S&#B5+qg|fuqe$R+zDQ=W5*pe`h>ha?ReuJ${c1!Rig7x@?Q}SVqM}S zNoTzGEk|aZKE?$}F^T64#n~_fq$w?T>66;O?bt+PesJArjHOQPrIYnrmi0+DH`2Y~k%2X3>jr9R>+8k} z=GT+_VcXca@c;YMu^V6W|58c)A1IcNdCnv%0eV>=%2SZek;NWGM1248gA!4~$Vm8; zJl);9#Kr&l8dK9_RS^#!%w_woaudkC?d@Au46Q+$6cDgSEr(Z?bk{DmUBkn}5C}fP zB?5HFekgU1Hqr7YIZ3PDL3zlsa0$Fu>FimUUYG<;2*)uPGDZlIPtcxm2YQA)P!7dF zX%R3Q!i5OX=3xGAVS^JJmtlHNm)>t+IMElL0zJsAAbRvd7X3ee9`VPK$TX^4gP;^Z z0m^)zO_9?V$$6ueDobn7zr+j)8pnd1>_ zq@bqOx+T!<)4uU_Q39sp`wqDO+JiV=)y1(Q`iXW6>yMkE204YDl!F@9q)9ug~O`T51Zg9izJ3dlG=ip#femtvFE(olS( zWl&QXXlOuM)X`Ld7KwpUe9|dWd)yi9?Ek=!K8ziq*8}Pql~0fBHhS%J4R#w0x1Kyn z*z4h_1Z;#4O9vto^BE{v_$CaRR-mhe-WOWI@PJ}9=TV`cQ9*nyc|5>j4XlTcM6ZuU zMy3z^w6AX+00Sx;;WPlaE!@8!MbRM7L=pL$f(4EtSe#<`E_n>cyY_m`d;l!bD^F)> z+@P%>Y^iMwaI(t=LYc1f{W&!B0W%KB-cTJdA_-F>04E_cV_o5z;TiKFmgr5NuCB5j zrWwBDGl?NH0Bp>2BSJsIss+Uw+j4&RNi-y*cxi9(BS(%%O0EpW7-^*#l{mf>kM*&?p6Y} zqNxe!_+xnZsA4Oc!#`UReFy9I#c!?sNBc|bt3-eDHtg7c=I*ZBIdEBdN|5Nhtm#d# ztq=OkB(d#Ar5GGrloB_$xIE9iG#%jY59z@Rxdl2;U~sSm?h2AE&Hz#H090JjGB2G% z`!Rq5-|!`YV{hm_N=iX^GEq<5pRy_9x?8jgp5|n#z#{_5<>Yk-(iV%YzV;=yi+n@m(+!mXYy= zyC#wiQ)d-$XE_MqvT;4c350stk<}0-`1GEHC`M!;v>RmUoe*PZR%}I%4WNK42Gd;o zW#KPJb9T=m(T}yY3aLymV-=XUFs`n7&wLQMbm`J;Dh!0`#z!@qdjXyhbY_X#g+?VL zNJzX@%>Gk<{?Hz~jE3|UxR{ZL){zkbA7#YE+&?{)i)3>iX_e!2$4JH#*S?!xS<(=l z*kR8Rg+~#~_4e)CXs?^+7)4KuDbzI*meYFMI?IksPJiM72$B6Cjb;(N;A7~1SlAt~ zEYw?@L8gI(^8#^*{U{7}_w?j9s_6Nx8LO6(lysPxxvHgw|JbpMr6J8ToU(yUP3M?v zKpSP;rY?)6eIFZ>bQnClQO|FfHe9}S`uoI0FQOJJ5K1FJWKY7o4TDVd);m!0!oywd z?ST|ksex@vpp^i3!BkP0A&v#JJdd%7QuFBCi--`o`hGY5PP{I}?W^xY#GHQJ zo6|jvB8u#YjNF}Vpm_Eyups14@qrTtl|Gk9RnbWHn>3HOUgNg1V6UVUv=+MihfH`m z$Gjko!7NzvyY=45q;hMJhe4U4R9W;tY)sVuIjq+hRyT=a_%kWr8c1Eg&=L-+T*6Z* zB%l~BvY=36)A@`Pa4rG z+MSJbn(99lDzC0{b3;2K^h?fZ4jOSn|2ZO_wn;IP=z%lWV8Am(^7oO{y#+?J84JjA z{uE#^eAexeY)~SUNuhmY=Z_&rZ`e7ag6r$ahO)RDeqbq(;*p!|VG1_ZlzV_Q93k?k z`Qnj(Wb~qpjEv?zbXaQSdmg1LzaDKmT($cPe?WsWci zEMCg_A>(QXiZBS#s_Dar=q(GY^L=n$J2KaxVnwMc&uZgY5Q7SmTG@uH3xBSTo5CVV zG!n99lhx`+?gEm*@lM7J8iJCH3K~GcUp95CJ%cMRWI?5O80B|55yi$Z=W-S7Nr*wR z8GtWvU_w=PZNsSj<&oCp>7t>z4Fq^2prMYHOEwV4wD#S*Z?Ei6U*K?abHlCH?ae|u z#1l<+(+i&~_0rOMK=A|Dnyr)j1N{_aC0HT>3?R#{Np0gV|J(XcgF*^VRzUv}v}o~` zFT5fEJQT8LBdM5}Cc$MZVfd%iHCSMAtiO`r48N<+?q$^jx@O0kx*sO zoI{aJ*GNaj!H`FhW&3Zm2bFG}PF5?t-sc1D3MvSOj|wrVqNn$WO%YS9bZAGEcyBx{ z=gqpK7wWS$gP*gggoNv82hfWQw5MmEpfh=RcwmR5SXhi%06EHW>p97~ofE z4#I29=`V_{M+t(T<`bSO5#N9sg2AFFbXag906q(gi-nNL09hL3d=OTEJ8+XMbX#TP zAp-12kD_Um0|^$ruSe3}9!PMZ*?Oek@pKvp55$OsnOQ@|ug__1kSYq)DP>9d`Lp5N zM{4DV_KOi>m@?6@BZB*}c`mUuJNNEYQC5aK6tDUD`Is-xIIIW`00XYBr;sl&2_xh2 z_blV@LSSCZ%@M{M__)qZ4vmdjw~>w7IXlCdw{m>wXucK6n8s+(`5-=%%_F}!Gd}yZ zzI`%&Qq0CC!8ra6ufeB38qK{ozU6eRGc-oGuN#ot>_~67TuiW^p&H#v-ns8U_Jf=t zm{19OEC$NO=kLCGjcR#)j&XE+eEi3cX}K}wjy*d$R#Sv%uSI)&CezYQW{hGCYZD&b z&9BL`y|$e%gq<5RFGdb71zo{gIIeUoRbDO0TS{!S@BWEFuEj3*f4(Xr@A&pRHuZk4 zze0ZfLtmA)?<60+*T<#?6tBNyV~*oZ-@cvX+zAz2Kaye)Fv*)NNa{Im(zjc zU;wp)lo<-w3$2VSx|sGTej{mkm5v{8gZ}Xoq9fE&f1-*JBFb9z=@DaIt@*5^gNkCTfly?AeTV`HO*5PG;0689QPUcC~s{CxI|lCtvXxSuf1 z?j!fpr00dvb%S!jfNq$$W?ZVb8T$SE_wX=`w%U4n zzsGdA%mrh2Z}$sCj*E(kk&t-YfcGCfaNqznwK%@$gvG}AI=W43vh|IfHf&aTRo-P`^O|n#rF#=v`-JG0QJGviG$TgJ=?KNdHC{ki7o) zgSLMC`ypIO|9L>ye;(fTdiduU$qn(sgU+T%<134#QzW82U;4~5W=Ocv~*hG1#8~gBR1i%5%7{U~SQZ)VdZ-EXE zFdghKizvm294HM|yonerpr-DC@NkJu6ozwF7Mt#ZG=CXD~NN zE2lcv3qVc14~PA0aY586_@QmpCDYS8mPo@;YdXrf{`p&a;t!ub!Dj&rz>^AC0|Ekw^#ihku#ai2mDN>WJfkEW%WWZKxebKc z8I+l5xc~>kn+x+$(9;6jZ%df6hx;db_UW~2*Pv+P=mIX{4TPeN1v(%%(vkHQ9^~^! z?rV+V%}tGs`mdeR9t3=Pk-ijDxx&uO{Jng>7ptRhZ~q5O{QME96E_M8_C#3PF*AW# z5yG?u**@T)p#>bn-^^Q@o5MmvB%!b4X=PQHNy*8H31&D8jP+BfGhVyL!Z85R;m+;b ze0l|SbD5}?mavt91<(o@`@1|ZD_gLC1;{k684vq{JP&`C*)bX}X`_t=JoMae zs{+8peo9KP_HS^UN@ImEWz|tkB?m!0w}P0804T@Q3FzCx9hsG?ckkHYYVyoTO1g|F zILL3PLB)RTSWZq3fl^^$pI+BS+HHF&&{lN*eXz#S6mCker;1yauZYo;QRuhp0oo%RhgP!1eHE;l)A;FBQ}= zbd#FlXu=IZ`gu8kyH08P7_k&AqA6N!d?ymR{BUXqK!RB}&@wsEzdx;2m-V~E+`USQuf z7y^9=D-jw;2tbf0AT+~L-*&8RaA;^~Sl9%T0x*kB9~_tMh!H%x29L4W`s|Yq&NQSj zSVXRkx^e_XMn#$A>Y(9{<2478JOAs`X;rGx30_E>pQaB_e~noLE+URUY+zq*TaRH_ zk%wmtHVi!*7KpLLv>qUl)o!zVceHHarXl*PVHPEnqx0+N9utDj`;hQYh*H&G2hQUjRnAW!5jT4_2 z7O{!s^W)0Obp{t^l2`OJyKh_0XB0Ia-0VujkXf~lj_$Q}R~{^0Afc+7?NAtzy?z&B z?hP(V1nl^(L~&=OGlXg0^P*-uFVp+FMH_m;rHFURtuef(J0D zoq@JvRm`Q(P`5|k4x>ucR8(7c?68_Q&}@enZeJ{nTX-5(AV*Lud>asc2!=p@f|ws8 zA+bHVgH`lQjfo%{k=7Uml#`Q#N=ytSU@AQR(WBQEpI9_Ci9u5}>(Pgf9* zMN-DXajs*X%))*3h1tIdBOf}j*2-v32G${w7CfP)4rYgOco%Bz9p#c6U}U!B)KdfTGl#2Fsy;5k8vl2Eho&;d9Nig*U{v{`azgYFnWbF)t zun}CRt|DdX`U4*$hbbCu{RSa1u`X-jJ_tV@*A5n?ezpDf)O3I5&M`O&biKZP z7AXs*4;zmfFE@y3e98zA(#~y3?U&=j9Wiyb&mHVxydr};s1>s6zZL`q2WtYCL^1a> zcG1lFGpbQw=mC&8<>g^zD?|$fywGQ=YR9;s(j!z8{rwz8knGSIhFa9=$|(JeL1*IrrZP`#id}_SQBsfW-B`sWJp+oZ!7*F9cN^ zS*e>(E;cGkLru*A+xXR{Bo8DEk?Wcwx;Er zyFHf&aN%O~llzG1<}F)>iXT@)_Jdyiwa{uFZT+w9nS1&uBEWu?OqbtTzMDY)8&4MI zuJO=Hw#-HBTO^kM*n9}$Y>tF0v`D0Rad3WX>oGWE;V>z=@^<@IDXoo|f03{h*MCvd z8OIe{EW&l~(IYMvEKL#PC+hwj{hfr<3O-IKiV=z{Ym7F-u2qxxD9X!HAwW;<|C+E}`H^Mxg*HD0^-kvlspp>6;)J%Dd{WD?4|xi=yN~R6^tAMOJ*8 zy`$p{9_hiw)s1VytO%p$m_VsLh0E2`1!oH~Lv2V<PlOMEOR)gp6upBV;2<@1 z(bZaVn_cp}T0>`P$I+EXyl6oE1?XV20|re zOhv+0dM6PXLZtzfjJ1u4B2-AGL^G8J6|v13i%N5bXp|{KsPnvQe}>=h{LXiJoX0u+ zvp4G9Yq;-quXSD5x|WlcUsM#PHlC=CW7ND;)6*T-CB1mp>h2pA)igxc@CBnzJz(IBgU?)K}-`QUocaaLH{rX!a`UTi%;D)c17w??EFL#m!tke8dRk%QBri zcMlNgSYC9Ro%}Z^g;}ds#e7a6-MO~49icV2xnIs2QV2Zwh_&`L$`u4dcC$)OlH=T+ zF0HRLqG^_yTmXVjl9@rolilq($QLY#nQ3j-!;UD;0hp|@$jWM{ipT>96r9RoJ!@F7 zAR1(%oTX~puI)c|EN19*1TY>1F1vfZxGVbV_F)qB{^Q4*(#zj@975endO`x(qi0X~ zE<0g{Xl}HLo=D`Dvc*t0CbBSlOV;0Dw26C8^Gy>PzlQtC!g&;SQfq~ zhvf$Qk6u25w2REZ%q$>1{X3@_S8UxEQZ=;=|)9U3q3S7rF5sh8!G*hEkFXdgBn1 z-vVaL?%tqx?RiB-63?2P?!=bHVdKaDWXDJ=XsygSV**{-zDpll{of5nBi={fM)T`U zoqSE02pCf&x#}DdNF{gwe!R~(&kNUVr~UCqCO%A*(8ObLTyel_%=-McB;@$x|56ya{Kr2S|l!^M~+k>vg4DEPlH={@b&`m)beq)1Cw_~<~C~&N6`J|%g{3R0qLr1_bNsRx%5fc28=A-6sCz{F7 zZ(t@#HSZLUzwj{hOk5dRE8B#sirnZC;-}bQ{aRL2)J)Qwf|0rfWRA`C%}p-&oO-;R z?BEPLLwkd0V&$hDQ(mWA0!k*$k4c_c`y%Y6hRDzE)6DB5~`QpxAOz#m<9to0@+;251N%ppN{IVVVAc2OiOGVc`O_2PCpfM zHkrBki&|IJH!oj?4HYgC;vdt~)A#M$=fiH!E$UELQDLX0fJa5B(zFU7E!rTxLX7AH0;PMkQAJ`cIOSy@pYgXswI?;Uq{2gPkqqj)QIE+IGWRq`5l_lA!j z!KKtRG~7MZ14kd3(SF-xLwdT<=!PoIs^I(gv}oSNFJiNmS5ypEfw)+nSWxiX;^DGU zkx}HJ^|g~!ktpKwtD!D7V z%%cYdZKT|@63W;2Uvb;Ddz4SQPkQ3@)J{&fO~ZV$@BUf5^+aOZ)J}E%@;-L3iQBcY z(!73K%%jVGK30YcR>ZFJ=;3d@$t@#sN@`#WvIHpQJP_==+B>9rAqOxh%knzARVSLd^naB=S1U#M4~kD-tbxnuh!HEP zZ09oxtL{ADSIv^-A`Vow8?0J^tu%dEupX9G|NAEzDqbNDc6R)2iXoRE5FWawRsbV` zq+EC~y?ABn?FaUq+NJlM-ar=1*W8Bx{Ugr2u-b{gIDSE-1ueb5yZXmn+(e!j?bcJ{ z)NHj*LZA-XKmnv0YS-JNVM1&1B{A9>=KpMnu7$(~Y=yIK=8z`>H6YI`=!wAR3J&yl zm*wQWe2ff+GZ9wtJOV%tB2iX8-_d(jXP=o{2kPlumL7AHy@?F_ zHkU>=i~heuyLLzuT*x2TylU7b=VD^2udD0H$>QI^wzo(4iPPXPc)dKM?;IU82RP+3 zZI9on)aCtd9W7lVUd2_Ly}wSi8LFnH@70vya}hvomCmjmJL*c(Q&>+3FJKX3tR{>c z$+;txEWgJBT6}-<$3*Rr2SjCJ3^&2aBP1}Xu8RemJ_?qV^Q--~#r!zw0!`L@J-l=0 z8Gs>4JpAp&zPk!mZ2_C(AcZH%NnO1ZmYOC|&T&9{qz}~2FP?Ur`pbpR=`YSfkR8U3 z7bv8s5uK1Qa$C-xWf5K= z{Y@j&Hnad!ViExZejz2*_;0Tcavvmuv=hDueuc57fj}wtu+FqI7cYJy`$LKKwr$sO zCx=cqHogU#B7OlS9*u%N(+mwo%M#WqBeBpS`bs32#x&C&MjuMEaVMD$Z7*~#dK>N& z0~`U<2@{DU>DKI(Bqt@5QylyxVHT1ko2~4I1{!eVJXaX+>t|CJ-w#e8S6@!*tt|;p zM04+`Z&?LWuDe#dyT^KDMnyT)wQu{h{~+D!t)C@jMMd97czrYF@|u4j;6Yg*yI&QWCSVbLd#OO2-tJx@Rb+u`#60$Gq}gjF7iuKz9Vh$ z@p<+7wZjOSkA|!K135UevlTf=%7}_0C_?<@e)e%6=N;m5>h#d86U{$X6e&<;fS(zj zLHaS~(nhh4q>8(-j!uU6JE~>%(-W(7bfgv?J<#0Z! zB1`H5doAw+R(h;MkgGLhPvfN0FVrn`poC*ZVcEX?H{c z;2WH1rOrG`cq(%c{o4#=^j{ z>)syoal?al<5=`U;3`VvJTc|`Ou#~lSbSmeb$aoP_x3S6DCIn1(-cFFsSG4v+z36J z6f4*~jMmc90tLk2V#!u&<1g{I`$cjLhrGZPBm1k_vr!;x|-o(CQ7Ot5{+=rw8qF zZ{x4p&NZy3F-0pddKM?%gJWZ#D4dCkYK5-GSg-2YvU)mP($)9YKj9ubGu>V5dqWLe zo$sDKnaxcbi(V#2wlOlh_3RPA4JU(G|#gvGk3!ZNPsNJZMazbtQ3%K>_F$l=p#iVFPf zE;QWe{>P?<+_|KjMBYu+k>?BtAqXbA4jObrum3VUHNc$s68o*?G=OF49ss0C*UVhC zrSVpHn9^PM8Uh~m&8nhg=(Z6Ux-v*+zyMpyghGYWzNg21dOQWvp4#08kmc?&VVNWm zUhxFYoG9iE0KZ@)blLr;v^a){;-`nAV$dTBAprrJx6|yy`2*!ciH6!JWmN&DCgGb~ zoQ9;LcKv$0E)c>tAV4|LuUu9R3r`MXB8UTLMc9SV zQ1mM=JM{Ckt$ch6G3@!I`@qB&66sEz1>O2qEk$0WsWQkB6}jvl7!lHJK|E^TvIqwM9?Joxqyi|=ky z4G%uWEe%~`b8oBbxdkbCmmXTX=!7JFdzm|@r3T0=Z`mIIMLPMvS9JYH#Pt94lQ`ZU z`nPel`1gk(&KSrZYrp6`khX|3XI?=b2!;3AYLQ4VN4bF1MsQ)gO8XMkU zzIJ9mw?IADNmKj$ZQb%;W7k{DH;4Dx?;pxMKRbM^zEp7)C`66zT}6$*B>@(}$s>2~ z@i}p@?IrpDToTae*45>M;_a0^!rmu$m|eHX%HeYJ&(mS0iV;iydt!zE>6-Y*T(W=3 z9{#7FC??6N%SZBzZuZC zON@ec%jTXfJxI52_~vjg6v4nL3vc(nT+&I##igF)N?8BBpYy+cFZKx`fq{cn@Un=# zhxy>vfrzrAMmzrdx2cb+-p`5RGtJf2m7r8p3kt$_zJzSVdTVt?#>+n?Ny}TVJ8G9) zUzzM~eK|JPUf8sL{Wq*gX)4@|WU19S1cfRL)_v!n{^SBU#X*Y0#wd2#N#^k8_{KOw zc47K|PQW`!s6qrcPm3z7F%~J9NG$SvzQfyF%CXI!n;&r7N?w`$Vq4bLRAhq70?y(?`6EfHYt zvKV%4u}+AvfCidIwnU5GGuqlQMB+Rr$K!8PdKF>NKp_OSWjIJv^BqkZWKAOLhB!kb zuaP;kEx>LFMK8*+|XXRY7Z-S&uqZq1R}*s+zZ8_H0csWT+TbU-)nFgI6qGe9C8;ot@2{GG4 z&dnmklVF3a&>1UiEx+G-`}(yG@^v|rS+nwd?bmPTT)x7Lg1q(psj1}TK=NuT$d4@~ zn_-=)b6)&|MgIMdUI7re*560eM9DL>?yPqD;>*54J0osht#!yV0N!~^PJ)CWsnf9b z+fHGBry{t;^yUoCt{++4?a*9_-_)*B>oOeHMM>)B*3=qExdxv^tFYwP+p+eMe{w0p zBWc~4AD|3IuTaa1HsH@c%WO5_O7g4+{4Z?o`0U%aS5WsAKKgf>So^WgT6?(4ypc*{ z*Sz9t!1}XqSz2k^=NLBW>qmzxQt8%_9gdHXo<&`o>#-(Q+(0imBeSL-ZzdL5I<~UX zDuM@1--QEh-m!pKikv++&EKaEy!dKb!^3vo`jRAl$+!A59<9X=8v3$fjUzR{>L+w*5ZZp<)sb3iyOTa>yKe&M7Q`11Pil~_ zuia?0^<`evp>kP4HDml#LlsKC455R~?JH^;gh8X1+~^qVt&@MTk zKdX>q4CV+GeB&ZNou8j)H()zvRf>X{66FGJ0J+F6$&K5jx{TFAj++0 zm>Qo64=*^LPBDny2?%fHlcB05hm*nFzbzg06rI*O2JeiB zCHQ7I73s*WuS?30DUg;EJP}1LLM1DOmSg(ZO%4q#$Yc(uQ^obVSpQKV1Mf_~f*KG= zID#aWmP4r4$HI+8`d}9$iJokBh_hkO9a0Ct07Had|*{=b{`IED+|GK&Jp&i~S0mr*xl52D@a*>GbrCyy&|2%jYIW zMd3vJq3A=j3Yw7=QUcp+zsRA*TK(!)%L8@oKEv!%I}L4DMCF|QWfAx3jOw@km7JVe zkBU>f`hi4P1L07Hkm_%OXk>Q?L#o-Cz@(jK|&IXgF+6ETfc^vo-_)v$AkO##kQ&&+D(q7 z`j2|WQk4TBWJb!kYK`5fZah#9u-Aq zm4FNfVMJYa*loW!G08Bqso}huWeh3K<0dz!^heX2o#_ku*i2Rkn0l?KC>>55G_J3< zgT>9u3eFbu1DB*%tbnXtfFKjL68Lm8%byYqqL{r@Ngf?HFgLA?j>KBgcIw(_N zxdtyo3HrCTQwXF|mG-^t`c_Bz+Um}Q7JKl?1S?kzyhPC%J24ZpYDyWl_1!ynhH{V8 zto$lr&zf#*%pd4nqNVR6oro2$U$^hjf#P=!0))JF>dsnWhV$<{@fapeMoA{Z$vnamVl;{m*o%s^b8^J_eRoS$KdGd}q41`vul-!nK*$caMhy8UXI^r1XzYWDXD zDXG!4?$1rX=}>fI_yoNx9#ek#WVazdUOVPm!hj4*mC2jS;aN*mXGzS%kECf|+7C*9 zU}^WL&3aPjBEGpCQ%Kw9wYasEuHWml#6`<>l48eqBuc`LnvM|+Ay($cm7pI*2NJot zfZ-*tz_#kL<`&BjLg&ObR2k)3ew9-R}v zr}U&uXgDwC5ot%U5m>96DUVdvu#(7yN)wVDZZH2LFDMwY+C6v3y_?_dn)ocQyS#j4 z?y-;%hPrJ0xKUEI4M}V6@+`E4?(bjREIixY`Usmq%q}%#d1*R49h#nX^LdB4HCD^S z6cDM|^#X_TSaiTh;94pGi-Gfxv$;R8wveh8*~uCX($e|_Gmy81a--Sli!;xShwmJ+ z@4}ueopfcPDRP_$hZ@o1my7AfA;IpVb|x(ydDr=&ri@{i7wa zq*x1K;6bFURKI7Kzw9uVDUafMq#7Qwxzyg;*{3_ae()2uR?F&{UPihco$UG?-9cTc z!h}t!d+teR4$CB6?HNXGdIVjf4;{|>=JS)5CVsp#aGww$vL}0%>9P18Ji0vCNo_Z- zOt~JDP5e#|W!qm2il1|x->W{Vg?fxwr|RrHdvM{p`r9azUf)!mb^78gqsT+v~Oz zeZDQaQ|pLu?+xd6I_?0E&kb18bM9!;(}tN@Wh=YyC+qXM!<*_G8Cw`HaRWVrhbL)WeNtfrWJ~|~(i;vxo%#$cYoQMO7kd|H~uYGV;R6nc67Y^>8I8HAj;f_cczZ-D~>qa}Nw_ z_;t_Tmec&LR$)^lcYOX+3A#vBs(fu>6G);y6BQy4>qE^wwrtGE{!J-mSTdjDdxu+g z2riKg;1%n3yE}8`-C*>}M;91U|54wM2qmtiO_yh6=*?OLpVkcMogr9Z&*=12b!WGqE{x zuuKaWPF@4+{B{urV5|etBn)*|i4;95N;v(X;z_cbAY_xGhMb;Hqr@@3owM%vrVn?4 zDM(G=W+xYos~}{)eHwXiV4%goYo00O+0uxk7I1QcYiLsG`=4)AqjD6g{=-8@ zsbJB|{a5y^|A!X9_*m-Q9ibFfPAO*T&95AzEsn$fz3AdI{f{b2Z!Rx(M63%KijXJO zld@Y>@UOyg-_n_mWIR%yPq~V-%GTC`lhbW6Y|^;e(tt+;R&c9r;-X^Oh<3KE8i%4|_x@DQw?a|InfJ z0v}RV?5YN~h2pDx zIWyuQv)_eGz zYp73sPs28i~QQ* zgnB?2VhXX#id|u*R4bcn<8K?DA>*ecaP`pL&_GbYrlP=Bv#+k}Rf>CSQgGPn@n4D) zQGl+veR}Skvom)4`SlDCp^?Yj^6UQki*-Lxh1|KeDCNBPbwsjES3N7eE^X7Q)X8o=Y{z3~WsRy#Ix5isP!yte8csbiwnd7L=4v&P6;PT)G&OV)0e2&`IX0-dQo4jj#WMob7U| zN7+`Hj$<5lu@!4#Xp*W!fOn6Er*4o{o+1p;uY?hSSwlx zsWmURO&(?Nlj#re@jLl55L_heKFORSIb2CEXNYK$N4+gSQt8d(B*u@OCifNduddP& z(;hg{`@uVw>|B&j&!H$xnISTWy-jV(=dgy>m;c$Jhf#bG>kuW*I<@heTLmEbTdp|P zM{WBub>*=!nwXo1^k%T>p3iM(#+#GJ;2`r6A@IDabpMNb9rl#GRh-{{$>ZL7?-Wjd zi5si;?r7@L4K623qwKf7q#78mruMO+!Oz#X8V6Y)I$lM|MPDRf4Q+1Ug_%2dF8mA0 zI1%8kce>H#M=)wrG4qyocSDXxOuf-sJgno4a`E~;AKE`@6gLlMor&WU%)q^@EVR{| z0R#|#eQj*CuHi;-Q@Gc^`Rmkkn|$@w@(C%W8=@m3ril-w4!UCfTax}7RDgGi!+UWH;0FZMpYd(XY@*rq3B`_HoG zpNlLlElG~>$5}G!i11+s3>1$*2;rFWx_Y%-0M!;aj}yfi@LKl(&R_BWtO3%RC)IZ! zJP@-h%RFC7k4ZV&6c+KwLJ~UBYYUqJARc>6r5-&7sR(@++Gnyf;RTW6vMBZyC8v>) z2H~xh7<~hykMGZ&uSEM7_g8o`v$%5KT-0kn#cZ$_dq!CAd)&imo_Y{Z8#C+SbZzT7 zU-PR^2Juot;1pdMYnUj0ekr^s4YHGf7*otrr z2m}V2?;EPS+Q6)bV^AaTPPc%sUp*bi6L!IXOVD}EeskjFtedxQ6M6-dD|Cq{0(uyk z^#}*Qp=RzCAe`r|Kad2fbYlYMyg%Isd@9*ASLxD3t%o5Io@LN+u%|8fdF``ok5u)U z*|;Sl#*`CSebRf2SGLj7UHuX#+&DSHtvqRKY5MERtI^dmHJ2AxG?xL3Sz8wpG-#7e z+SPBvomD#e`d8B}W_IsecyP3WU*144!fpY+&9;yvj-DDPPjiMy44DMwqCY6dR&yM( zM-^UZrd3zC3K|W5#{9I6x4Ib2-6PcFUJ^pDZ<>n0K`sD64gg<4zx<|aWTDpkR(iR| zhx#puO#d9Gx5jJbF^T!Yg;yvV(aPaBV)MQ2p`B+}<|2Qf2*!+=t=aU|FH84Xb@h~& zFJHDQ_Be= z@{rfB^T6F4<(+D8(IPuvtZ`h(eW%eOS?BMlR_M^ZhtVtAczXxXeF%{OU_>w0eC{%B z$xUC7?v;Mu9_EoTf*&z?>hasuAg@pF-)ApG>;Pv6jZRmwmpB}!`X8gKrwsm%B<QGIyZU_EA(QdC^0G^J zy>}t$*EhHnZwGh=WWaM?T?M%#M>jV&E8U^&%1<;Yf<=Sz@wr3gjI+@X(Kk!Kko%z400{ZuoE7CrwRVY_yBPWkp6kMdJvbYb2VNUd9Ex+GK4)S&^=Y;js77~tC`=0cO&bnqfx4*)Qe~U^d+n(>KSABW4DOF!@(XqIq!lDU@r_M z?murXD$3WV#LeL8k)!_Ql?XP0CULGW65|7ls?yNp2`Nx1TgsDCZVJu(>^Dla=KDS0}fV)vU*i`O}yA8*%XuJstuveSAPeXEW>526uDi^ylh z2ASVW>II5a^6l>R>tP6Pp=m?49fRtQPMPF{B*hFX7pT9w0|m&iR9@8AdmUU$_hcHz zWlnoyh?bWHQ<=Mr=K3pO7S!2Avy#(6FA>FAa?sByGbFrraLP9oTV1+m~{6Y0f-!U)# z8RVzBm8Z15ysm*$P6hvp3+7EB*KAYCaLKo-jhZxM%k?RP-h9 z0qJ*796ASJc;lAC>r{!_qvC7rgc@Y*3l)BvHy(a zGD@D(*&FkR>%Fr+gTltLPW7>|20JT*3rD2#Q0Com2E#R;)hGb+buKd5P5&h;p=W?% z-IzG10B!iJnqKp0Q1Lx&)#3G#8AFWBK-!&MKDiIa%VFHO;-aFBtY|Wm%VwgDJeH|0 zWQHEMIb}6k3?)9rq`zss&J?6d78ZwmD5%fp{GxR;YR!e*++DZkwdRaR!@k5Bagdr$ zy*wtSn<|Z76WLstpR)v*?psqURd236({-rK(h`MY8K508MuagwXuF-`tqgB0iC3SW zTnq6+9g>#atHsNTNK2pNit(cTH99H{rmn7nyj&v5)#;LXkRFS$n3!552tt9s+V0{K zq?bJcz!1n06EiXv7^1m_@%eyFSICUBT?}i@=8F6c4%||u$VQvEjA6|B4k_J!p=;#%*5cp@W zr0!f#q(y_aZ{H)pmow6@5=ke>;Dl|aH(|_%{3lO7l14n;vXD%Q1UFns>&OgJX8M@8Au$mye9mw6$?4VQKToYL zEoR&W3`7A<)*(Lvx1F_$WKTb9+Llyd8~xp@w#0tYq1@)?=C#+lge15)yx7{=+2n|| zeWcyIxX2?`&X)oM=UW9`x;Wo*_$$i@d*^vaEWh4WAH3tjO)b}U%jAp-eqFXperJu> z%SP?yZ!$ht_jcL#=(a}c>jnAiA9d+>IQY%6XyqTSI@=XuI<`%nr@0}db6d|6E&uGI zy@cbsi6ILgg(~DcD0F~{DM~zwSC@r_TiBy)a3lzK01IwwNN*qO(c0zU_pu*5nH$fZ zBP;1ACzlO4!$8Mp1qFoZ!#TZO2Le7KoNA&!10uepxR|r}8^yZXcTGt$LB6vVR4RoD;MT--GaVQl>Ml=G2ImzjakiOER_K zC>6Xahmx`(q0hy>^>>#i+c{h{yRM(ft&kl&zR`NsQc)KDO)c1c-Q?v9xYP}mtqq68 zJ7ia^8CZkTK{2^_6%uVSmI?ttzN}a)iD!-{x1EC&3|p}aK2i7M7cZ_ z;s)M?yB%J#w`y~1jc>8Mx?f+=z#5PbnC^K|t$!WSc1~M=iYK+IThNrqt_vU^4u`d3 z(caekm(A0u_(8JFyB6IkfF2{~&J;K8eJl3#>Aw=%T?jCExwN{AKlVS$H{f~ho3)HV zFHg2zdR=3L?eeot(-^4SN!jX1%Ttz8zw=bSFVCJyX6yzUdbCU@w|t(lkd7uqTd+hd zROd{T3!6N$p$-Asa>lN*JZ||bIRo^TQKWf zq8q|_E$~&Iml9e&dHH!Wm!9=(`6b@-|5W_g z`s<=sRCkdXV%PeIJxkmF?UKFWU++hwoYNfPUvEx*^8eBJP&|8PrF??`dFa4_C2_-B ze>Q5_PVXtvxepJI3ogCGLzp&aiC?cXKLldI86vv`*qFu??fBMJ?X7x5 z!F3a^0|p(FtTzJyUA;O9bCAz<8!I0xb80HzAV-;5+qybCJ0Rj4WD*qji-fo(im~m& z1(p%rPJz-eN@r&rQQ6L5iIM;Q;S18-OggS6Ik0?k7R=GWhupsV_tte1aUinIu2Exo z1Lx8vtXj2QmJ@x*=Ts9B>nF~Wg&&ll*Tm`TbGCpVjyY|!!&!cL#=tE7Yz;<74hsgtKbN(xy`ZWz#2 z%*WP#!GcY|A_8xsQnD9G9VCNVUUg4iJ(eA z9fsY;t6(i530e>|XI{tm9LdDslBY}B6o2M~2fGJj0PE1iKt^<5Ub=+&07k=`$f3~2 zk|MuG3(U?w^qG41sY6o3qBoh%O={bprLGQh|9LwseBp4Z6mpde!I3dc4m=GoN3dN0 zf|TSm(4_Jk#bL&RhKyOyx^%IThNoKR>KgIJJ4|NE@GvbYi$4z76?}@Okp!AHh0NJk zW{^ENoJi6Wa);Xb5~f0Dt*BD9HKF!nniliZ%VLqxTcbb zh&9^NuP-|N%hTzga*n0C6DBm}Nq&hIfu8lmMv9|`Nv5>T4r6D0=iuET%fnlhefp+G z)SvI=Q$nnz%Ts32=JJn#71q2c{-`5&M~*aa!qn@v_q*$jqtv8HXcKDl3bMfW`bi!1hkch?N|6R}-p&4j=vs z0Lj!N&cwO1#%!0R-uSI!M_B^~%te$&x0SMzpA#HW`K_@L0S*9N`0KO*Qhm&lC5q6M zj3Ek?M&6kNVt0MBvES#VPrMZ6W)=7BzUuuDWCdIX24ys~0EZx=Smos8@+m{=Y7hq5RS|Fx=32dQEQDy(h>u;rx@e}d8gH*9)RLoV$IiKnBZ zL*hp&$5R9Aq~#6Qq{C+SXt9N`u5#1+nNdlsp>uP3bZ%i`As9Z@?V!PfnNlh|v8Lx| zdE7%blboC^%=ypm4Oz&paijp?N}Ettq+-ig@kcHQN;Cdj6iNLsV_Ty%FQ~VM^(SE6 zj>-UqA=KP~fek!k3XL-3Xm=J>BSjgQRUu~T>(}4Bb&I3;GtdO0oyaZc_wxtX%u|#x zP;k5zTs_&{;F4FWObK;!bb8UeyH4BbZR$(^tffzRDGiYNI75;Q(Xs^+)|bHygc>G_ z2i`7qXdkaAU8vpPx+fb;I1clc>k+dcL?LL=L#&CK7-t1k3166O))*TRK@00&e#eK2 z$L!($jgR#jUAL>*3h=)CD zwVs-q+Mq#(=bp?A)zfA~$-{?n*oU$20n(U4SOFmPvbtKKZ(nsW_;XHlZdSe|>TdXU zS>6m2nD+Yke5JGzVu65w_Y~)hTF;~xu2Jzfv^_6?C)p}iS2nFDPy}WPLW2w&TI`SJ zxt@Rpyo8us2lkFWGBUOkM6V!IXkob5q#Eh9$vzXJF z2>^wea4FK-j`18>T(yuE9@8}|IFMCZx`nv8Z`=pS-E4vOWxPs9xHLe@#Bj33M+FDZ zVI~I_azx;`$ehwq7+#Zy0M#9z=yhdFT7vB9n3x#y41oW+O~3XQldF(cbyCI?DaPe9 z#vgc=`avlXX0n#a@*(6`CAV(9<`wWSV^k&Qo&bjpb1WZh0z=r%0MTvkkGsEI^@DjX zc=jyy(j|E%uL#w~sp8#omZ9RG@ZrwDEMpg1&haE-a!5{<8#2h)=i${lKDn+dbH$Fs zLM`VeKy+kZT$-4EG9A4xPX~&J95-RPEA3j?B=eQR{>#$z%XDTOwTxkMS!N6r8Z zsyWPBmM&e2mIBc7F?BxZJIyEr6c~rDT=V87OJ0z{iSGReJI$qRZ{RU9dh|z9)-k{7 zvc5t0325AHwERMAH1}?2&}10+AUCuq`v7NiV31^CN8#q8YzPtRcigycM8j2X0|*|` zO*9XIG)!&L%yUl|H%4~I=}4OjdTs^@gz02yt7W?7p0BZlyDPmYE%o$IJh2xqe$J8X z*S?M$smjcANaB3c$@pUvUiT5Iv6i&bDJVr24X`|TO7iILU6badgzd9qEft+N#4eia zIq)Bk1f9s<{u3wY=m1DxqO&F7xzqMtUF1hmnzifPD~7o&^qG#M8(@0)QMMwBka!^) zOmNZz#-1=TUP>xuA3C)Y`s;@4>7}tDBs!@yq;L}LkQJ7Pv4p*I(LaKt6XbT5`Zcwk zdBk)9r_;xNj_$)kXRT`)H$%YUr1NwBDnx?plkwWxxuvC7XuKiS4AFCUfEU_(b{B>+ zii(QYGm{jwo34OQ_Zq8$)}b zvAvXLXk^%PwAoCgC}6R3{bxQri?WOsWDj^G=Lr}G1L7es)60y5rZ3fT_BVi_>cnp__3*b zXDQe3xR%c$Gp1mf$O=7uS|w~MDLKFL_wAa6r%xv!RexCNlMuOr=N3KD%>Eq*yrR-v z|Kd-d(ri>GOxVITXjot5c=|SQ-?%l%MY+J7cZZNPsutx}H4`qOT;sF)VF2LbDO^>d z#fmO0rcZFngFPLj){;k>ashOviDomV5M)Vna3<5z7q%_S+XEd%*h>zF!(&km#nSr8SX&if&`j8PE&$ zd+at=nCPRxFoO&bDs|CMBXYYBlzeK67kc*Y&0*5SKo4RsYJ?dLzl+KAw9jJVU6$k+ zoNzpx!<{67k8#L3bC-JGvB}WEGm;aB1ZdH@Crl{5dhOa`PAPr`>u&<4Bu#LT3lr3v zK^d}A_%Bb9emLgRCRw9NsyBp-Vo0|Ts{2#lYzA`5f%%HYFwuR~94q5y|u*8D#StpEqfu>a-eS+_{ z#?=5IF>~#kS@fHOLb7f+?vIaKKT1Qx39N>rx}L}m=1Zr1B9oO;w9ogIqVN8mBSOp3_%SSVx0*-^|==34Q& z1V?cQ2M3>

P7>@F?3na4Az}Xaii!m>!U0HgR;hB}n-2mX)Oe+mx}?W)ap_A66ZmBuff3V{GnF9b3a+DH+O z)~;DpWcrh+gv{TDmAvBq;ZqYGAqK%nDQ!i@%Ri3T&hQyS>aZ)2ztqc&F6;2?uY3E9 ze8FF^Sj#5-{Pcw9)2nxHwKp<~I_lUGu)64?VGH62#4F+)QJFGQ>Yf8tEp?U`KDMN? zbS)5lNRv38#}kr;G<1*&w8f|{y4z(%md3}>l;c5Q=2*pwkqUk@Yy~U&{FF8v?aeg3 zqU32vpP9eu?~os`?1i%l0EYSUZKA`KfUcRvaV-c~;k_slZ;`Cas_5%~=lV^jO*_ni z2!1-FN+~6T>OO4q(?6|+n9<%oa!b}osX0#_%8r1f&Y#;!>ZGNEws)Bx<=(7WUh^+V z`JH_tsC9#)5m;MvRQCNIyM2Mc_)A&7}ne^TyI+ z@{a9ue8OhyOLJP=VZE#Fd)$ts#uNNmF9Q@w%s>|P)y9o;uY~0y8+VNB*XCq0Wsc>- zh0awi*zVyI-&`V@jKTr6^z*%6ysH*&s2XeR66>0mzLQLlQvUWp;WqH z+lJ&Q{6+WGVSg31*zrZU=!H7Z`C-~i-FA8KBaLVJ&h7sB!&9%eKGv9irWUp{sZL>M ziY~FW`HYTc45KW#xh0puZRAnZEsPOsfD6tN-Z}E< z^l-xb?v@%rIWwE@CE*o6bzl&q5IQPTE-QXjEV(+Bd_{3yP)(g5-xBxn66FJ_poInF z0uRRz8l4ay&%~bLj2s;?BE?NZ;>c$vJRHa5-G`YbF4{yf&X0tIQKr4kwSjJU2g-(R zy~6B-VgT+zLeSLa%3^qA1DDqm+3P;E2jGd?3WM(I*7d?BX_3Xo{RjUr= zU*P7Z2S~5KnB8@EgXO7VN>nD(4m{mIwV(3#qzqBWNb9V78GN#8kV!Y`ui6%o7C*Xa z*!qIg+WkXi zldq+#+ZfHPvYaq*yK9P@eD32;*-vw{E&lkOIhMJ9Ni5D8blj+1t6^iT&7JR-ovFUy z&P=U$Uc*jb%gkQ0%}Y9VG+=5XDt+ zLz%wjG0+f66om>4-zsy3?vhqKo9n>;p#GuT$cS(M z{&(;=Ih-gnnl1yZGAPaG)JsP{m1lxxDRH6gV-J$>-4kNj%ITHmP;G+1>EB|%W`N zOKbU5sTgmj0r1^gG_7!Ob)~DP_a&BMvy^PKOe9Z#CK_Dwy z`AGb!!71^C^%TU9Fe<}Of%TzbQ|{#V_nSS6Q|tUxS5e7m*mT?*-{JqZ*R&rFR@Dm? z@dx`azKtM8P7C-(s~k^QOcQf+Z@K2H_Z1dj4G0VrO(C3%74spQ=;NYh;0r0t`30A9 zn95gX6`f1LqN}U>iTdPt%|+Y%mLJy|<)=~pxXO(#^vPr%wzlPnohT9Cl$W1;QiTFr zv|Qqn1}8vKTT?{+OG_VhN?6mJ_MJUi$Ds~<^6Yc@SK#7q-MaPLP8Okw`j)i{$Y-#{=x=*yl$PGZn8 zaJt>s{Rc*&qkFp4FQ{HYT(h_F*?0{zv*c3XsMsI-u`i+mS+%NZ(OGP*PLoQiEy^SV zH1Oe?fdQ-B5D?vBUR0wfWq^M{O2sTl0; zB<5rW1c?e>E+*|XCJZtW3Onc_K4H9t3{P{0%+P#D2tCAV8p?`g@Ph;*HTU zh%5*~2e_1_MfSl=(Us3`?G28)GP6|^0YOJ??&O&#Jkdx7F+RgC-gqnr+WR7xO#Ii; z(^b5ALnG8@tnPU94oPXgDJ@EP@1yps+Dt{ZMNgNg$I$S}^wGSUoo&{O{o=P(F0BZKEc zH-Tv2Bq!IV0j=Yy?3Kg|@DB7B62gly^VWgEmgxmp(!->xr6q?nV6 zyj9@8H0-bfgcN}l%ncduu{;jv3Vh5cPxO~!wKu*b`WX0t1~k+bP&t)7En8Co3Peh7 z9%;e)V%V?G^l(O~eT7qF(-=&d0@*xM+0fklz^rp>Lx)0u&VzCRNFK-l!MNeTY+eMN zs45!cH&DAUIhdwt1yaq$y@jm-0{NU;;75Y-e!H=_F|#=+MxjD6a~3nzDP#}m9)54G zZ6Eflyhyz_?Xa8Y@8>5Oa$)FH05g*Mb&M_nGQSO?8dL#nB9IJb4AN3NzPEKH&lMf&%|~eZ+@^IZ~+)B6F+t_C@d1@Aiw|jHTc2ys57T-e@F- zF!*yE)Ws0-wOqt9>x+E=%b_+_J^Ko^C_P7)!&kU;I zFfy8W{u;~z5+F)3#N5Z!0p5naVaA-m>WP!nM^lyJv-1|a`E(q!b7HdM?B-Dp?NYx- zARbe@gkleexb~WY$Ef{s^_d$U*1M)bX3aZz-&dS`*#jy`gYPq zsFLhGr6WUrnApjxnHqfP5au(DC9|m&MrJzy}aZNHsfYGpv#J z)K(h(to`;jyN-v2EybX7|rl2ub;!nu_5eWUN2Eb zN{#-R!S@c!t^!i&S2y*f%6SC5PMP5DrjXTxKJkn=+y zwevPMiO!`pJn!2l!N>Yf58n{?q zz6`&6;29Z`9G{ptXQ5VD>1j>Aju009PV}e~lsR5#6i;K3{eEK80qNGs zrDre1yR~_(Y;xd$`q0Godl7p9mzw-2lPKo?+P6{CvvH5wmtaYdXQj>M4eq2wS$X|l zWbW<)LrP(Mp@7d`jh3xz*RF%-rJChu{l00i&&Y8?96=n+nL2v38}~xiH1${C)EPyY=id!7@&;PZoEyU$3lZ>pr<`+|3pC z#Ab9}oDF6q*{H3Rx6e9v@6MgCfQ_&j3@1Sqe>nYZnrYd>0_DG4dv|%i=&IRzqn&GB zfR~`l+aa5vj{l4UQUnw>lDF;DklnJuzd{qzJ2R}^56TguysQDCdg{b>(QERFgQnwz zbrz+rXPlqk1NLp;aO&9?y8%MSk?waSRhHv*h}uRpuioFn+mLInn1Fki#T7!FAT816 z-fRx-JO||RMqO5-`&J-`O>YdbSQ*Mmj%_YURl7`t6MY8 z75O!~Dy`y=OcTdr@C@VyCly)hDcKhk07B$bkPzO~G++aq6OmXrR6qy5e~-n9<%D;S z4v(BtU~Um)SJBAf3Vd-PG&B_HAyqKKQ0rL1CnLp=em~MZeQSa%A5S$|W_FZ6MamL~RM&b(=sBhOSzWWzRlSv2yubD>l z9lru(R>W_i{DRGzo=E=wiHJ$b2r@D^pOLEbf;eTHmB-AYZ&VQ_udVJ?u`}&-fT3O8* zc{5|%yI%Euc7-0?ptx(}h_;}*)m2sVAP0C`NZC-H3C^~U=A>`7=Zmiyp2y^q26?zB zV7|Ax(ZRAWsJ=*ncrF>B_IrmrySSj+X(o3k#GwBGaf87ggY6x7+VpJ@&wMKcNF5K4 z%7sS(4qwcUwUjXj5ov)VeAX1}zA zTt`k|5`zhdo+&tvW(uTU+hx^_($dnrywB%9sX9OWrQ9P=zo2@Iee~#%?afyi-Rezx{NGiT!`IprPkULg?RvtY2l{(GK8Z{ZQPVc>>*EgT@20AKn6snhuUz$2 z$~D`D&f>Vnm|_m$$~3=4b9S}P$NPF0`u(vx&&-^dqTjOpuc}xC4L>=O1g4pQreV_> z6aI-7Nd32<5viDd|2cm0U;L)ygYG4SJ4!jIVrTPkVmz;&y28MxxOf2yr@XZLx9FvS z@TNI6XNScDm3aEIb6<;j?oDp$eCes0BV@SKXk+z(}Kdn zwDj~h6&3bL)~5O9+PKIiS!-;+bN6l}aG={*$;VHh)JZE^u`z+AAxV@~VWv1^Y0{2G zT}n&KN;r1ngiDn{)N&HR+FJGP!U5=l%SBQ*sHa)8{Ke&uD(tAd)7Ax$pj8XN3moR+ z*0L8h|DL>IHU4j)!M5RVpv61)Z#YBBa$jrxEoC)6Fub!=buN2f-NqovT*F4nw&(EN zxNoMycbRl8rgV)Z+J=K>;@n!!iD=YhC3Q3Fl0KD)DVqC;r&~Dvw@NbCjs7qS`1K9Q4G=G}6yprPN z7~8z70{+>*{~c(*kgg!9pd6Jo;PCON%CQ5-Z>ja}Cd9a$KhrfuYn0~Ft7ctuTW;@h z<-E!NkFZ2Hd0>g+(;LuEfA8W?-hFgS>!bIl390u8gh^~SbytZpUQ!FbI5fzq9NeN2>B13~IitaQhW28ieB9W{N z8DbfVBqBrZBvO(j!y+1_r9>gaN}6P7P*nSS-K_OI@B8k(-e>Rq*`Lq*_Qx7?-@oCy z&g(pn<2a8KV(z7#@B$O$H1!1SghdlfO>ZMk>e8c!u$5!?}NJC4pv$C@Gtjq67$M^QB`}|p1MFr#pw2NV1ML>Sgx5EzcXvhhKG?r411CaoT zjD<`JtkDTi?$NI;Pc4JPLWydK7KPH3Vwe7mQJ7|;?({Y20JBOdLRN9h?=?v$Zg6Pd zpneN=Hcgl^Wxunq(yi~N`QOJr)SP=vk|7^SARluF8=FRCYum>W7w_M>b4NC7+7Xo* zzrjO?bsb`Kfu8TaeNTQ=^hYu|Ns`(#Kka8fIXTZB)@n=4_4a#1)Cz3()-0Y)k z;N1a4XVz5y+K2Ey@$^Gp0eqphV>@VWBVI${E9BT%Csozw0R z9LA3uht4@D>W5zVEMTuh2~@4eJ0g<-8DQ-WFyDXHq^ZvMe@9LJ8GI2yE4@u8pU^-{ zCta`f75HD0{;?b2dhm$r$S^tF3;QmYWjJO(3>D24pAV(Ss;j9*W&C2b3uUQrFXe&} z(dW}Qs6J~Zj4 ziN9lWry#Uw2&UTlXZ?|8UPV6_hEe(FMF-|)VZoD@qaaJ^`fNH#bN<}J$69t{f#prp z8q(GfMK>{TB#ATPn@JmjU+P%HS$BqQk9II&^U(HbYR3Msy-@4%+0ga^;NCYRnGhsflX$ zfMeGqOV^Zj>1*+zwK~s?d0Xr0L8WgW zutDsGsAAGm-EP7`QEn|QZa!wdqm4NPFbaCu(UuTWLM)wFE{O>DNEY?Va~u+Z($d$7-2uunEdobLLQ-)e)bfc4FH2{8jIOwghG-2Xy_I-kGrwzn2uUmEsu}~6-2PcEW`~aPyBAV^bZiQ4;&;{RE+wgs&2D( zdYZIt-z}D->(rh{Nh$#l#|2RG&8)LoytwNEO)cG2_{S~ywVfps+o5+QmSLiV5(?&)Y{}ycrAHos9A6kuJWAlJLj4lwGd)og32BdRqxcA2sAKe*}4aAQKR;RIYe=u1f8Y|kHfmwg-MN|aP8o23l*}0^H z*JNzlV5?h>$2CL*b%jAem)da{CelH{!CE_P`b<;>z=4ctSAfsVkG-Cg!okw$%(`s3 z*b8Bo(5S$SAv8tfz@fjlPc>TsX}?gzMMMbi0kUwiQSylo!XanW+MI%dk$?nDP>r@h zEFngQC;GybXr}|=Nmm$HL|ABU>cCKYUO59a!)RK4`A7R+Ca|s~m_)H^wXY2KtN=3u zGChKCFLvpKUw|b59QX$y4XN>Rs13YE_zaP};6n#UzJHNGyMet!8{keJqB&!w33FDG z*u8xa@&XYF=_s-r{liB;BK)O!MyO3$=Q!zPrlsw578OuhrrWm%XX@YHkRB|dsRLtU z`JjqJ1ey$K2U?ayd4aw3g3JBJeL(YsaQA06!(g|Abh|*z1EUklxu211-oM~l=-mO; zLC6Lz#OE+316XrL;_Zoe%$b>O`Q}w&MB;g?qQ7+3QH@522rKUy(~6!F>8-B~-?3uA zEz^NKAv9?vWZ8_FB}}rZghZ(Sku~EI)pj@$aM&|qGvF}-W&q6x*l1Mqc>b2;Pyv(v z4E={U+|l7H0ea#IqqGsJlEZ`f!L!W0D1^oJ^-#yi(%CDRt{(g5+~BOZNW=)gl0J69 zI*$IE{{h^XeHuF@0TCbKG3p8-@4Gtln!EF&MR|4oZ4xcYDZ4WqI{Iy?ltFF}#ykO6 zE4+WTz4YnfFJ@Cp?jrWH$jBLSw7pz)WpHEZg?7(RX1h?MmaW?is_)l%@dF=^97X4$ zn_u4VzEBA%WRD)cuwTC}mBlQNC?$`tDXsdkLVtd(C;THA$V&j!KPda(;XQ`E9c5U$ zQ6>ct-Hb0S7FdW@-v+W=GU;&vOhhda)lRyz?46I%TUzVan--jiZ0l=7CWVo74~K`K z_9D?wM&gmVLe?oOXPI0u>cw~bD09sX5$i(@vUaMplzp$k?H+&j?*5n5Hvb}8^zYzK z6JxaXb3iJasCd*? z`1DDla>oU5B@6|fd|-wiMKPHOmyX~nzMsV*ysg^yVoB(!2A)hmb0{h*N<00#&jmdhUy5!hi|ME1dtW_hl1t3*R;XraP zZZFiev0Bg~)y>7K`jcAf6|-gGM~3|8fUCc`tbd?e|0BOtDrSd31Ac(^wf3FB3r69C zzm(_#6L1c~WpoP*5q^>o$Co-owc-;^ca{Eyd`?3G(mb?IvD$fGwIgE7zJ3!mMs@~? zyX<&3_G}*&f!nN&#A=m_i6~wTh=3Fw6Uz=7vfcL-U9rA?e4AqoBf!zW^Q3|ACARiMAQo4(pC<)Y+ULU?RC!2%=b=-P|UEK**!_N0^iF=A6&MMcrhDD-WVwI?m$F6a)hk8VT> zOFHua7c(ZwI$2(oZUsUdxoTIeYEMEWJf_lyXL#pOA!!i8_h{#PR>6x>_b z$eC>}@DHF5426Jw9L{@;)$YmI0r)cjiXc_iLwbarhPY zes9r{I6FkeY0Zu7>;8yROfz4Ccxj%2|FTG>iIqBQ2+tkcti&AIj zb?@)zrgm$&Y2;6BI*sk3)F-6b9=UG6y677Pp-t4f_8Isvk+xHKfCY|ay*t|u)9Y-3^yZ5L1a8lKnTS&&7ag7Mh8{1-G~<2df{60^V##DE73|ipAsxizYEjXV z5IPBpw4&wwM!3dJ40@s_SGot>JGxlXyuHzHZ46cYyNJP})Mmbb*es)D1Zb2bbaK_* zQCnu6=d?qf5hp;5kE3SluDl$cy;mu{Wa5v?aDQiy_~P%UC1!W$AArHrh^6s~a>V7> z7HVQx#f%DxqyadX5EZ}Zw|u8DnY%5ml!Yy2u=(Jw3cQ<6dyum}dhmU$s7f>Q`45h7 z1=iDXx@tSQC)ki+z*$xRW)6dz28c1+u0^Y7BI_zYUeR9b znC2uClTDIPG#EGzA^St(ZJCv|tg_s_^H>h%hrVv!?mk zv`h8VXJAjj*}%Rc=S4x0lVgp!ucVba-H4Bg$peqxcNzAEaG9H03zKx)QA=*l$w&L7 z0k%%{#fJTx`<)7>$K%UI=Ze8Gujbya^l2yhX>@cfOoW9uFKDqE+b9 z4He7i%Xx~Fg}xl^ypMx*uYVZR$~xiZTMj-U=_16Fordh-qj~a;jg7fFmt>l7zre%g zj@NHxU43*acf=uD%s*6Dvn3knfLWUOY^bWG@@=Yj6Uq$jf~VKk`_Nv5Wl2cgZu@*Y zN}K3&Gaj=V$PQT$K$Dny0=DA2aO_!E4Gk(bK2Zr0Q8%i2oZqdQ=C17x=@J{LA+A`b z_d%8(=Os3{f!{}odYW9%exX%(_So{3D}6rPRxzc~^-^4%bwQ-G6lg5$@L_sn!re<4 zgc*RnkqQT~y+7qUN>$<1507hL-U6J&Yvs!H`}d(cAAJ<6LDb=A*&)xKt*17zPZt&7 zRqvk%4LZjH6Eo=%0j{jjwr{cT-YPngkRN}Vbn=q&9En$vZhYvf41>0+3R}QQ8tbw) z1aFAmD0^~a96feS^1pZ`_=aez!U!XjGX?V9+{|qI1P(`FDHoT>I^SRMW$YvSnQ~~@ z0LcBzmu($Ri^-XQo{z8wzXLd0Q}QqsSOe)b z%E%}~NA$X*tM5VA8?rC1okfE-at;A!__Q@96W)JN{BZFG#$v{ONp&mUD7LEY_ZY<7t^sfJ>U^OK zuqkC&dHE6_nqI(j{QTsU#MsZr%i^fNVq#)?XXz75D84lI1_epV{9Cqa_2l_w+2gfV zzD;ze+N=MmT^dznVIiY+Q)uja9&eqQmzS5DD-k+rMoy^IM+*UfM5YE1vnV-`kM>y;r2-qars<+WGY9$4Q%1pT(_i z<~Qi+<*Y9k+vhh8Fg8=_>62&qb40+WuQ3&lo1@j&bBJ2|s965&_;p>j>7MqxM#pV6 zYdjVa^F+;M!K}aB-@i){{zq5Be|K$i9>8*$y}cgrR}rV6^)3(`=n?nJxp9yF<9QS^z9nE3T7 zYClHZ-XlxPBU?3ZAIbt>=FMaC4{hgsWJxq};fvE{miIhgxt<@@cX1 zKU$JikVZA2F(isNG&GQAG}4qV->OxJ8s~v%URYM>OXIa*&%h87$|Ge5{Gf_$z!m|~ zY3{PQD9eI&BR~5}c`nQ?2&G7}kWZx4=f>cwR)*=!{6bkFY1ysWR*N2*FGv?rp1lL3 z184zAfBEXw-r(R%qz0sDjBP#`N++_I%?T2u(NSG}9RgyyTQKhzeZ^v)^w%=|4jVQ! zAt=>l2qBp+M*)*1ckSNIkTPE!zcRLN-@RLuo9*QNX}3j{M3qAml29+ej3SY9a|axt z#-juk9Skr{yg2m5vltnwE%4#mo8+PA&wKEdBsG@GePxH{XIx7-jA*lTj9qZge}jW; z)qHMhWB4v>o%tPzDDEsts~`h^DEOWHGO{%OE*e;Y_&+e#SW*p-1WWM&mN%oB=n=xX zwPB(pmwyND?*d3V3zAgT1? z@(w7cYH%ROomWr<`~k{0JFd2M&voHpAJ8Xg>_wCYfhWA;4GnDzmUbSWGkqFWEJfPsHSvvjj?(sOQY92!)GyN153v#@hF~Rb39Ah%7qWoj;Z!BoZ3>(Vj~)8 zY7mK}ETQZ5<>%#78=hTT&n#G5k*_V4-1_QgE0NIsrKN#g{$C6dCsz4>1$H-2gU> zND753_y=`6@e;|TTBSBD&K^TrCg!H(|9(xl-%~sdM?+Fky8-#?rA~x6@ZEvkJ@P# z7P)VV((KIWOF{!LshbUY8-~P|yFvb?y`!02zyxl``+CyU(iO+)B($&mQBG07FoZq( z%KPsAYiyM~o))%frLHlQ!E`vF(*&x~tJg~e*(!r(JtiHc844tzbM!{9n5{*xl!F!@ z2n2I-aBgQa{3gveCMO73!74Kjh8$>>xVBm(kztnYm=cWAe2Tic>mhFB6LqyAvk z65XhUXnTqw{6g+PUrLTvIB2etG$L6Q0@P#2r#8t%bw7DnJ=9L@l&S2W#J@lVx){-aWM|DEjAO%W`*c zwu_Hl>`t+E&nU}=XK*oOLPu%aL3o^Djt*B!fG;}qlPm(|G~coFc`Ah=&74p%1#yd4 z7T%Fc(IHgR2|2h>37?x&(GexE@k>u_R>BG__=_;L=U6Iaoq4I51}UCGj&couQ4f#v z-gVP^_Uu`gSFf@Vs~#te2GN!*bn=h5lKRyCc86+-ZBg&aXGt?ne7_VF9(u?~Pr9q1 zgkW;NkMy)OZ>e5;tYLH^q`BILA5u7Npe5jn;&OAo*E&j~fbwc-YK5ol01aTtds$g3 zN>o40b*9YPad(;TC$+k~z1O=)JLI$<=9%G>rWcr z@(iZdYDuz}wips~wwIWCF;V0K6AlhrJRNrSEAdIqsI&yRM^z7_ZKw$IF}Aonv3{Yo$4hA?`&)b6bG)Wi4QzXh8%iplK8; zuLnb}=ib^9qH;d+-L8)Ay{4s~97Ye^0g77o48<={DEL5CWnq&T%&C1ZxRqgP!ud4w zBao2nPJqOHM~?JRRUN@_h=71LL{mNP5Mr@T^A zknhpyN9#MP-$<|jhsvYBNs4D!OX63z^NWTla~mZaW%l%`Ngo4)JeOgQ+#IX>{q$4# zH>LG+l-B4j(dC#BaGBy#?l?7<0IF=t)=8k?Sh;c~lev`kpy%A$V8){b48-8DfRYPB z3Qy;N3Etj`w|paj@Ykc2vhuhlldT{eAGKa= z$q7Y;MRf)rS99*9E1Wq8s0Qtr>@;x=ya^-~Km!$Ud7@*=$jAhn)n2#q%ng z`s($a)PgkGB47gCQIdKny= z(l1)Ed*X!UpFi@bJDVoEzx`+3Cur>Pb^mn|iqn?rOqhyZoeJ*Wqh= zsw&94H(&k7Xyw$#W%GuqdVUz&{JhGub(fo!x``D zCZ^jkZ`IQ0K*VHzhgOYq0Ydyr6KLG(;aBk7s3n)(F@eCB7wxd9az&LZCpN(r-enZ? zjFR0FQ`rCDLr_NuAs;7oNj}7Qu5sgj2@r;5v2is%P!v>JN~n{L+WqG&s=5{Bou1^Q=y`O z=Ea2wqbwAzO5WIytVx?wfk+H`+s?#3-nE)}nvavz9i@?x4~}>tC;Y@OKS@$g9)T?p zSix~kke-CqI<>VlHJ_0Z)>=qW>C^S#sBg@Z^qx4yU)ZqehFu`N zd56?k04};+w@dPQc$8z}053|qv~z@7sNSm75#!p`-)!k*p7Go>wWX7aVrF?eL+$46 z-#Sg2ltzUhrk3^j>8BUSdJvlo2i(Q#w~BsaS9hKhx${caARju@+L{rl_|fq+fB!hV zX2_5sNOPO&jy5emu)#Ef&agD0b`l$p#m5Oo3BwO&n8FSz@d<0J(kJrN)2K^Ty9XP( zrGw3UJ#@_04ox^^T9i*-u+^gZ7q`5#HIE!S`{4DmT~CsZ4cVCY;#f#>v#qC^uf=Lc zSZn}uiaLiPR4N7Lp&fYG(4i~XX=V{tZZ+h%oP>g0%s+s#X8X>avl3UFtV44&90|>6 z?~e;!H+53ocW=S(SH!$BT0@60yI~)rOy-lt!8IA7yiF_;V`$Kwlkf*wGk7Xa-y(6Q zdr43EMeVd|Ll=_g1}7gIs@xQV2{cK7@Bm<@314vT>GeBS#cli_D!D#T>Gyu^jdI7; zQ(nZsADsEz&wqZq_HPS>h#fW(a*o5CM*HmnH0xu#08kOSckc?k4WpmXoUUv-~W6rM=2Yc%$ih&N%>C3V-n2DL}N5k!sD9Tj~mhdieOS@4+(6D!}G+I z<|bg)FPyg3je9G5>Wcms<%7OtK6^H*fB!{De??TfIxF~?OPB858!$z?ib(&>jTs?< z5%-nkPxsCV*PZgB`j;n3?+#w?nKNGBr$zf+el6;2phtJyy_hxH&3obrh$8l+jz-hh zV&hCTi6FIdo!oSHnnlz&v$}Y%r!7JkdMkb!KS1y&$i+A&v=iKnU&5BVK3^ds!iB49 ziIXfY$)0a<3tor7`58>cP}h<_sw$6KD41TP$QH9>kT&Bda@EpNP0c*4x5Cu#E2Y)N z)#K+hk9qRfH3o--4A9`^#pge#hh8arsipEB)L{X4$+!c}=6ieB(L^b(*O7pVf?JqV z25c@cCoF1cXaIREj87KTEaz;TE{~ZFpr)+63Q~!ewj1dI?d2Q3zV3-OU`gW4eH9Y5 zFI#WajS)BiY#g|I%hs(!4TdV~h>1Tb4F^i|9~+jc&-M7e6IW+EZ@1}(s|yvMuoDft zblZFl#nO&|qC*o^-FMV*4ulNt%ivlrj70N+hC8ewe9`v1`~`s27nd-Dr7vr;sp?@^ z?A)y-5{FD5T)OguK_Vp*HZ%|GXHzTU%r{Lh7|0OkH04jZr^RzF?Wqze^?Z_y3bPq%+l3X#Q z^9pA#2g5cobW2$Bpx>6)d}0+TUCY@DY(ru!$aB!7BMAu!H8w6TZ=rLUg+tX4uLCPi zj2Nh`y%Q>uW1Izg#(mkLWY_skgALtR(eMbxA_8S&*|6~+#y`SnOUyyJA1Md+!aEL^hWY+cMCiEG>M zmxlp>zC^+yuNC8U$8w$JUr%x>F;?~B>g4&&V{}IxN^aIVRY&VVfag^f>vPsd82K@>6E61N*-}C0uFSBG<*(0 zY?7{+s^>yauXS!g@S!C!lTJ3y^~h)JS}he5iKSxI`4L;@c`i}++%?#+`!V@Z^O`Sf zlkq(MR!gVd-(D_phw%gsN)sndip}?>Nm~iC0#DD8P8^bmnc>|J)fj9A$l7+7eiHyj zC3STp{5g~+PMNaga#}@^5DQ#f7>LlZXXE>=WIi*!J1qo1V<2YDt>5=v8nK$%%(L|} zjqi_3NRL27@rgK>Hv9Lk+ZEIPitF9`y&o~J=G<(8;{@}I1}|Q;VddrTeMZl1utDEL zQ%*sx22AkGQp@YHM~^w#pL)lVW_C6mGW%e0Sy`0kBr<|qHid5~vd9F>Dk_qJClQX$ z%qu^A)EDR2X8;jrFHzX-m>`BnKSio54Q#me;;ODhLN#r|xXE4;{W+SWHUF0=$a&d= zcd6T5oHe~)_+9hlP((OLmnLf+U8Ay6MD}GQ25f@OTer@v4X8xHLLG+`E8NkXMk zv3kFJrClF|%c>?sU%8uDUNi6W@g7 z6dI_cbu>`&zc$BL&? zT1Li{Y13*yeCRfG!Cg-Ic*$9<9ox3iL6grqJ$$%veXD(}NsNesz=!tkole{$tPAnj z%g`cfhEvfO9sA+|M`w#$j8Gk*6@XW!-r_7}!1ffeP zIDJ}CP5&%VwCws9bK(a#&DHrUER7&1)IFG7M!>HyQfDFG{YUlX_Mc*{{>p~`rr`aT z=r8d>JrYfp>a9> z5G~5iNMmvNMt@Kysbhd3h8;p%fRM=q;u(jTF=YM?G;eGoaqQW!jLn_5i;J2E$ zhoUClUHGtFd{}?khkcFn8!t_n+*e1Z0<#5;k7cu)@}E6R{vi9l@4q6fUJ&Of)xArq zq?{gT@EC*M8sT;qRG68O!AO%5H1A2PN?yHtCk_X(DA59wvRo=EXLILANP1K~V^e1y zH8y7O7=Z&7yphp5k`&@cY|#lhx$rYqGQfd-C5lh&ORvcPGy?~^kuDFy(|i~L;l+V&Q?eysC!=9}_8d9l zl;Vk$kXZZ&-J`LS3`|at#J@>>vXn#9H;aKdtAwGO->G?=^!c5pYe#GZyunLHsoO}e zv-|c{xAtFj#Csui1tr|sb#btQ29{yQU*G!&C=deDRwM3cpvn&5otmqP5l`Xf->&f` zOez{$a%F1lMGF^Ra>*WNLLNJE-@QH>WIIuFXZzpqz}!}#796%jcp;iZ!l)W~ADN|+ zHx~bHOBwQzJ4R?>N4;vx9zOJ|fc#A;1M18aD@>`E5HQUw8pOI$HCQ?ezje+P^FY;j zxEy?AC~eR`UD&uC$K8u3?GUiE5ZFUiz(7>fF5}3@yL9b(Ff1$?1&DA4M<+vbnhC?4 zV|3cP_JtA%S#)H8rY2n0Ej;CD{H6xaV}=OmxzaWmWuJ)@n>G$Y({l7^6A+7N6?~V9 z7oJ5+QTST~goYL{+`O?ChLLAPwqt~KD?_2IH*8458qLwtlBp1zQW~pc?%&^%cScE0 zu7$6d5pX|vS#F;H<3UbWUE=!=8&(ApA*ib2^IZQ^l>{F3gE*JfXCkFnc*MN-fC&I} zWS>z>uw(o|Nyz&oS9)on9P)iI12LPeyOqQfryv`(_|^}_l1TGcAL&KI8b6h^OL;$l zSG_)dr))J8ZR>x8d-e}lhrlKO(8>{SO5PpBlBwX36FK;~g@sO>iS~ zNpzItb{=R$+0u00)fi~S)QSgHi?G%8$8h^2t6{N#`_Rrn!=0&P--J(G?i9OVTe2JX z5@>F{Sb9N`^(DV+?gwNeOzW{fH?-KGVDI7ChaRU*#H_wO||H4Pzr$h>(hjZ7{$dFs^m zfV!V20#RnWP@sEImra?H!8_*LU}qDE&J<&9$qndETK{YeyQk_E zILDhJ9XLo23`R=r2^U6$IQvs`&Oi~7&3wV+5qYrb2{0MXpL~b>c_-lo;%1F~P2fgz zZ4D5WyWE!%uuL~NLEQMbA*Ln8YUR~W_lb_PoF$A5yhF>LQ<0Rn9)9nYz|RgH#-S3g zBDWY}CqAAd*nu9@cl3Z%VC~2cgczv?`$C}aw4kmdI8&GN6zCm{soUA~p=Z-_B!a?n zhAl`5B617)cKNJxT>J{kXKNSGc+im5^mQ8Z30Qs%ZTbVQ=k;r_fTNg#W21;Dal5cQ qutjOWyX5M8{{K>k{GSO%W6$1adjF88@I)%^XQJs;lXK(d{PJ(ysANw7 literal 66583 zcmd43cRZK>`#${Y-J+>dQY5QvMfNI%knAm@jEu-kR)vy8_NKD3B3o7}WrSp8MTul@ zvhU;a{(Qgp{rmlOkKcViZjaBWxAgLQUDxwEpXYg;$8ns`M@pAvcJDZ{gG3_jmc4jE zg+$u=j6~XemFyo9iKM=ywGaOxx4EcoMulCU|`CaL^@8Ay>L$LcFgE^)2o!N zoo}adhrG|Im_7GC`{#K$JM;6MK9uyw$u1s9x>9-n#S0(J*Gh@xn*#mGeBY`olPUO~ zIluSbmU|TYCFPHcmCU$DEHr#CDe16u6zH&ASr@l5X^3%dh>5Ie$mKOv3t}S2Mc~Wj z_tlYqzaw!--QT?NZM)chnvHMXjtBnu_a7Ytwrt<{F587kaO0c1-x(`6ZG1O+jC{|= zH&+)f+H8D7Dv|lW{8lCXBO~cNwUw36jjDX>qXpuH9flWY2CZl(JXiy}gegb`C*ya! zy17}=`XucT$<_Y)_N#=ht@}38+n&H5XBU}dzrKIC_u92<(40H&y z5Epb-_EwGq>8@0odU~>ia!{h5pWjKvI2P3~t}9W&!MWzGX)3!i&m^X#$Okcbv23p( zZDy&f{nU}{nujMw`C!ZTQC$_4pvoaz|6kRCjJYQDzE7SUl+4gCTdJZma2-xfkrQ|u zq>i7@&f3#^t%TB&c7+6JkVtpmJ;miEs-(KQy53nB|6Xi2I5|1#<+X+Wg1voS z{Q(-yS9(7m^WC*gW@@lZ@+jzE*+sfr##njJwxPLsCbv=isG!X=iava9!5$g4G_{&G zdeYs{&<~NBvyEXf@ta85PP=$~r?VVJ+NK|hIE}aS@87s(@}GP5gm|>3soOa^HZ(SV zGdok@Uv<-Ub?)1=i|L8WF=iuL9CNLj2ITa5dU_xIs8ypz_=9`=W7$`>J_c2L3WMKCYi~Ireg_aM@g&uE5Q1mW(UHw|d?Zl| zzkjPej)}VpvazLUWa@BnajBm?wZ6(@7uR8E-sE!w}3-q z<;WA0Z?CR+Zrh!vU-pK^4i`B;+HuW>lX;)>>pQ(6*Hlwv>?s!_c)WK9{4+Mjo#oVD z9q6(!9y)lWm(n;%%FsC<}V3tE*dD)JEpL z_f7YSi;J7*FX3`dX*oA1D`Xi|+_brsoA9;gfr#U%jlF%yI)}#nUq9bJEW0zuQ#6dg zprWKa+>wy6-}#nH@4GDzsXwU&S~^f(H!&%ne7Dm()9KHb=i1uZ()>~#Hk?-Ox?oa&-Hb6BVUsqPc!o!KmH>%CC z-5O&>kRFmK(>1g7!?~{L6j-LN&fZ%KRWuBwDlGUze3=Od2smrZdYFB4p8cadmi1$L zZz-*a<1TXYrnoh19O{mD9xGE1b8~Yk7z73Xc9_P~@|mlpYh>n8tuGG7JA`qvuzV>G zx@B*_Ywup`Z?9qzwLGs4-#>_qjBFd;`KzC}+uxrf6VwhKI;2r{$6@S&T9*Em_5D>r zFGH+u4}E3U)YMEW9U}M7$lw^u@55wpem-4Gaa-U3Xd01Gu@T1Z*w07iMR+ioD z)@|E{dv6={m2-N%R7sM<4#Kub6FbeoAi3N_A+KZDBea`D3K8E=lP#aDcfr`ybmDtS z;gu3c+nVw3B_r#JLKbZt&Nrj^t^8?(UR>g4VbRJpc{1&=IFu6KRI$qHhei>Pjbb)G?oQXQ6%WQWYdiLoI!|+i%FRuEqGLB$nwg$1Um9koqM~vhPliR!!^80Ci({BCPG0YMn?2z`A z@5&o{A&<3E*R>|IGsxae#o^Dj$oJ^xSKn?tqG(gC#?~4mWS19EuBq=V71@;_v-iM= z>+)D(Xwri{v}tZz!CS=InCH&KJ%8RrpzZ!41cbzt5bb-z`jkloyu&a z?S!m~yL&@;WdhU_2u}lfgWvAZ>G6BO>#G?`|L_~Eq^YZYNmX!@? zBWBtRYzAsW<$75UaE|W$mABxf5Y0bCrB!6}T;&I{WSg&?%TX@9qHL|x@afmB688dKjY)$sF}Ih z|E|(qg{MF6Ug4QuDHg|OFDepTl@niIu`9mI^CP}INj{uSlT|pkf8@N3jEpDM(}#QM zdQhcaT`57*H#;@GKT{znar@q5m!eRm5@n^`)zpq{{}P|nva&MMcvMfrdGJ+3eg`sg z|4^n*KF{rRZ`-6al~g1o4#m7|Za>v|uRXNFhj+o4 z=g@eY($T-p+$( zNTjO=m;|qe`-c9YkSr=H%Fxc0PT9Z6bt_aZG%!%P-4_q&__r^~3P)qL0|Nu6Gn5mg z5ppR-f#GIW$vy!Angs!YQR}M{9#k5hl{@JN)+Vt^hYEgp@1*iaf*Wl=Js{lnuKd*H z8^0HNJq)xWu@$S0^Cp4|Pq7&v9p1ZUWp6YwY@7*Ey@;|p&4hV2id+_bO%>$2w-<$r?dTr#b z$HB%{`%WXm=`t`V|4$~8%ZYUKvT}059&0Nl6XnZ;@gBbi1{5Mr(Tj?fI?w!; zi<}v3tm9)Tq&pfI6!e03V5U*Ry0_d-U%#g_-$KB${R?u*InQnR_#swP*po5h-J5*s z#3r+#;9wN6V@Hp=O#Y}u&Wy}a)6&v<-DW%9Ewp(4{e#^**_&S~GsdzWn)iNmMBt`g zdj_^j4IS5&H`nK0hTOaATNT2otu>*=KHWE8?p<52jD2%(@qAqv=M&0iaoWgCd!6e- zs{Z9z9V+d{fx7U=8A>j%=J#10n`yW~BE99ejMCrqSuLaRrPsrUb>0RZs}5t@oms&w zLGkhN?gK!l1gx}|TUuJ$L(Ov?1$WzoI{*G+2aDi={{9Su3U_3Xx#3n->36&XqR(1l z;^Pgp25dLQ8r%tOVppJJIhP}CaG0KZ;Kz@r(b2kEkw6H}WGae^iWX8ymgi^OTS5(J z`+odTYIpk^#FUhjL_K=JLQ228C!C|i^E}T83yaDS-PY+Jtb6wC5w>P)4UCF1zpfgR zdPp|xd!=Dt)8Oc+-u2kpzjDH!7JrlqtN>O1_vq{x_qHY-ZRiaO^!d-el$Lbved_csm}cvB$s zrP18RsKaRv76&9heE8sZOl%1?r8Wdl_~C;GZK(<`?9%EP_MVddA1;2D)-cbke%!U3{PY_8 zrA5IVF)=ZDPD~c+?76a!IZSJtG&6!9Or1YpvrI`z8KIwYZX;LUwQ3iB|4&4M)-^@F z5=R9ty~3MU#)hW3@3Do}RtH2@1%-w>0NViQvn}`u3JR_uPyCj;X=wHO_3LSuGhP$` zlbyMy0c&6Uqz?%!JKY{=Td*5!IM^ZW-MTCpZTqI#{k-pSi>Dw-CL4s^l9|Kc#=DF097dWF9!`fTc&k;Dod_e_y*pHbg>|zVuy3^Bt-cSB4y>=tC_4MLF26f& ztfk;)+8BoyOoi*Hc`Gw0Z=?O9*)CmR)&G%IGdDTAIpHidsSo8@+PCWC$3ulCD6_W7 zG;SXswmxme9bUfyR#&-r-7Cl0LyF6>I5ET#C4weO5mUQQQnO($vX%_w8;nMkLvokZl>w_hnM%$Gm^@WuW zo&bhgn;Zx?IKpvU_G^xD-L8fltA3ubsdIT&9XUzaQpgz3EZ6r+teg@M_;wYDTW>(& zZE~*qV-C&kgsfAw)W4C-xJRdgS5{mH6l!X3UFZL=#9{Y~>}q6R&q~(lWalqFwhE@@ zzkl^gZ!3GG{{4HKo144%GqOn%FW^mqq|c8ZS3Q4`jrUd<=qn8tN4#Sw%;tY0osfGG z1*l(pYHDifAUYEy)}CtTx1+ip!9hVGpO$x*_u7wj=1+I)=v-8g_QA6Mz&kGZq>4E-exddeC?C}yUV|mD2gk4!kJhF1>38W#c%a_?ayAz0d|sZ zA7&|X7zs;ANDv(Xc2-Ys6_&qoCQ6{!wYfT(#ey@)FV4!ZC8O-|k#6QgoH|U64)*q! zheN<%3eBgy|`nC z4;LA}-^RT9yvYo;Mmk4ET%xCnPXcu4Uo@Hm5x3QRVK_} z4}(_(pGDZbO4zLTtxit$R5iQbpV2u4in22^4}@y!EB{6&zd%6HoKuzbvR{4nF@|t1 zB7j(Qc}|`*U0Yf7_xJBSFBN9n?>$$}^UuqQigo0|d{e8Q(vGe!fI02*zuyenO0nCI z9@`pxLP5pc-_K7JfC(KQlPoqPAR3CYKt5TmE*(92L6;F z&tU(B7NalBdE{U|_(0n4Fi|@{%U!;FOxXS<&%#(?Z-Lyut9$n=XdK7XqHzD(+fVSQ zJDcgm?j(vfae7V8%#0wZfAXgdm1m{DprsX2xv=l!$B%3hUw6<0LAAZU_Q_-A7hUZe zFN*T=a-?$}X4@I_boKNw(RB3n*FZRk-O1yz05ecKvEI|u1L!pBMSfsucId$V{S1nh zoq4HW=T9g^m4X52{6-$8M`mndQef63N#0dc!zwDeLbv``=Iq(KJg;SgPY7qNa9i{!U-hyIxR37K+YRE}H0=#8QNjLCIn`@Y>@;qV-O#|kr{cTMfGe2Z)Y-|P_ zVnbhFF-8y7>QR;BocW)Qo{s3~`}Bni%v|PvlFM3-|)+H*9rB2eG!c z=FNHZ*f9VXi#z=$E&L9{YOzM0b^~;abLlFnYFJk1>HZp``$(~pTZXM|}W# za56fN{o<{BFWL0>_p>-196~ufZ*HFE&LsV!zMa%*VHr_d@21O zx_M$l8=n>5yLazuG58lWYYEa%c94@#fjOI+y3vs{kZt%L3nJjzc*8dM@L8Ct7H6@?VwATW#ukje5$#RfZzxdp_bFW^#!k^p1ImeZin7WQ_MZD5sUCqp1rlh1id?=%()gFTQ zyr=A|S2~(k{kJ2zddtI&Eb)-e{r1vOO1fHVAFdD}%QVjUHz0@SbI}>%ar4W_d7qkBP0@w0$b{(a>YHQ45_uqZ=XKN6!$*w zMs@cRJ!Oi`_oP(e5NOE1A~tMq$VksxP`ht-6)2E3Au+^>xg6n0C=DSxoFpo0yiDl? zc;>q~)ipJ;?p?;}~FQ6Koi|QjHBG9V*q0+)* z2PW!oY!qA2OWj6r)FEPEsGo7z+Sq{qqv~(mynPRig!>9U7;RugVBoFUKg3n|AK{aW z>nd|uK$2K>k`xVRqV{hd@?hgns@S>olbc-k#52nN6Q#P|=A zQbQ}Y6H?iH#6O5hAhDt56h*_W3=9nZ$HdG76bLFk!(RlKlCk_NKmvgk4gwM-S~lqZ z{rjjWpeC&sXM-#Mvw=VE(&~Z`N32i%d`JiI&2|8L%6;YU6grWk+f2@b_Hjp9M6>!dIM{As z{EF_wYsO(rf*Cp2fO1a?2`#?gE0LGDL1r`G0|npexqUA*3}Cmqwbf+{MWWMNo*%RB zE;3AiYiWU>OZp&RjrNp@h>Q2M{nUz-PB`tNoj!UP^vNS%U!Cl$_Z}7gLj)5G9~$Va zLmXN*s6Pmwun+GkpFe+oW8=$FEq4@qSkecWqewAc9K<^3^Za&SX7W82kwSJR?(S=& z9l2JtWO$>y>p!nUKC$Z`9L&8_d4!Rf*%%Ee(rbbL)}#~;CP6O>Mrl75Fl%LZ z@-sIR*FI@LH2)f}^jN)auPqMdpER#nPC&u&F5AH*Am9X&4C2YcJn?n2r*!eCb?L2% z9Q6xmK{$q4}SQx+4c(-Z1TLIDy zt^+-VMRRh!%S2gtOpK+`YKmg~{LGAMs+ysp;gbB73U@bDY^?7TK5ly2{A*$jiumPt zaVw*N9E3TNr__ZDf0vg_ii=y*HLX$hJI^N#GYMX@R0|Z5z9rCrMD9g_V#4o{zH?(i zgGesHp`imv)T5&@U`NEh|2@XF?u-gDIcc+Mgq(-1qq4)G+*Ny>RMXf<2Lik@A4Pqv zr>raFhx{uO#(D|Yzc%2>b|0FYodvfe@z`$?6cd1mB$-gj^W0&epRXMq9amSegFzJY zGOqy>CEG8x-=g6AC-XowzKv%14fX)Id*VZE`>Rp+czAgYkodri98D!?O*GOj;IEOBuNfJo zsinRUa{|SO8$T#Hi#SFR1jf0nps}G8(^yv_QFKS!U(225Jz{+Q($x2Xu~#hW76w6RTl1y9V@ zQ1xa$OL3I(QhmUqM}a4g3EG@ZnQVv^8PEpK=iqopG;0et&seq-KNRM}f)|yPh@j;L zc_^H_fB$|gU4Po1W1?oFqmXl|nGwHn@$p%g8f$8ZS{_*uo<4nwRTi-B(Ia~evJ0h#`q5;xb@@KYJhP@g2!nPu ze<#|{0td*4bA1P&AWHLK{xFS+fZRjpx$2VmpnF8Ix@w1X;n9D|%b8o3_Oy}L8Yw=M zO`XTM1DyLBKv7oNd?#9+r507i8wL*pjtVsRU6p%oLVw{p@s(JqJe!$GJ1l7roRAaw!7^MYV{F5^KQg8c>a%`rS?NX6h@FXI<3MXx+sEgZOhQ^ zlh_-r^_7Lz~n~^TbzW%`r5QmM2XBxx=I@BF|_KYKK z00?&>NE2lbcxG9!?&Pxo94Y~+I0tqOOc-b|?6Nu_lj@G$+qZ9jB0U2L4Zc4Q!mh9} zwyhThb^&j>d2D#gpX%D$H_kK36fbTxCvV$%#=Pa?+Ozej_CEf!Q&pLtdV3AXrVyu) zT!21#+lVCp_RU3`w`++>N#u41XnucRpx;SOUJMnlHk6&v5U>Z3=8#C`$dpkSH*MZl zI@2H`oM0X19c2u8AQI#hSa@Du-q1(589E``er(enx@=-%ZeO0AW0diCo$oLO36Ii{ zEI~F>D3EpZzq|mT>MxNWXJmX|tyg@0;OVYIO34-{1wUJah|dfM9-xu*DRG);OH;3# zZQUqq^u)79hYU&4*3Ql%&Q$cRe|>y{ zXw+3wdd4dzD0myiPtphJDl9+Bn*#NKN)qCN?BGB8Wc%potgoLFDxvp!saHIWo#91+ ztsEofQs5W~7MYA5G?HQV13X|*y!dhlBLC zKmYs_lDP#}^|pWr$d(LkRWq@It4gw>Z~K1zvIBy1w%=tH#00)To6K4 zzoxIWlvF6OsK^4Huyf#lDypiCjErKUqDbq==tV|VJMwkL021QkD-g`s&g!r9inHY) zZDVblu;fUq(6Lvb7fy5TMV4?GjCB%UnS9@oYq~!9elMcTtm%a}lPqAo4)B%emLX7r z`u(S3&@vz%yDL1_!Hl`1R|6OV*(f0{?hbYnaRfyq#Et^->?cj#efo2c;Pm*n*Vkn1 zO19$m@8-+iEekYI&`FTq?P;f5V0pu4Z}@tt>tfCt13@scW=Kc{CF0@`=ah~t&@;{@ zG*ME!*0kzr@v5q*fImq#utJeWQ9rzIAN~5!@US_PWCvO_&PE+*aXi>r6^p;4y|=E{ zvS&pcUO^XwMM^L@k1T}M>2CzF_nS|S4P`mum^L!EH-*I7-vri;rbKB65k1hS76)eu zI-nT+)^KNjI)o=aS#{eukQm(c2#P9lO0H3AqV!Nsx;@sTUi_-(N!uFGMa}Ev;nSfBh zMs(t?FZ0;BxEe~OWxXd3S7pisF(DY>Ac9^edRr-D8&UgMgxFFAt!YTLKCG(A9NIb8 zfe8H8Tgs&0(i+?9&ZseAxyGZ`w`^nR|Xa16BE`WHj{-)N=jdfZv9$W zSwWNZrntC6c*BmhUPVijt;rT@UK7L&^h&TBnb#_Nt3Wd$@N)oOa!@!(XSL6Rwab9f z0Ei8hQZ>C5-Gs+Zv>ae0hq?;0{%s_lJ(f|!%W);&f9?5SVBp$#um7R5-1y1=Sufb- zf;}Xb2k=GZ>sXDzwIxZW4BfMN=ciAf!u6O)ca2!v$Z4_}yZ@J(&i?OS^IhAU@4U#N zuHp-oHP?aTqbL9#{&t9KKQ;B@Y_sCgm1e)CO(Ipw){d+EDa|x)j!iEabT{!ve4k6U ze|UM|#H%{4dFdY$aF^Yk9!1OpiHAyj`tYHh|1c@(Zo;uD!nm-4T3g`%PHq0+ST6JTItp(sPy-_a zgC%XaA$QrV$|Ei#>D9a6f4(ftc7OJnt!cHRv{vZDT^=7qQHU;Z4g?^g1?(!wboFL5 zSR}Dz2@Y=p14IPZK$vUF9l%NS#n^O(mL0Yr0#F&$UMihSNfcdahXOc(Hpmc*i8zJG zGTK!*0Wb+Z4Wu^ki5*JV-Me=QRvtnzz=g{cYJ~*~3^_SDTGmuZ70`5G-U4HHqOr_r zqUSMpc|>e1EiEnRRx9ThOtP@ee8f&$TWs_I+nj5=OGrovpyS&sAy(EKXpoRK@oSlQ zIk3dTJ+wNnjii_@SEY6&7--#`gX*;cmC_A7EH3fhy?e;IZPv%HatjVSbedHq=$DHS zOr@->?7~Fv!psc89Imge!e5eAVW^;81+>C%)kz7TTv!+Z7kkQF_8va+hj z^e?yzXAl~=%P(KPfW9Q?V@f2bo~5~wUwwUe)I-01H6t<5pMTH-R27%LYj0$5Fr$Y? zLFl6=e1Svx)I)A{3HjIK1#TS#rbf#Dh3*P+NpyTX9avBND)1jXXLYmgtbX3hxjLCW zD6DY1*yBRwLfMA$ntlYT_uot|3klq_Un=&rebj*i2Xbu(!e)D8K}O%D5~mySTd0>oPZNY!k>VA2!-u%zNfc9(+ZpAZtq_S@Ce^p{9XS zLoEUc5z1SU(2j5CU!ZqYSeA@m42lmnm&*FEThQ3OXffzky z)tMI{zVs(pQCz#gGIGVi9JLME*c|#e`qCX1?{I$-i~YedF*Hq>$-%e9~ zRl>c#9IpXfAp*h`BErIQ@#a;qIWLtHGSnrM%ms%Pu76bKmi>zQ)nE7(tOcT4h?8>+ zipj~#F)-%|%o->w_p`Z!cY!q({rb+KDTAdjD+R3?CFC168>m@yMl<_Yzp; z#Jv2i$RY_3U`hnk&Ye5$oSd*eckJ!$Z{8fozA#HPQFY{%GNfg?BzVp2F*NvZ6>CWv z>F8t3Kemz1A|WhN9zD7Y&f_^swgD3S;nEh+!b0HkfT7bgv$$lxVvoY6 z35Bl>Dl7g}&(u*5N<>)H^062!fBpIu9RbV35t#`L4g8{`W!D&VO$pm zccG-uzfPUMXutssj)C|vHy_qCa2psHnEM@Vou|>H`&Ta>>q+4X-g)obxnoD1%Xl&LBbPgOK#gQwDIxR( zzSjrwsA)joBkg?e?gsVp4Y3181`$>WR;6K!7;rL(6^-;(kfFmcBzk(D$0IfotH}=rGqMwGBNp$m63UJggIa| zIwImPNP00qFQAt-lpBT7a3d@I0}F$&Fo4`aejz-rXa>NGV%s5CrcZ5=2`q^$cqd%_ zf%m~zq}1QDz$9RuAS+dMQj)IwRc?Cb8Z@Cc0pZD(vk5je`VU}73HOvuAQTEzs4Ha8 zRZ>HGO-(*W(69TxP)P+n#Nl;OR#y2?2bw=r8LTOcw_D-MqxVWrAAvip1j27*WU<4D zMsdWyYWwQSO53X|E=akM{W#d!Ezob&S`9AoqeF^}>;Uct!&@h@zO=YlA0yOUS@{z! z`H?3d-;FT>&7c=W&ar)p|4RDc0ca)JJ`1_k68)|;L0mwf5aEZa5S(T0O@YNkk9$zE z`;9|-QF?pc4OOt7SmcumQT;D>8nE_Z>Wl4O6i^E@Ht~aPdT&iQ@#7fDZ4x^8w8% zAVYHc2YcyWl@_uvF`FMqPIu{xP;{*{uQib`N@@dd+?R=Vx87Mqsn2ET+gm}&38o0ON* zKQORLSX(j~#KrZ=h)yv!Y1{52;1B2z=p5g+hvp?OGaK75QX5M2bUcjtl#=+zb17O_ zYETfM{;ww59ylsu+kbIP;#;P!sjQXBg8QwKkA7}FAJk#eyWn1H0zMqIAguWe3S?W) z80S#kv9?T#Y;ylQ&5=$munn}gw}THkdE$hAg}WF%J-viPZ>f5<#4`53s_C1x zkavH=Lp)+M3)XS%UKHCt$x%pBI?4pR3;7u3F7S{wU;FEF)$oyxXgTe+WRLO+MGI6A z0MT<~1pL-bBsl2mDkL4q`2rlO2$({6Ho13k_ze(~dGEvgkkHhWH zhd1n3*^y3?+ayyq^jWJ48G#^JLPGk7hdWg({4Legw+&8D}zT(h<+ z^}sh?>shuwVzBUcz5jtDXR>va(H!9fL@yz%WE!UbEo7SHbDO6vPj+A$a6){W~|HYSp&J zb|}_^(d85qTmAUtsIc|6GO&k_`0$3gU~fBB32&`z&`Np{#S1ja=1lAkc^rsMMht7Rz|xDaLU1V6%q3!3rljBP)5qz|r zs!$bpZgvY!#ouD_GG0|#^6jp_WVl4V`L6m?V8tFlc}22))YLa7-CL@wFVbIdbuFd# z{5j$R7zGUDhzq^Zd}8rlKN@MUg#ba{nwwRrCAkFz7GN(^NpA&ke-Itrg(3i@p6DJH zr;Qo;L_|b95LsA8we(g=A22q+hAc1!1Hg-F{$uv*CHD>+% z0cr`Vz-x0%q(tQA&YZq|gFO?Xzdknwy)$Oa$i+ayD0)m_xo)g{8pI)uo8^al*_8F@MRQX~SP2p}t33*6`z7!LsW zpa&ITM{eJ`74TazQzHP1J-WH%mQ(OU5E-r`r>eJCf|FArhzV#N`gvW})_sy&wru$v zarzffs#fXkDX6^=hfsmn`fCo*e?V>@xE$#0;$nLJx*x3wKMRXl<^8Q1))|lTBiomm zX)~D>4g-k-wUmP(gFt{!C#OdXl&+DE!65xRLrHz}^4d!1aTF^&FNt0wWgo(@TWu&9 zNsBX4sF)AEybg0bQ%Qx8U%oou1uzE}#@A`(PsH%nvvZ!ntV~Qy$Pg{)8;}->q#c(a z4tknU_^=b85gDffEaNw6g>0|aNAcAPNYLVMyLayFLJNk+Px$dLCWG~=z$lDg`6eP( zw*n5$%+7Wrkifw5@bJ8Q_YR#O;a|tadB8sa)II&=a54dVCC{I)z}3M|fFNnXWt9`vRK+@sCK)LoFSYN*j<2oV}pa=(DtE=JOdkhNxL64 zFMK8G=rq}~w!TKv%Bm0P;T|&MydjB>8t51h$Q5x5zF$a0gh04>u$#B-BHOh~&7AkO zLG3^2C1{s6dI?fCL#Trc{XcSQl9Kmb(JsFI?K?Mn8*^hdQvZ-x4n0^u>s)pC|NH5} z|C#8Cv7{v_?b^r=k%bu;3Rb? zb8>Uh2w2kk8xpFB4}1)|+l?adi!_EvDB9y@2x9bg?ZOoA)!5X*rFv1A=L@s5*R}mT z{2K#B7=QcN$PdF$5L2j*3<5K<%o49sV+)l|sQLUk&*-8?Kia3Ep~%osKuasy$A<6@ zK(dhZ!P`cx#^)ufzf_`!#gm)6vF+aB-^0VheSHjnPnvBi`FrvY{sudb$vSzh=~4O% z(8(jm%-%i#*BeKemsj&IC8^Z(j;JI`HYwo$)lQB821ntygHEo+nNyByRR93Y2m1V&wI$D_LDu;2rimOmrR(wL?9#*CLqD7L7o~G9I zX-|QFrC>gVf3rY`@DA0`xm@(#4>C8OYT#O{XqS4*{PxXB8|B}PPbA4S>GiB=d`_!G z_C9d5pWh}&?eu?t&h>we#Qz5)v;QaF>ZI;=B?eTdK%^-eAzP$hKfhgw(`V0~!HhB( z=h6U%xUGp$4@o3;_J`#Dd3kvrt0M**kR9O%Bn@v9zCa{IOL({|DLqvYl#o~lazd?9 z6q{3H{dD8K`o`d}QbS1LmWMi-;GF{C;zZ#gNVJs8w3wvJ*KtD|N;DX-N8r1O(iwjh z@zbYofiFR+U|Hqx+^vamGw|0!sy!cn{KXI%GT$L;Y9ZiJLP97mCZ|WYkFqUjTuVv+ z0TKg~tV%5ssX9?bzkl7^`XC+ikuY+_uv(M*Lt5KGkM=Y}CDq$v5zL zd3%Q%`4t%O5iceUTyl1~Aa(4{d(bT&VUHizftH}5S(8ZN1xh6bOyUPWM>2Y8726Vx zGzdxDI{rlnpc2?}6$Ki`CVh-k#T+U|io`_&GlzzS{YIKaiP*;|jf%!%5eXk4Qa{o6 z;wb>4U~nrRQeiN;iJF2Z?>b&Q*v|?lCHiXg z3%K%{>gtzjsVaa3=+j_Sw0tJA5d)_boaJp`nuWG94sbJp0m2IxyokX``6LyTU3L!? zErC;~PMtWBEa|-iwcpXk2JaL^(T9J)Gx`^R6xj`4#$Do0nN0=u&nt?Iau|t$ zMhfq!ONBiO2%wTAU|NdEhC2Y48od6wt}YtAG)OBbh#=NtV`5O=^Pyp4T|pb`w9gUY za488_emdIP-T^ZXmirF$*id$|)OR>6;NNorG#lc? zbjboEB9J)Yq;tg!7J6K=K%TLM$~mXk0V}{v@Qnj32V^zB>Wvu9Ugd7Bqb4g@$PcNYD1PXL=YDLCpj))kmB@?{W~l zQ8bUSoSt4xsU-+R5W38=QKt+gVaysZ!e!%nI*6yh<(cxuK&EGVqW$zyu5V zo>g@ixVXf{%Msw)G*Pt&B(RaDf%U=a&JQ)qltf@$81OqoAGf+=#|{X~P$aQ2^6UPH z#xry?0i8VMP0(b{* zo6WI2wy=9B_{k+LR3EQzvb&(8Kln7~GO zokf-O#c*C$oea)zU19dG6-|3dYrm&wW(Ioq)T?G35WFf=t9bt!#yCK%p$UHjs=9## zY7e}|U{JM|Ii4cxp>G6DI;QywJ;cSJ7MPi1r;b4S4&&b?|QX_rRnpSaQdQOfJmE;pH`(uug{mmnxTb<)1T+RMxsHB_C>n@lV4bL zf}BU{Y(Usx1A(?TtGFfw)B1CX>!}odAXhQ9B7Oh#{pcyu+4zo=tvn?RQ0ksCJ(^*A zmKDQ%U=mS9ZJelK_HYHd{?+_u}mpcf`_q-S>c0MLJ72-7a|JC2KxIVSMI zS3Oci`sQu8V?+PJsR$dcJjhzLPN^4z&VU;yCcmjSeWN&pT)V*<~N_qoKmGoXu zW$K}?)}Vj3v$fsm5cv4!z$HY2h&D3nvuhMXhsB#zDk|wU&vLj=0z362PybfXf3S#o zQ3Nre=8k`N>MgrH^rEGFqg41*1;AJmp!IXQv$o_ev7 zFuGzYU}bRzG3X6NLsmuQE9A?8k|CHaP}}!AciAp)K(Duw1O59B(tn6JeGQeB;Koi; zii(QD&D8%;1B3BMXBhf?bw!+=U7lgeH=En9rR4Hz5xM{SS^}fR9RQ7I)WpH3GVxCxZT&6_uO<=wFB`#{cIiIv1|$%asi5%gCZHt>@K zsgVfA#t(+dZt;zybAGG~m9MWYqv;TiiH$|K4Z8>2yh%-FpqRwO#DFQOVKK$-#XZ(q zpHc=FOb^~hOsouyFcRk>$rwC(pikfjbDSq}c>vx|L_@>p&#nLsu*V}mcNSQQfKVP_ zkl^EUfLRH(${h~6+?*WbStw;tlB%FJH%6RJK;j4H^uqMQ(3j`H>U*In4yfBhg@&!I zla-v_3zi@tL;%uobh&YH$7pD}Q4omWZphtO8VoO|V0aj*E+u7odAV*x7=yS74q%`V zOJ#^@fT@@nW7<2X1N{pr+yn&yT}ASOt)pYXkhcRGYc!5)fzt^cd?aJ-uG)HEE;YfS z_8S&b|A_Q`aeo?9z_0lF@{dEW{#;-)wGPpZd8@3qXKXv6KgZpgp&Z$=r+weStgvif zTtA@HDaV>t6*tgmm{c=U1GZgLjJWd5VZHGRX2?3oA2M}2p-BDMQYFY1^tyG_R_N( z` ze`noz6MkiP{R0-~p&;PV<~dMq{BXq$HlvO2{y!W8`S+gw4+l4eVzR@3)2UXFPxU?5 z%F4>X)p}9DcMY~x<4K)4n??r8S#)IN4G;t~=q4v8DI|&7g^5;z@xXBtDyc{=IIzhO zSPe6N;7r!9O*H&UOPl!=P_frW`_;Rx=e~qccB|M4nC98n%5k2YNly+PD9?+C;^$pd z=t{nkTweTa$S?6mkzZQ~>p;-O6{{2(z&SB%gx~6Y4 zS#`znGeQ$C4WIV*2*fA7eAy#z2DT)j2}Y2y(X(uWeSL^c#(k`uoSB7tJFlLKxRkuq z-Gxy;;4$Be8X6k;?Brx*Hl;QST>TRhSuDO)Mm6>InU2hbq3P-AFxG(Sxp5;k_gZR9 z&2^r`yBM&m5GLcJHf)0v69zDRYia$#2Ymz7zz6TcfPz4DeZ!s<+Y`aE>a8d_rrTA7 zHhgZ@`&cj=e3wRv zt8Z}h@J-3Ch!06U+lPMP`v!(SVT-cd1RFKCi83jsj*d;;F=E1Q1ND*B2`bvTp0l*q{&O7Im;X8{?CgJ^{q^7Hg4zGqnPLAwc#)l*BgsEUiv!&+ zz97WZH#RysIqluGYxHYU9Y%3+0?LSB1QZCsH6(s}m=5_eYK>m|9pS4*u|Si+#nm6Z zu}NO;abprh&c?Xt`wt&3jL9T4-A11cN*G^g>YE#HsbnRL^uQ5D*r33*TzO;fj9jLhZ$2GX|8R?0|cp zot>rJr>Xf3Epq96rv<})Dyo#UwEWUAx1vl|Pn}CPE$8w!e!qLl{^^hQ3XcjO(V5S@ zzAxI#fTKAW(ApPR-(dAb6Y)Lywwik8+&&sG!I{qL|Nd6K{V6Fa-8=7FTl4#L0sevH z@?Yss0d&zyxa+wPTJhtHm|B4?JC6}~n^-@f2*4U&Un2W@tS|S%XeVlygvO2-5;^>?oWF z))>W$(bnrikqh%~dYQHqUa`VVPyZ7KQxGohTeqfA^%YJKvs(F|(Z@s0FF_rFn-0W! z9(a0hDt)uIjL7e%ILM5cwZ>f0ojY$TuafQA;|@;cjs1|3Zt|h@H_nk*T(q4ykpdQ+ z>iG7C9!CmacrF^YDWx12Yw_8IT5s9578Lrw+4;8*D5fO`_)(8R&wb z&Y+5Z$NV8-Rz|{UE2NZyH|_OWJ4OT`LK1WXMqc)M{PleNSRRbryvDh6m52f^{nD2# zau_)=H2eu3192Pz)C=;%*Qdi$97h(_Twel4hcD=)wY4>}A{_rX0|jP#tembLP3Pop z$Y&tdPB1YMLnbi2$X>kIUgqLtX!zWL?f!&TF z%<)2Y&{(dFsDID#+S$p=%4$P9!{7ma zYNeQ`#erdvtUNI_n(ED@mj%KjYC~n4o*iQKm8{sIhL!yU4(1Hbfne8swK5aGzJgOl zgfY7T(gpaY7XxmN>uK<~Q5`*cl$Q28kQ~Z-XE}7$G>|lV4xhRT!>4q@YwT$#GI&bO zZ4*kA%&e?6Mz6uI(*S2;a()~KU%X&x`>qSRAz|QLeMK zpaK3u2E%<2hf3uefn$x5@F-791FSy+IG&Ydt*uQQW5mG7NGypljrnUfnOd_)eu(bI z`MC77sHab#J-OfHkJ0iN_>S;7@SXuqtExMIAjBs%p+g+oPlJ(v@I|lM4`at0(=uXN zg*-ggMMfn_HUg&(?`j>_#DNK0#!m@rc`}|kV-Keh2oyMe64KJpRv~+}f|i+wjTHgg zbr2F+h!0#AmGjTi(!eS~K8(b1TKx1?S5M83d{evt1No}~#ymYwG|2|*OWz=tn{S6q zC^3OVY|1D7pJA6bTIH(b)JFUVxKZ)68upAL7lYb|Bmf;-`yi^9K4<2^2(cBdno;-<$kvMxfMKe_ z95?ldc7g6obe^%$W|46VFYjtHv+&X4I5b9BOk!eU@V>i_iMAI+1Ozk!&F6i~*9v7c zuC1+w-xBWuTEtTK<4t#8AG6%cgoq01z`U5=v+|VVs8;IRuC5Z?_Q8PkG@Op2GgZVm zdMIHl$>(Cei2AK!wCol_UEL>0y z!5E-7ChMi830@e59=(_QWaaiT9=Rw~6Ws$W1&|2g$7DO^pG}eAGyC#(oHMxQ47_GYOPyR&u;Hkw zsMvyf=&~x#!L@;W3=0X_vVA)!{9>RO3@zhUF_5BjKjGQ4<3P22hqt6=UwSZq4d7z5 z{IljI8#E!c)xoeR2m-``~R!5U_P+=BlA4Sn8kZZ-8*6Lqs2WMk1DNsm6GW<08%a9GDTUT0#$gQRp|&M8n?N;%KZlb_=4Wk3W_B>fd9jntxkeBq%)K8qUr zNJr(YyKdThu1aMsEvOMyZ{MD^8oTsl zL$dHtR&K&I!Fn;*el4KmiD&lFqc5ah7+YCx#^G!gP;D}tX>hgsWaZ^^ISU}zLj(eR zGgCeFZz2cP=`#NM(ErBVo4{kew(Y-K6-`7%g|cW^B}0>lMhne@a?22DFhr(`qJg!V zM6^^`B~23DC^FNa)jXF%rqZB7nl;D%UaaSNhyA|$eg1pz|7UNX&-1Jb_kI6osw#(qWaTZ-ThfZzl19U`np$)~ zc8_H7e}G)j*3(l_3cIjl-#()FM|3=7lS|KsD6yuqqDwbh-q$N!*r)fxxGRfB#fnZp zr?WqO@oZ!HMYq%kTOdIX4j3??e3L(JX+ceEm7uorKh6*qQ=>XAE{@h9jZmxUXLs@AzKt5lb7}0J+Rl_+S$`31>TM7{}z+QRDU!Q0+iyk_XCXxvJ@ZR&*?oc^! z1(uePXPs~avgW6=zT&H7B{{{j)pnS1*Gs9BQpZl6z_9f7^spB^*-)*ZgaY9Dty^7j z7u`HL?c0OxsVFPcMnyqUfEz_gceKy7 zC7zR7)(Ob_Gk7au%|++Mp+V1Y?Z+#@mj#a(MbC=2gS(FXFx$%N9t;9~T?>crrlgTb zMEJ}O&}~^c2A0RWtCN2s4+^2}6GoPDp5HG=2E%bmZ-r< z=Yuj)NFn^@j_+Ijcq?$HT9?fn!|0<}4j@L)pFjWfvTSa}<0XVfnl;g4fHY{}LDcZB zd(_QYkq@7_S!%^rXNZF6uW<29T5b%*M3vmpeEvw2VWzQ&2 zRTY(wP_lyCfOR%9%7q_eUuK>P)U~deyqjczv*;bSSGbIH?D%DW^OyZFtUC7D*PVvm zS6Ne=5JQdy3$+t3MI?n}+z_`SVD5R`dfb)wkVxYCY}naQRq&~~>2)(%m$PBt!_SDT zJ^J)Pl;h2HW%zrX_P{Z9Ucm+Tit~Eoj8FUj`jgkvz|wSuXv*+2sgW}N^IcPOyj&gS zCFRa(1AD&v^l8EJWu{rP zmzI5ZT*4ZWEYZ|${uK1sQ>=3<(f2MR zJKDYF=PE0!_EqEWR&~O8ny$4GXfc>=$)Zgy->i5?_?LcY-yx|q zW3h~SR9u`xgG&9ACr@6z($j*RRtZb6ej+sh_SGIdIB)%r{EW6o_hRCz8m={mifqoD z#{$QB@+5xHRG>fcO_*=EyO18r%Ec9O4K+2+BULf{jq5YH2G?wQ-ur8jMmBz&sMbYx z=M}5{Yt%>$k;EzyyrljESkn_7w;!}iMK%>$8B0#3p93`cUviUpZ91;}NZ!1~+Em`?rglBHuC~G6*clAVd zfQIWOpYGC-f{=oYbGaQoFHMUNxpU>W%HQ{Aw9W0<(6{8hoWrp#YhKKGy&>fmD3*;G z>wA@dj|jW9D^F(pnj5vmRnBKc%-%l1{Z=Y18Jl=(jnS$4`^LGU&J%Mt3@8q4{$@Vu zl;P}4z5Z_S`~MSq^be=||L~doTxq)zj4)tQyu$-S1#Z%1h`qt)gsC`;0Pm6_sq*Bm&BH`jUnYOpp2Iw_qQazKzr~~? zr0~PLn3~IJ>Y0UG8sd+3k*`KG<5DX^^S#lFGKeqLL)*-M7dzq zV*sBgE$t1=ISU%sKq2n;Xg=L?(!WyeZzTGqda@hjWj7o@PD-=_ILquXbX=5+;nSS& zzx%mNLbJ{f39w_vo)1rV&Z5Oxxkrz+H0lEzbneeWh8MfcDojdhvy#;6T2Qtwizx2!(AmRB>G)28G$o_`}Rg3y3HSKmGP1DKsWH? z%Rotp!972+lKV*W{q!}}#9;nH|2t*6KGiSf=B%L;zcJvfxUpMt7cnTOPjnT93m+%`&>^zH(G@l0&HF>IK#lSf+#BrVMOSwqdAu~f$@1-TvI>CF6KmFbaF4ybMy{6m ztY7@f%KUuxmgD1l{uEp=kue8=qK!8tl42~v{GYU`>v;Ngl|Lm2g_qVlQbu9(V{)If zgH2E31x^`2uAW`fAUn=2dFLqlEQ$v7Pccbzv)xK9xnRM9g5f9_x<`Vlx{U{&JOHu+ z|Gh0dd~B-#3V?VhkDUN?uYYiC*N2Lc90v3)W*pR5=(fO@@)ynHxH_3-f2KdbRq zSobphlD4BBV+2SOANx)MtG9Y>CX>5CQZP44`&l3Nv6H|J4LHk!$ z{f)eYtLRZ_T|+|^%7yxg=9c?#Ga*f<)5wpiGP~I?!y$IAq?p`43ey{R{M+zj{U_5y~{u?feUzc zdWO7#vK6-qr+~HMqfC&Gtj=xFo>_7`x1c~YCTrmiU^{<)N*^mpBgryoHV{sEBu7!` zWmHSicvC5dgoV-n>WF3@X;aG4->9efZC6)US`yv9gb`H)Q$pegvm{Q2sg8*EsNz^+ zAXb8rd{1)WKJQK^@EBUu@(T*==V|-(mnlda(v&o#=uU~DGMV8?Vru)&Dwn-I4hYK% zkdNt>c?~Zw4!(okf4l zCjGA^!!dZ3N`+vIJ-t+taQJYKo;`*ANdDu^{o35$;F%jFD#0gMbFYd1x;# z7RHAYkoud(pvTPgSl4prWu#l$U20&J#zaPHMuk@^DxoDJmtgpd=oX(f<}E!uv3}#i zvbK@X5RQ1-Y6zp_;;M3epUCxH?S$i;&{t+%=L1?vsvyMBN91Wy=PfiSdfDe8{s8JtbXIh6<%O6y$kIPp)G8+Z}|kLc)V zm2TbMo$o$NoKQ|f89uZCYnSra)h&_qfMtruAeqJmID}@|r%-}Wh&Z2ppQYAK=0!|> zN~8ZY9m&@0HhCM|murH_54beY>f1`0#>x-J7S~s6N4J0E=M$CxsHJ=?dA5DttSDoj z36uW6s>lANqV2!hSW9V!Xg5_4@3<6 zUy>^P7f%~siI%T_(=+^U{h_?kCNfo@>9g*xq~!a4I8>0lg2J&2Vb7jDV|!*JTSaty z{DOM}r;uQ!FJ1ZtQ+LZmsgjg25lvKD$0fH3>rk^1(g}KKTD)L{11~Uk;LTX_oJQ z{MpHXFT|@5(NL#%+}^Nb1a*e=X3D?+v9!xczmlT&)53=pL^CBLOe(eGCt|`rKqxL=x$*<(9ZbZA-+w2A6X`=iqX~Qlo?B>s zXu$It+KVpV{rDiDsCRpPBq4#M9p%iIuU|Rygyk9tBNPhJ6T1wmuWSibh#B94oFaU{ zdV^xGB`e0rETui=G1z_uEymEJPLymks0_yFG|OG$==eamHLI&*Bv@1~{}N_Y*+Wl9 z=R3>=?Gdpcb5>T!bBKb?>uJMdsgN|`BBNpCms96(Mz`t^hEWh9k9_LLGyR_YYY<+!33 z&z^}il=jgg1X0ZCz}8|MlpsW&$?KEx4sR*IgruYtdVke}fM13Voo(V3vpMNPq4q!{ za7jOC5SS!EU%HJX`n`hqhcPBrmSl|N|H*PvR`18B!h=AqJ>FDFY2hzDWs*2^&onIv zQBaq8NfI=#U;!V=e?yzPt|isES*-wu0Ne7{wk?rgB$0$~-KrGHy=7T$4LLMOkd3&5 zu+WmD(0rk*IVzRX%Ph?2KZaM`xZ%mPHUXieDBpe8K`c*9UQ*tVBX;-GLS0#M4f|Sj zBXG`LdJjMU4-R?OJ{>IzxXh0WN+cs5(C^^ke=bm2SKc!0x3c1tO?KeMtTF@y?%n5f zk^L2=huLA+JOAc@EE}CKQCzL1G+A|fUzt~{DHM{+kC&8flBw34h*IHvhY0(-bK3Gz zzO%YtP5wf73%g9m!U*A#@a@c5CnT*YSrh0hfn)$|p~Gp}nnVBKa#g~RBup_A^DANv zZjV~A6sEFd7&OLHN<=RI&P8h*2oAF*6O-fwHH+GSWg*OR%5?TZmC5dm~dxk;5*`f%(mRI=S&?`(P6Z-0zpyhy8!# zDausJQT2hHfL$2T!@7qvz2hXYNOw3f zJW0POXhd~S1!Qv#J;ii0%7~=}uPZ_iq1%|hhJGA?uGe|b`xex@kC>5?{F^#1*a-;QGL^}*W-*h@4Y5#kBg^omdkF#*bfM!(5Wu$(8;>4s`>omQ zLc2-q5t>}*zwHiWPeZr$m{%P%G&CxlWMs7FG|ZHkEsHsEI<==XBVeS=fu10~EU)5m zr>6GF)lV(S+c7@3=wr$tg(m({4geAj_fv}Yv9h}G9p-TD(hlS)ga{>UcuY&~+OTj4KLsrBENTSGz*N$V)! z%#o;E{s`Xz>~+KCJzzM$?#aNnZlhHj zAXAox*maq%-QP&im)JgWaTvK|Q1X=sM=5}sWu@&}g3-MMASYKB7h{u9yF#t_906jT zI58Ya9ggmmC(@)+49Qkw6rM6795q3f-$+IZIq4o5&<}8E*{!M^?*#~Ih}fA+dqjCn zxBn;KTK_JA4DemW*PhlOJDlpaOeXOAsW?14FKgPb_pF_iJsxCx#)b$fT*=GLAuOh! zS-2=jbi!Lc+0DmrZiR? zDn2l1Dy!Ih3F<-WK&?5Bj(zbTQ&AbHMb&Wfd-jsecib|Mtvxt;&Bqj}H2cb?e-wU4 zZk(MfG0@W!R!&I0u%=AAxGd-3)+2Py4I6f+stUK!T>rKi$+nVWOoYF9evyc*5Jb=( zTl0{O8#fv)U)=Jsb2}bMs{B1#)rgLCI%WWb!=dQc*=h4Ag$HJEsXiVO}UTfPA)KTCLk7J>+=^a0LA{p}F?l?6yWL<_L`1e#rGJmDAs`C>DCgEs@@(%iFXLY+ z<|sX9jc%GP)^p|A%;RcgNR;JO0!2lxhczHvGBtW2G^7CFQtD?_tRI%H*Wj9?d>Kg_ zDDnxg30y8E5&&yKU2!OX#9P*))U#MxEL2AD(-tYMkC zxujS$Cr~SnXGk66kx*u_aQ3bHSVrM&T^Vudt=y{EKdN)vdrHlLh)4y(uU4YOC@B?& zdmvHp2w;k#VPW(dAko@SZc%Y8@(zCif)##rz^iadqkIo1`hn&2FZ)(6;~D`Ytcc2Xw+Tq0rF zinr4;0x1ME8n!eOZU-p~vZ#sL6;c-UTj2Ck|22w?pV>i`#20xh-#!b@_O@KAWN!|d zum)zAKADtBxWDp+A6%x>+20W@ERAnUPE1O2g94}4KG7HY{N6Zkk`WfDYeBo;B&lO^ z>nuNq!PAHmwYANVbcx@xbo@!^rlGD^O2Sr5FF6SZ+?s%k0n zg07@@EFRaVu+M?1XC}P<{BYl~j1s6&lf|+3)#TN0%l;$;3B+ZMVK}iX_2WE1U{XW+ z?7kqIEH=;giABLX+cdnt1OwIzC z!<8jPP!gmmISvk2&DCY2hARK57cfPud^_K5KEtw{38L zAWpZVm2ke8581%!3YCcDlIO!I_3BJ>6Om`$$sGU2$`=z!z!n0AYZcK^0-`G1`CuM+ z=k1}P-6GM0i0{;)olsMu<;FPTMmQe7gBj*Pyi2 zUxp8#lRTP+gVNGZ&pt_uYsN2`!vP)l(rg86AN_J&sonJFEDUwODXQR^I!zTJ@Av325haG)zYOZn4@Ob3Ja&(?o_B&XEd$j2$+ zHFsEIpXYKr%CxiMj)DsZTg(Q0B-)J+ZFO4fbN#eVu|MfJ2ub`1<9-(FhJoc|Q-FL6vA zcyQF{#=)t`FaL~*`Gl;Y3XD!-{PtOF22HVfMSC|zE4VSlq#xHZ$^X_QMn?oa@l7-=Q_Gbjvid>tlv6#8pxYl(gWM@Kq~Iu-%rhC#^lMD5%oGa zI5d2WNIi%sXKHsLpMCu1<+k$B1`2(&Jv2gnps{UXfkU#@{XdVWBH)bs^Uu}v>2a>l zTRSiIrxi@qbHB1H@ON{ImRP<@)wB5?S3K|QD@r=NkNBckf1)k)|$J z-2=Bx5fwcuc$F3%rxfG^z;1I_J|0TNTNXHiGBI! zdnk)1794>E2|#r-D%gA7?9!v%#q8!drZ?Oa0@Yqe|u;1qz;Ee^iK@#mS8U-)s8* zxfDTe@Qzv{r$SI7ox19^|6KQRBjl2VqWhnC<$oV?-u`&5EiF>5HOTt|AA=o>yGz#@ z2b)ZYTL0UFw`ayWxTexL6!G%7Z@-z9Pyd>UolbT|QdQ8qEQ$84xc%7&J^!HvFqZhr znk6JM%tL&-5{*=EQ19l~NRyyJt!j&f^P1p`{mrLOI>st4;neS`tX!tN8XqAw|~tiFC`{#4bsy)OpacGMYdcq}M`TdLd?SX67@F>#YrAwZ`b~Jy!G#(?8;Ydh<#d?KX z&>&5*2CBg~z35dgzW@5k)?fC)fvDke!0w|Z2fSz>f@ts4UtEX`*=6DOQuk$1>o3B( zfi#H;aXgFn3WTzqEI8|j2qpETdHiL9ey_6&>u0K-J=o80giITQ^Br34 zvj691td=9m5d!%v%urmP_FfD!68|P+i2mUuo@=g?ezSLqwRth+M$T5{NL(u@t&@F= z_aG{Z+O-R>lq!Ky3x$$}66n~V!GnGMjiR_#%N_%80TSP&Dq{SW8IiuOVFM1#!&Sps zfC5zJma;Ot2^u}{+W`pqD@&wEbMS|zm+juNPbK-41Fiqx2DA;z#(v1gy#wDrl}NZM z-Wg;*G0~L-SSYGWDndF`oc}3mk^H}K6aOUy_;0ya-Cr14k@c7@fikA|W`(~|eh)B< zzJ2wyIJ_QFitp_cp?Bf@d1A@0W?&yb047aL)E)AvZwPw>g=W-&p)?ui?j)nm`AXBT z?1o1?xtkF+C1kRTTi}O%dI~32u*onPXlX;k z(@GC5SML?y3C_2s_3-WSDKoni4)@IJemtV$x53)tJ2L;S9dB{0O{FfH8DVj!1;$4+ zU<_9Xzs6U8rCNX?T8PBIKz0BZhhC;VN)(o^TjHm=WCQ?|YCUG!9o!cGGLIezk|UND znb<0Sog5YXwfPiy^j2@^YRr8xrb)`n>sSc;?-pyb?9q!N(gYfa%@0$HAX&PpFewHy z9U-}%7VIZq;$K+5;^CbK?*k8lz&RrHZ{y52>Ah9J&|X~B?9$0T2TF#Sw`45;rK+%a z=I{NOp@SoOsrAjf=PzC)nlqd(5q2CAt5ZVD%n=!%Z}&`pf5H!OhBq=t@{*`0M1_In zgz&>fas>=kO##b6-H`2b?dnxn%wnPyi319*kyyu}AFTKZ zZ4RkRpE0Z7P-E7Q`ks$}?w9>ERbiyT-X`Vbbu@-AxlBEGU{Gk*bo$qcO7^w2e~Ujp zem!<7S>b`kLEi_3C?dQZo%lw1=RJ!A+L8klDOw|nR`prxr=U_$Wtctg`~m%y)dps- z9aiuk-%B4JOgJUE+wKxQYxAwGpVil^A%G+@C=J%ve~3*C1tr-Ub~zsbDVs=-$F6=; z4YSWQ_V?u>y+7*%7J%hV6s!d!c3!Xv$Rb%nw;m#ML3QKqeB#6j@apyG$;myUqoNq! z^^MB|lYiUTm{pSDd<|tz%=o6a+h>01;rEPJK+R>1s#?5Y5?XVXARz;T6ngEXSvEK| z>n7*NzLxg;G|6pmaSbyw*3FokB7PEoM2pwPMRn>r{srF4)`d)5@S@No;=won__k-Z znjHBgTbHqCpb<7jKWl*v-yv@o_Vm=lT>eRXO0^CRx=NkL(2-s}d(J!O(MCBcD(c6> z<{t}aa$%n*PT##~_-@i#aKIM95?wwlHy>YLrASQRIaTmY^ab|o9!dBWf99$Mb6-bq z@efiI5_x&UoIOqPNw<(2j1O85PYI`woje&{e=UR^^RYtYJ{cp$1My0IO1fe$e1+jn zGLk{weqG~h_)s$GRoC$M1HC?6N=EF^L}j)bg<x6o|Z7FcpTcA?>y_Ayv`?X2}Y z4OQ2_??wAlt8U!+ZQi-Kdux6*BX<_=Qt;{U7|Lg+PD57x|7=gRCd-^~n9_0`6Iv|1!4jZaaj|)Q8G$_;#-iIjjo;W!Y+3OVzb%aq(%v5+~K z4Od{8>mxZBwobkfG?XOB;H1jzJLI?8S{#KreY!0j+N&>eKP9U41u1e8q0K6B^w8H) z3H!L1oEmNjKc;2RhdzwtZ)T!X7(O`rQdUqJMSV%X@&yjdT>H(dW9N#iag8D=)+b}X zaiamN@X{ukgoA_aFsMoiY8F;N)WYM}#}8M?&i{JbsQ%Y3Urps4hrBrDEob~Dw%}Z# zw~h0U9MK=rvnOJr(KK2Lzfz!ty{*?10n8q9qelUD1fcsU2^(KkRoGdm75Gwvl)SN< zU=C%cRYdD&!ISdP?DBTzN_i+m&6kjTBY2_>5?rffgH(!kV-fJ1-Qv?3WPuz5XNBC} zXpr7G3jyUHis`9-(3fddvai&UPJwkLR!xMA`a)|#V^IX-!4PFfMP)ID z#oQ9*OsiasGsB2ez5d1Bf{(|HR|mQ6jktSpl$@O0_>cD&XJ1+xDyeZwPVO3>@%ITl z>Ge93+rO1|qRBotftoLDGKqgi+q`MTE8AUSh=7h3dxAZ>GA6FoH;>93X3I%S*LFDt0bDG;NuTK=4!g{siH8T23;uqF zwPFAOX{#_j@xPvWyGQcPe;zZhUlb;Xa^xOpdtBML?v(E|sWddCYNhGD-FqUcUpzb` z3Y<0$(!dLzaWm)P`Zd%z4}ZK`MT(H~>ig42kM4l$ z(&~M4kHIzn8=42QiEe{%1cHP2zw#2l2&K25KApLeM+Sp1DL&i0gwyf?@uJ>+IK6le zK`f}UJ%6#U!jxxDw2m#r3>KoJ(XdkIRlMqs=b4*Hc!@hVkfl>{Cf};gD_7(Os)-v$ zc~vG!>x5+Tn7_r`6m2JMF*7ToEPSEV_4JOQ*LNfhPzOWD*mSuOG!oF^p(PvAtBCr7NO zS`z`V>De3l^A8_6;!jZISfLy21t}6j95b`?o}DXq3%i`&BV6cF{)#WxS30&Si)yO% zUSMuIr>rX5uk?ZBsE^oF9Fk-p2dHm~T>M5}Q1kugA>YsVO~r2y3Id7vk?2%x1~=bu z8Y)0`+7We;6wo3&vMAa$eEKw;h+*$gROGvhiR%a(xvLl{2CAXmTc*@a*M*r%`Z-Q^z5@*x5)Cf ze6qi?TYNNX0@~9~Q6##`t&Y(;+h*O}XrUj;X*hhIW1N)`dO7@~T50xWRY3)WrLaxR zEmPXQM`(0t5Ts|0;aB6B*jNULGpOqnOdIUegQWYcKCIEx!M6&Y5M@;&sm!ecOR841 ze9oKpb0h}Z+EdL~k@J?e*|SJ8`hH#AuTN6C4tvqL&*~d@)|6@)zbQ|Mf1qaFQ5hK< ztyjmOkyrxce187HtB#Uf_1Kc`CGWKbV22s!+E_5q5}jkCqqQjAhWq0W1Pw)4l2UHjGMYa^?%nWEG% z5C`=49QXGeMXMXYZIQyB=|>n!8FrzFwsOM2) zXEa@%I5*`UdwN;(+46r&c9e|YG+%lUCu?T=qq%u}&+BP}za1HKVQ)quqo}rNT2pgl+4T8E!xt1bA8a0uLjLu z6haEOb=h$1l5Xy^`K1B3y7c`s=K0=hI=xQa*wp5vm+GY#o)#R(ANNl`{(Poot7G`UHAD> z%0&Y07hZQd;#26R;*n1#rJrzbGE*^VI_lA3{9gHkvL0t;y!5s`a5*dEXc+GDVN{Go zZ=Vj>l%bzmT)f@8zESIq}+F_MZNbzDmMD>{#EgEqdQ-72zOrdLk|mKdgSg>h-0Ig64S& z*iDK&w#M5%Tiz>IzIamMTbwOAY0{Kde^9^WUwzc_v!+==O^W>-@SbV0NL;*@w!U|D zwzGSoo%MyNtWyIvM{@q> z{nl?xFqkfHMAf_`+PLLSW$IGKMJKiXv2sp3^_D*s*6r4;&IP|AH4&UZ)wbGoE$Ft4 zl}lY;bxQNs;PNgmM{K37|D4ozZrcbr-$At(iBlrvlL-GA--?<9+x@Y`c2v!G1Yyvv z%kNn9(2tAOWP{ki4>}I6C*2?gi&O^@a_zOuTEG-$^D|(Ug2C z{aHA@lHLvjWPbq*6YvUeZyDEkzsSkw7f}SYGHUl>)REN@ROC>IlT2R z7l!@a@@X^nr&f5+sqwms4@>MMM)$;hDgZ{7%>_48Ttvu6e)p`dH_N|6a10wZ_Lx*AL zdbU^WqRgD6NHU8~ny+%7DE!+iUp@bROPAiuiK0{hOMx3D zqoC72Q-@;M2I9AMU7KLj_&cJCVbgNc8CQcF2RIOYRfWi?t)$H(Qb4IvGBZC2vh#T- zNOxL#Fy$RQ1yS;!%fY!c7;0vOqJ3=7xhtXr^JFG;c+06MbTbCxtN7;4W5OY`B1gza z7XO%a!njM`wj!C?W4S-z0jUelG~pq^=qAQ=xYfv#5DV7^#m6LpBe@BRra%Nt=u-p2 zpL<%8TuiRc7h}+c>nF7aaFa_}r%j4fwM-#izH;Tudq;OBc(e)L{EFO!_&0{U|6S_T z1ndo(fDQyj$>|Q4bCNEooDcij(?qm0HMN1tXKj7HjLbc87Qn0uKSgo}u+Q}fjW&1b zeMp_KA$%k0j1*=`n&)X2B-2_oH>|x+#kDI}Iw~mKymCd@CQ@EG@EE*eIL=Rj( zj)TiXpw5$VgUVmrFSKh~ha=Obuk7UAp2T zNMNCnH8&VK?uq~0!tu&_0#T&Eby{HaIr%EU+RcGNt_VN;o=MD7Ltk*oNa z&ljDfAT!$o`~)YNFuPR8ldFAeR$_t-IwIGuT?b9{Df3@596M#((P>s6)~;KJ07s;N zD;yMMwhgL~GTZ24Sy|pySrU71h5OU&aayE@S}x~GoK8?jF5(oDb9_pZhmDhZNtfM^yD&^f9f(ThmVUz&6Ytt%Yo z#Y>kE%ZadyU|nRC_|Zh^$2_WkBj6yACzx5_VXmfYr%orbvQFK3|5LE4ao~p}#YG(O z#mn|*A`AHNVI{(;_$P$Nhs+`ZJ?3BngN7ZXBs7X|jyYZXv-OPw4(AR^Y99mDJOqjm z=4kvP*4|(^xEeVo-t`1Ohd#jD88ZyQxj(A5t%*3urg!R;(OzA~Cpm81I=c=^y?U*V zm*ufxy^>#xV!kYcqyeKXl0VWpfL2Z`4kIyWCCM3_4C2MlIBvb85L4rZ8(-}1>FEia zM1@PDhOEVLU85wy!?~b_;ePh^6;!(O=3bnkj|S5Kgp~5@HEQPj)XVP@>oCx6BCn>1 z#LI7LUWCpy)CONMx8I})SO`%B3{TFD9;04AzSx)&{~JsO9jwfjrndvX5p48U;av^5 zAvrToXmJH2%`^D=`7_lkl0DnxVou60NAwM3tY($jWTG%H&dhrfVWPd=64%)00-Lw7 zal_A_;U1BZzKD)FY!LO#>$@ho_j#|8Zl!D8Bp41iQ9`>tJbjAJSy~pyGo%y-jpk*c zMWGW4oVPaT(4j>z@P>g$#BJ6h%vvMS|Fy%yuc|M>_GR0*pRsRD*_}J-h@)U}L{~Bi zG-h>uv3y%MBGp>VL=;bu_RQTzaZypqm~h{%Ju)*+wMP&9bLUxG1IAJr`lkYD<1vH` z8iAQ<2)8=RE_JO#!k+n4I}8Kp11O<+P~_8m9!_c@^uqs0Sh1fuSO{2)pkNitg={O+ z`=R5}?*P*Gxoxba#-L5lYidZYnHB-ilt)BhJ9#o05mqLMW0d0zu;iOXf_qjuT*Y#D zU(%NoI_iO-0)idQYs-;_aP*_p z^6ud?bZXn++UZrQze?NK+uH-3!H=&1@`Q%2gdd~yvz5yE*u&H+np)*eF0f`C?|Ay% zFhJ8Z1JJ_O&;SefaEtfEX4O%5Ygcj_@2A<1YhuH1Ql$RY8!|)jIc7)yT7KVu)ha^DE$N?oaQSHU1%PD}u8MR!qJFGT9MV~nT9`~@ ztgr;0<)gXLE_FS#`!*`FW$ze%dmN?@?FJKyGR4h#cnDomYy_{xi$x^kJ8DtVyR|@K zyA0m!=#MU|qb5+Hd()CO)fPmqWy_X9&ToqtZ=?Jp9>ZpH`Zh>kH3DB~I>#HXS@VtI z>sZ&+uFPk1mA{$er*_`mD6>xNIPP~XO@{ksE8xt$pkvK|DS_{<{IW@r)61|f(o$7s z`aF#hwCZW&NyAr^H!khPtVyBIArt5uD0kZpcH(eS(jeNn&QDSQI(}>;A5<8lsHu6Z ztaLkj4gK;a#jDmwHgkQL<1ehaqbmK9z$YeYL>M|8SR9ykQr`f9EpASPuB4xT{pLvw z<3+aVva$w|M`uloZM_z*z75LExnLZ3>}y=1e9yfm%&;*svI?lskx9~Jb|0G*Q^feO zM!V7`+!{2O_K>}}tbcoLm|xC0luIu^8(6i^@pC_0bE3XJR`9AQDD|m9c6K%?@m&q8 z-`}~*+FLA@85&0dO4_k}h42RDO4z^^cqeH7{PO{PY`8lpmH;@XPM-V%_ZftT%ytD{ z7YiS6A@X?vd1Bje)aBQ~GDFd%NA2Dn08p>iUY)%I^oxj-t1a%L&te~CTy$iHn&x@- zMzXhHRHp3E*5Alft^`Fb1A{D!S@9oZ@_A)Jp2Hnn;3jZ%M;$+Mw-$#6mKxEK{!0Wj zoC}s}HG85KUm&?l36+*n?6hP@?vEd`z>B9n#ta4$P@Zgtm_}g1WSr6et z!z1o_DkfjKEyZ>7aI>AQDdR2V4NsLEA97OZ?^`m7OTM^WLqkoCdbkpurRoEV)f~v& zRAvUBFLA1dlWpY^H-6nv_eQt+@fCtTFLv~KpZ27Rw*{i?*NBR z8E%j?W=Ziv#pFk~-7Umer1F?KE29l;ZCgh7m|LaNL8LGm`VHJeV03052KxAPA2&d!>^WGmvI+9b>wZ25^@@Iek& zK>dxAnM;nPGEGrA+d&Lj+R0E+RFY^CEVg5!{F2dX9TsMqn>!OeQtv1^&%MRcvkp2` zR815fVSG$IueR2&zzPovAVu2#xyn#Js;JPx9`hazhNzyKef(~7N4<@?WQtK^`x^Na zz7dwHyg&hy3gzUs?CIH6<{7^cgPoxWJV=m8Q=`<>(Jb+pE##uwG!UsQE_H?fp_JgU z>~XY_-(o#t(Jon;yHt8~iH61gus!~=ZdtCYBU$M#eZZm_Ix>Zx)F6(u}!(#oxEydozcwaVVvIGZRHG!G;azU~72`I_=PpxBrnq z612p&2{bjz+u62>03kdIHr{s6LX`9{o^emaSQe<9^NCdqO(9!NEOsZJUHjl76a9`U z#R02VWAEs~h#sosb@;E%OvLyIQM!HJ@*4X8Fn;hJ8Ngf?swxHQiMP}}gsqK=#&NG8 zF)b%&UQ@oZDTa{xG_Lr3v510M$l{y^D!E!wVZU`U zHvdQt$T_{rzwrk#^^Odc8ti&$sUi7R;@#0kM%M{mWtwN6%{n|VrW`7XELwb892#0? zA9K}gl8;o*B>lDlM^Gm|6^9kKh$UW-n@je{lHJy8*kiJ2{ERu!@Lmaos-o5%#W@bw z!zdh~dIPy3#o|mNXJrW-4XBZ!Kf}>c_!v|4FcgMY-lRxKAyK#*_y;MAK9vr#MevWI zW1PVTkSQZMt-?TeN5(_28rVDE%(^H z(6`iKl@LpbhD)Mna^>?W(KTGDWru~IO@2m$-Qf;R04m*oN=iinuwg{`??H`EHcP(3?1Kt6jsC`742>Y$67w5@1)e^C zPAy3CF9k;xX+BBcS_r7ej~CTcvRy!Zp;1hP2fs-L6IWRVNFvk-O-;mn=3=BalXgGLVRwRBjHeo#+e^v-?PgE_o&dG#nOx( zQ8X&N9_8@}fv5 z5PC=~fdT#dgHsQ=d#x2poxY^58##l(D!Cz|_#{V4J{gy#_!v$L!vxFIO=Osqv&fdu zK!ey-&0(4qU)2_1zM30-mM-i2sSg64_gT@{K_<(9avDMNw0Yv=7Jk1T zG|e+=D&0KbrD=&lEIi^A0H-5_w4DBWj8Hmt^qTir|ckc*KwF!%nVBQz(z$*clj^j z**Q536VKtdcJ{x*Tp9r{J}7+nLUvp^^vC5B^S!+@dAYb-e!jku{f{0xgy&P?wgI~% z!^6WfGFE^a1q9?JcpSCkHFx$!m&y_82Oz8iOA4pTnb_%Pw9#ayHs^@#6TCo4Gja z&}En7!`Dwv$>}ts_VUGx7CR1a9`mk)W=c(;XtvqSZ@z*MVJ2_e%-<7fBYeLF`piF)0z5X1$*P-PMtbM{QLG- zXZ`*I2H55wtBAW=)Ly2s?#YY6(Rv5%jz;Urq;-l(9`}9DYTF+rmVM$B^`eg*3^dkU zw&9aae(0W})b$n}9(mOcmmchX=xBmR(!QA;2q>G9lV)yG{AhaLK7X70pyLa>Ywoeh z{Ug?`x_OS-hM@Qw*=AL{J1?qi&<5)F?{C(Dximr_Z)5YB#0?Z;KP_-y*yYb}#Jbl0 zqQ^15URaD{!j#sLD<4#VimcvYFu5<;01L;2OM?$@Zm*81`kgEeJ_$C0iZf+ zQVqN(`A9ByuQ{+~%OyH)#Q1AV%XAu`!cq<8^ zE4J>H+5Mmdqny8R2ctBofRym|9x(xh)> zg8cYL^S^)Gfk5g){tDDhs|+#VG>M0r_sNB|hrAa2O=tru1Oj7px*kFTghO*~|$X$R1*uezO@$Nzm;cnQ^%G}$F2b~AYRbY01dXCkUebdSchomxS27uWHFiH6u;=66$oVzt@r+8!iklw zN4rfMj7|7yU${zo|HZ^>#lOImPzbX}#mWLFT#dZSHvf7>&woCr!nR!zD*7UAB!J{1 zF5)8-rlBF%@v}GLOme7V|HF-?dr^0Ou4wv=)@yh1{{NXhQhnY{Ic_HX3VaC*0TeMz zc%o|nj*d`k%=obUR({aQC46Z0WhAwXha@h(OND3R*rN8r+<+K^)pG;Zp57_N?)|j1 zFdr0xhFgAiX&x>6TXpwE6(5cx0NL?q7ZA*$IT2%)P;Jai3=0eU#!{!|#Rd^0xfE}D z+In>BR>WQXI;*$NeS?-437@{WV#5>ii|LamuZA*-(X~gfGY`F&=0@->(tI?Xx*O4r zWa?b|`jHpvVaggf*fcH6skG%4Mh*|xtwu5iybT4mtN)c3nn;2*H%?6$zIO7I-mu_x z=@!>k$%`MJ(C_a3=%hjR-uKJPt=C_s#gjsH)Tn0tyYxEWL0-4(I3Hl(MjTpkcilZR zaShlHDc}!+>#MR1aVmgR0m;R73&TZl^QKKAw<2^wfP?>GDE&KH@zXKvIvR{gg1)oG zS=5Mocl1YMw_flaOd&k&QF9p(0hfIrl6>q(Au~{C0smC`Ug~2p>ldDwj?PPVI4LZE z-mP1&F{l#k+OowLr%4_T#F~)pf;}SXuECgkN{k1P8I&k=7ALD8h03D(0D;4Q4Tlo4 z32MRdF4ucy**RROXtB7RaARb4a6BgowYPA6r1P02h?!$j&}1=PyyuS`w5jwYD0J=W zU7lG>GXU@vNW~@rg#i?<@bUR`e9(F-37o{xqD8HI!fSvDmAZ}8j>4C92w!8ye200k z$#9v$s%{yYhT(N_u`nq|ZOSzH4Az{B%QMm;5R!SRb_q+=4eRVW_>$A|*_LM6u@Z1- z#p)Tvn-s=sK!uT5Fd zwU%G3G4c;&u6H$ zBi(PHk@zhO2aEd`sAJe3(vc>#4l}%BiLFAXPO6+cc&h{id?B+3WFz3j_g8Q^X*HvK z&_oL$vMvi2+D0#4yf~_(&Q+oRWbQ%Z%QDe$!4f{9BgUk{mw}uZb~3`fg(JY>%MUR> zmMq5o(}=ekQPT7unP9r}9URowPl}3(`>D`#W~y~*z~xaf#> zRDtcZd;!gg@pDw%D8825{|pvm8Uhv6tFKk|MaCY|4NwY$uxmpLX#Hz+jToCY{`lFl zvH;dPN;6~TvFKde(SPuBU@II`65$u7j({V;Y35Z{sbc{H{)$qr9&@&(7K+ii1{`Vl zauIDPREdmumE0_L&!S#^VN=c9^n**LzQss#V`OtXf4SfA#h8{!?^Z+Q^KM=1h#bqb76x@~$(X z9gS{>7-R=Cm9(zTSlCG}z6h5^f%}YOfzf?0s8ktkJmi`fAlj%)%Al`(!({fjWHB3g zzgGuMk$qh817M6wR}9p~xltDNb2lo21DS?UNOB`) zb~Iq}HK$H%c79~(#x`5_#m6t+4;6$r8wDjS10)7D|5Oce^dmpvqzVcO`Z1Vb3QbNE zTppE(ynZ9JL}yLvQD6c|UcUtk77WOq9i20V+QdS>>Bpx9n!-))#D%3%4jMR@bQp#y zX8a29WW9~I_0uV+luXAU__cWNH((0nLPD9oWalW3QR;bW#!>F^?bN?koM(0LZRo*v6%&+(XyAK!3kROHCkH~QUTxO+DLB%&tJJiEv$5mYl@QU^ z&sVfLU|Hmzg+$$N+$rm}pHt)K9Nkx+dFA)^Rsr6fY_cwP_d&^EJbrvLT_&j~Cv8Yh zt|w(dM;q0S6AG?=nf#N2Z8V`An!xK`HSmXN2oOX4_CWDii^P6 zKYsjZSZBJmYZvd{$*aWV*z-d19MAs3p(IrCFDU32m3-iinvgcfN6!7L^ACr49}*Eu zqs)ScB+VV+Sa-ye54fx64YwgXIlPe~pmI{1aocCb3N=zn0*8U>4H!ou1_ejJP2qR> zr!9f~NLu>JHqSJt?AW0*C_{D|^$~V9qX|gV=lx1+g!`itG}!r5Hf7cC!i^?;-X0-rvAk=2e11tVa=GS zJeujP-G1Nmc8t3j_zR@Oh)&y-ketk})a{ztEaCe8sEzL%y;P{8}L*>?e za>}9`+O=H{Bbb021ZRvWO>^VS#A}x?3(snon|ql`G7-&|9y*q3{^irN%i9Ho zmI3CQmp^7s?fdudHz}UbVV4CG!vvc8s{N3rSTPFYvq)*8q6W8TR+m1wPB&AY{iN~j zlb4rr4o(|`Y7^TFr`5;8!*7UsK#u|MkGImiI#OSMRtJ(fB}n9M-Ly7}*467GEGjkE zj3W-rIn9(F8>E0FJ?ER_I?qM2vS&{qVHW^E(+qtB$zD`xbgf#;v*%;w$$fZ^$69+iIg;POQLqonJ$rW6?6T^_&?gD* zMbC&3bDte%wEW~94EX}0r~*nA=oa4~ZP{P+QW$it{hX%w7tly?u>liTqic9RK@3S@ zShK;}81j|+@7?Qxhg@Ah`F_}yAE$8O(VD?0uNMul>0MDh)?#OOkA$m|-G+;%P6BpR z_PAL3Wu=VU63SFMQfq=7>yKEsHF7dvCX5@Vl{)oh6t1vn`|v?WPwyDq9A2B~&d6=Z z#gf*h&3ol^sFZ_-;~h+yWPnV?zJo7E0T{O!3`Dcui^uF!#`EyI+L#aFfw*eb86qOE zHHqk=2?`+l&>^jaur_UF z#n>EZ#5ePKB5=@lwK39TXCcm$hxqbP52dv*lfU?x~D0k||V0XqOv#F+*;P^WfN3y&7J$)@^liZMFmqTGeeS zbxT6$mVc}EH!EByYaFLHc<@nV3#^6cV=Ws!xI(GTmfoE9JWFDp*Q%Dr?O^jH9ft{v zt8v#uCS`**P<(m)11$Kzi;y@q{tGb5|Md?|iFTe=Ds#_@4H6f$h>i~q;*E-I8soT| zDSo@dQNmEVpu`ra6R8egihx)LQc|uL)mYsC^V-1}zA@8!&M_d$vvM@eh`<}x#pBS# zql10X1vR58U|#V?MZ47Ov#0M+tT4?`bNeW=B{r#Ph$slYXo0&McrR<&6j1Ri^I2rZ z3!X-!xA9xG>ejVucipq1k0rRHoN&*w>k!#eh%T&ME`3&8YfCjM&p-CO+iw@NLzh*rmRAe5 z{}FpR-@^OAzW+k|`TzK#{}U7a-|$LvZS#Zo!0r-P_@WlaqXUsT&GjHh7|^AFdyeh7 zGd9+Q-feMkA~PT8I5qJuN{F)i_g_{OlwRC?vZeeC&QFU7?l)wJ2Rc=9Hw_A+(X zJN={(H}exQhb#=6Wzj=GwN0UVyLKhsB0}m(y8-ePUZt@CG9JMunfOBGHaP5`R6Im3 zb7Vp5rml!qzOMS2*oGN@Up)3W@o2#*K6`dzhlL&<6%d&)Y@Id1!E~>kIDKlzxXPl- zh1=Rp8rwP$W52__e2Cp*79i+}tRJcJ)Ja4#2Pi zR|)L3T3j<-VN!7;-Me@1E?E>vkP`yNgj_lI*I&f${!`o`nkdOCvOE%Bk0codu|`C5 z;|6^_FOi%uoFKY?Em+4sSS}n7ik5*_(1JwKG<#03O*+?T^0Y(yhSw;4f~#Vpqp^sg zoG-q1ZQ8?UFv~DR}Fe0k`TBHk&#HEfHxcHwD8@ay5m7|_ag)9!Jwht@uY_DGSH?wwynu<)3jY>N_U4mdlbfs8&OjKF^51Byp7J0~Lg~qDV*x}G z_O4#~KaYG^mF<_|9@*jG9`c`OpwHp60E}`}V;&{ZDFl7Mmvs*hec>(jOC7=L_^LXM zgQznSX8JblKR&vJf}G`>v1u3lTFPa#n7Bp7W_9kdV#g~~pD2O0#KsD{Utn{}gERq% zpoXG@DKLM4C3_9jEYEoL>eY0*Sue*?4`wpvMGJ#uj>_?1q5DSl5h+04&W-J^+i4Ko8!qnWnpAFzoU7gT( zE?ii#2ze93D>jKU!BS^L^|jsb{c|wFNXi~sT9IUm3N>bu#M1Hv?uzh|$a%mXX1e*Y z#Cd-=QiwnpI{&f)zPFSx6tOgef@Pejels9(=P9e-B2Z6sJ6D#{9|u33)VW)=cwd;V zQ~(Ro)gyX!wjINOfiNrYVdUA#8)PM)%=k}Amw-~gEOU~RJG^Y!vPDiB&CXXE{{T$R z0hk<{tJJ;;FhQ=IN-x8WrmgM5QvCgoc+3O)BRLpoR@=x$heHg&F0;$ezv6uWFnrX z9`vX=a|h^ZoNPs?FG{22h($UvBFBxc`oWrRqFFDIA7X$2&Dzqk7>nI39-O(ES?it% z`br6xTDz%NB6=NMC5>4EoKP{4iOnZz83ZRNsoDB@tgp^q1a|v*_n1q5g zs$T6jX;Z|2CPIkK2DY>68yNc5XJqLU zAV|(u%H@qJgD;-gfu{q~fSBZbu|V*7m}X(&L)<}4&9KD_PK|*uoH?`C+DG_f0C{a) zJmI)C2`08PG07C_M9CO+)L&!2||6xW6viin5?2IamqTMyX2aibU(3kr^AmqV*Lo>|%(jVqq5$i`}S zCo387|F7*JM56_$m+F%{T*R5TcJXf69g1pmzoXy0fU_@;&)zz8Y!7cSFvwg35kGgT zdTs&H-n?1J71(DzFGC@$?LdgrU>)N#zpXNyYGD!4p#(AZ5W6_7iPNFke>{(glO`d` z=MYb|QtMrOCr5iruPJ-S7!Dmel)DBTqn(0+P>C`I74dU#GgiAWAdWFm7Q+$X;*%F6@BmgcG#&0`s7cTZZ^K540;{U5Qkklj%1_ zp@7+mZ_3Us+Q;wtg=~-`99QBKfkNMV(>0}kzoR-^RZMDMdj%w0XQSg|z6HH<>Fh&? z=55-akfn~5_TPhU3Ju5C$HC&w$zCBe1FpZV+qLTnxDAqGX@RSdN`W52*^OcP>uE_# zQOV2=TbJ2;b+3t&O7>Z_97IyUS zk%$P}`lY%#*~S5`p}9_Y(d;r4Y0D-3rrnmcg!|IPD_VORX!G|DJXIrXyzyx30Qrt% zdjq8muNCuhRqh0P|7VB1k}cu~Jq;OWG{huliicbH z-PAt5(A&*4_pdLybm|1IS;wtj(m2(P=|+nwQw(t)g%o}XBWkfB2fGcTS^I8clWU_Az64OnJEKvWL?6B8SYO~w`PrRzIrLJYyia);L`u0mbu2MZ$J50<@1(YW9b9_00UBJkq2 zE!=AWu1yig&oJZyX1B8_b5r98q5_cvGuwGej4dG?6~Y=c{gf=x(L%8RAj{}iw_DT1 z*fkQtEF_v}R3Xb68Ewv{>@4)7-k(;pn7jFka{zreP7C~nGJ z*y=c3z1*pA1!^o45F4Q7(y@6ANb~AxkjQrSdXip=3KV_ye(R%Xm?>XgzkN$0{bmTb zqc#IeyY%6ILuAox3#ku|?JsLON|L52Hy$rY$Vxo2)Duac&Wqh%IX48AUptCX57mQ*}hD4F1hT}tSkH5)&O7Y=;hvWZG=l?-2C#Nr7`a1&E<}I*FJFge#m>s)1PentPL->ITPb!@<_hwq)%u4 z!aL?(Jx#+7wM~eVG^{!qrm1G&Fs|+3yn#`wDMRF9eLTP8c4Q6-cHfEgv|C?+~!IMhFn{hKzaxAgUUENDL8&Y(TE{;z*xN9Vfn zG$qx_>pGMGZeVCb+Jcb!_aS^@`=qC?XU(g(8eix;E>VQyay}QuInVTa7T44orJ0?# znx=ExSwTt35hXxm

~cK{$>se!+EOSAC#m8<*Aws3@T4s8bgC##%l04eTO&R`l;AAW2YABq_-@QBQT5v$LwE7HPW96RdC=N(9TmD)BU%c6d#5KY4Q(yz5?~sNKX)3wNmut5xIzFT>q9R2s#ZS2ZoYQ|Wf4QX>zS8_79zmrnGNTj}O0Tg( zHr0RHql5ST^$gIUXaWA>8Xzt5(W6;CO<52}ErwqXuKjJ5^EK8kLIcQWjQ*$-y#EPU zz;ZK4Im7L+#m}JZLY@fJ#D~(II2{2E;$LBu#Ql47&nO!ORzwu5939E69Yd~>ZXa7p zTbMlSWC?CzNITqTg;+fvk4FXlu^$jDrsJ4(6yCTo@n|8s4JR&fI!$Dw-fg$AVcyfm zed_laeJ0j`558-3Fj0sJ+v_Jc=mCJ+x)+EJvY$HCC8xQnPmPv-0~@8|$V_dvVJo z`grE``f8gabu$aMMPHiuCR#cJx|A8B&C6HbLBoY%y9Ww7N~C*HBHTxL2ZK_6W7i+( z3*Uxhek=I|8f_D5m35?22FYoKys6@gvIo(H()EF1`yv@SHYSUD5ROQ}vdgR#f?jY0(Y=nCbI0{YXz7=OKeYjlx1MH%zn{z!w=xd~Px&#c3E9ah%S(lYz96Y(HBzYv zor20N8ZzHw;Jz~RguY=Z_;lrI5jsi}w_yTD+@iOJvNPjDcu4$U*Mf1d&Rvl29Z~{$ z8;#ltdWAKlyREU)W+s!^5|l~H0|UdagLa#}rt0If#B6*D8dX`;N;k%`Q*TYpi_$4X zV}#DQht?rHdjw$tAFvwe#$ii44Yz*d$!8 zNX=rr!QEYY!)c4OdDOM;fs5&?Vx}$B+d-9g^xdm^TAq>to#jqUub3z??LY9_vfUk< z8PBkEa7g<0IK^+f&BqfZU$fnb9I7MogaWBGImAv8y*4JS#~d`hB{bvdFLlWXCQ=xCMI3 zR!#)L^bUBd;@3f1nF!Ps zW}BQzgkh)5$-9&#cdbQd%V%xkUqIgSp{dM;7<#~T3G&6{y83#Xj7LpQFvFIn_%~BB z`fRt$y27UXxLK_m!I=(g{jkcQrr1k|DiLn}OTWWq8C(rAV$3*uT58e@*%!6epUW z#DB*YUJ|FvV4afUS7`^xN87VVw~F@)BEvz8 zXhIqP{#vg7v{Y9`sCePo&l+|}ydT>fOb=Y2j0dC+Zv1}z`UGWWU;6j$iyT$|g^~!d0Q%++ehEV5zz{>lDL}QA z%v0N`Mc)txlTZo7WaGT$&u|hqZ_bnm zP9E6oUVFM|Yq$>-xSzw+(mTzSq!(@rI{+*MqsHKI4%Z528}UH=Aaw&W*2idTUuDR? z{!NqL@TivRiuB%%Y@_Lgoz*o1~d;`DI;43s#Y)XF)XWSFGND27`Z4-^UlasIvPce}ldG2H9IWK)X z0lxgWxrh)2=L)+w<6TBCIiyW^86~mS1<*=B<3z>i?L9`0y90{OqqX`s`oqvd>>56mS2cneY7N z1+*{lNAF<#^{wUQ5GG+~IybWY2CSeo!@a(%OMD{fa2C@+h z9FhGAMSP1F@#D@n-ruiw!Jtq3Pe$zEbVwUdepSJVxsT;zMzV^z0; z4wD=N{ZA;AzpjMk>nk!x0p-KO+5~Q!k;dy_7o*P!g!M=Fhx$vnzzl}MRe%r zhU7~7-;b-W#Q%L}U{}i__6&g7#`=AL`^@gUk0p(93_x>JAAyN@TVF%6;dt9bRQqlU)uzLN~QSchvh zog{5rs;Aen(M>PIP$MbHl}Aar2%Kr$?o-^k)q%76aa$1d#x!9~yNg#Zx-W5R+Qh3v zE?E~Pe-TMi-05ny2NgBE0|EnY?;i1)DZ8|lUDetiy|TIK=>4gA`(1!C)MpzeQ0A$9 z&Wh~l%?UgD?H>JM|M)Qd_1vTB*TS)%n!t&#R(Vh=9X9p6P-4N|K6&!Q;nAAz-Nf$? zDSFwa{VvyL<_PK{EBoo_Fpc8F0Zj?VId*FC_p)X}K%a<5^_JTZvP_H~usv8Hf@?(y{wT8$yG2|{K>f4`U`Ud0B@O>ef|3NeZ0GwU%-?G zLU^H*6D8oar|&5$XdL<@(cerZO`l?q#XrR~5Tr=Ue(jjC`p^3M9QtYQO>~xC+&`4Q zjMLH?(hDpcBPPz7xS%e<1rEtPjT^(^0r0hmG15Gr*)59Zw!&=v!-ww-<}k?9r&lj0 z?t-ubt_y`pe|A^v+UwA`Vvu>st91wZqKQB>fg{3WE;x!k{MWlTJdvpf&NrH$UlLq4 zN*MIjkk27`>;jJfH&Nh#>N#M{MB6&@BHnU5jI41F? z0Gj}eAovILn>V>RX$M+VMgWTby!i(k&a4byr^xT9%7N}}kE(kU8S)Y~lC2@E5ICC) zTt_3DM3jNf@1y9goZhU>^CA(P|3eXl}^?{>G>vNbgOOp#-;GlsXd)EpRr zYIafb6zv(4CWVEHMp#e(PWQ4;j}~ln+h9C@KC8AXxh;q6XU}_pZ(eOq`LQm;nZLe} zpP!#)m1%GV-C5w4MY2z+Y}LtG3}>y^S7}F`+fgLd+g0x;&Z9K4XdZiw>i+lC)FFf0 z$jwTuKB%KV~HgC#>|S9$F1dCc2^CWFTP0tX#8TgV|{aJvl$k^04kI2 z0kJ!cJ)`l_?3>{kERl#%>i@g%zIvEhu~?2|Pn|M_U(Z@PIWpPr$cE+mn}m~mtB9~L z=^P6<+O!#{sYxGWc(1zr-nEpmbXFAJEbFxU@!i{|j!Zdx`t+ZS`ysc1P~dW;V)gDcCEc+C6E}UYX!>HNnZeyrd|9NrWwMY@+4&CHgGvK!S9| ztE-C2ZcHGQ4vg-cQY@M9(5Qt{>+XpAW=#0S<<;(#i0p zuN^BKx3iZ6ad<+Qvtzkp)VuD>7IhwX-)3IS#w`CT2j$vIui!;fhnv2psYhAG7hmAk z6uPaU?EQ3oO??on!lR*g17!Vhujdir;rFa(VCW}W9kYYn6-COO%*ye055@37+sMe# zl;#H$_tQbOOOdl|?hU8~+4ym&G~g?zZkFhDBR?%iA0A?r_U zqambDpK&?bYNzYp9aI-==W~9y)gZe1bh(MTpJy;4gH;3F7;c+lq6neAC4uP^_hz*oeA`xb6Y^tLp-$sS@j23AQw`Gu9E_$pRgDTr~ulCpA6n*oX9ng^9D-9DI`6H}S<5IfG-e{^_^)Wukx5nX2@9 zb)4R;Z5@A-mroi!B<(?F3*&K%Uhg%y^*LvlO1sh8T@oVxf9Lf7PUrN$rd#@Nd)+gS zGUfJd?$o(683~~i@Q27=lo%`JPf=!=J6MG*eI7-v3Uy85{+tdh*E)Uzg}VhXY3&jG%Fd;&}BWTt#A>E6d+1=V))%7b@U)Fd6U zYyW&b?fb6t8fTQQoNU~+-9pC3?`TXb3)WUAX2 zsmDf%(pQDoOZ;XIO8n-GXF=i zDBK9s?mG#St4jO4Z{N_UNTp|+l2o3jy)8szA@EmC06^@V#Pjumh`>Tqxg7MI6gKgj zY4&L>LMJe!&!b;hwbTb(^*v38$lOvRF0^W?-1>1pl>0s#Xa8`l_?K{#xbW<@a_`2X z&jBuinhc=V;|sZ{3an9|896e87e$70n8;~cFMEolD z#Ut7k4tLCCx9{151K2a_K=gyCiu;Al_l(}ONu-VH_&cI=uPyMLl5XSizQ;UoYb_le zX_-6=ps4M-`7z?*(K=D)+0-WK#^1W?qWJ7&l;xUpgH}IOPW68_c=f|8mO%}4y@p6v>~>*BK(Y7~;FKTAl0-_%2kT`+` zMGTgn-Y4Pllb1)DH(}CnScq8A;^^cw9`oLPA8=_$7vPEI0lHvbw$7r~id zaLiO|+qDf`&QbMC8zWos{#E9k#%+c6+}ZcWlC z?LX`Sw(}(}oRn|%rBV>01VMmQQokU0F}n=UNdv$Efskti3cv@jXUoD4Y@hK?Ai5(M zVy-n{@xpUdyvPZTZ)~et$nW%ec9u6%%>Wa550k7qnOVgJlx#pa7%m)cZ|b6?)Y1e> z@J_xQ)YE6i2g&TZ^%rc{_I~ zYDZ73*X!N8lu>2c^wg~Nwfkuxv^D7&Ak1Q)r0w;_;!oe}jBiD3=&a|Fa}H@gkv-qf ztC8*p0rZ3W3RmXndpW_w26xKGcnYo6?Q?jX3r7)OkHzY~QG*OL_RFuF*F3rF&F6}% zTW7f_J$|ofV9>n%+u8Whhkjw$%{`DB%hWV;td%K)8$C6tK8EkG7#~j?8Yw<+5=RX) zr2!Pb}9OS8x{@<<}>{iHuvu-%^%8qIG}YK#OAEYww>K zZ$H1NW>fz2kTnZ7TfLp_=a(KjD{05Uf^^rau^33t$Vkox_S?KhEU{u z0Hmd)B(Hqc#j}UtR~SPq98X44VHTC=J`b1?8wqoW73i>Lbh?5cyG+$9W;m!o2Rp7T zatbWG`hA{v(bUZJ5$Lseml;oQSq51SiyCRJvirwTp^@r8ZZ3~?`9^6jO^2KOkxGs;!tsVNA(FSq^Y{IK z7XSU$vllcEwrqOq4sTs+AI?UwpeI9g7b>+5=P5wV^D) z4~P@kTOxGpE3L)jXV0>mP4eqRpEhD?FEZ?S&0^9JG>L)In7=jJ_e&0p7ELwK})KRP*Pr^%0xCyp0M zAs0&S(LIAZ_1OCNdYoZVoOboSebx5!72#3hlv)zr=8NtxzZjdMeK?l>=FOYDZ`ySr zb?bls-7R?8pB0XcD>%x56>(Eu#huP2KWW-Da)&)nT&ye?v12@9kiJgH^kB*&G)6u6 zbZLnqGrhk`s?)_rpPtBWNf(Ji*vVtW+`{l!)c#o-YUX>i+D$c27`t)%d9~)L{*_!> zS{h=DXcdQ?!@$Sd6s-PO`rZ-C#+zcYV*f0PE`JoDl`us9mj4n6Pg4)MG~5uAsJ9t> zHf0;BB`poC1;4~#@D&H+b?g}b?Zl~r$8TxSHa@$sYeLiGn%#hl zlXkQS$vOII+t76-Yf_fnA91nRXRWHw`qo)d+p{aWb__7QTkzw&*_H0(kGiLH$_6eA zrqPr)zl$55WT?65(TRCw=1%0=nOWWJT2@E9D;Vta;&MagvH;^k*1DVC4%5p{dN@wkQ3av!Ei^2tM^8ns%0?aTRbCLk zUMgkv7M>G2Ym$Jvt9&1X#Kw^;jx+ZTl-OM?jJ*I%Ev0tpRh5Nl`nz_AP2zx)2)zv9#${aQxlgDb~yi$%vAhV z5)j;?*`@^sMnZtkF)Tzmem(bgjxR7E;eyMSyYcf?s$*f7!m{QZ4?BQR{&`-W7!i~t zZ9L>C@M*B_InOfLC!FvP9YifG0!Pvd5cc-#m*=F1ZZ(Ka2JC%2%WFo3M6I4%G8LW{ z^ko$syGVlb^-u|u&;X<~C@s42_cK@4{zF`jjvVA~UT)8BW?q(s#3+yf+6{~eaPx(S zg;CRiWB{xXc_4%n9-WWoGU!Zchxep~LCXSsBbGh`$I`-h=+^PnTNu ztXsum8_eXKkv$hxFu+YOaGW*3NHuUTeSIyEdo`Ys=fH6#AD-M_Av@h4EC#a!gyR&h zU_?sx`HPT!mj=(8{P#g0#rA6JQdM`crNbztYb<2FzqzVws!cM*|2-_?zu|>K*4rWv zr*uEi7dVnGOMm!xJccQ6IyqBZr;UmCTMLI^*8`|yUl&1g25di*nJGMWOab7Rfy?bw z3uZYM4M0~CX~h>Y{wB=6ihF(qhjbs94iPXe6>AlE7-ed_FEuru5xIa7@03KNqjZKg z392LXIwfH{`EkDar}BoIIw5k1oC#m^*U!RAdFZ^0Ed_`Fn4Q4i5~7TH&b!4~CE|y* zmi;gz-QrE}s-{mw&b<87!O(`fhdFqPdu7RfU(;X75yNoIUYQCJ9;8aHB6jVG*(wk_ zrT)N9VE7}kSws+bIx~~Y!A~s8oW}2zEFL2Q@p`RsjcK(~I8_5jL0^95;EhI z^JDRdU*+Un-8)GnmG&@YuHMLx%d1v>9i{vj%)Vw$=gEwNe21(c6Ox+o6{)VZ55Uz7 z_@%T?x!1mY`c%h%=4kLZV->D5z#;1qV`UzbAzwIt%?{>H(y262)`?@`aBziZsQeYldJF?& z>mkx)7_`D8ihvU2EsfQVjUw4#MY8Cjp*fT{gH9>-7&Dp~AuX*}9A=Iyt78gW=bW6+ zT<{H^NX54-URlm*!i_@?mr&~%VGWOx3@tsFUj7qmP{TzJ`YYE`%Lzl7JbTdJFVvY~ z#HKbdXXadM%?u=lKB16)b+xrSG9G?wBcgiH1VD9gK)D?mg!A)q#_ni#q{m>rhB_aE zdNrQ0UsvA_r++B7yvm}_GpJyNd2?=HB$_+EhIRS6P<&}k0yoFSIpp|aLd*VtjRY`d z(r{B@>r!^@v2Y4sbsMh2Clb54ki+xAn2S12?;pRK&I~UdFs!3w+&EYFt2O`9L#A&MIe}-<83JQm{x|+&SkU`WrfWU|G69n2COBBIlR`W#g+VD>{~p&YOn z2d)SR2%Ugt>e*!SqSA}*a)m)PiME2-KwqOV>;_G7g1DM+7h@UqIj6BchuixMa(Yey zxR*n9^)u*-Dq$1xT5G6I4)&!|4?23T`(?k6C1yu;iPnZCLjYp1dU=DKTno2}rekLg zGg^-XxA>fZP(luyWllDe6tZ1ORv2f>a3+_QgYzrMi_q(Q`(t+%mCrElx+ZR(Y0P8l3{hiQn1ibGHS4#Em!y{i}@Zx z8W0$(3~{l@f5R7;680Iw^S$iU7#((i>s1f42v34_G=) zPA?{1mN5;O(@;7P;{NQiH&KlEQzu}2$`MTikyQDK3T&)tQ}Xgb4>G==!Z%P8@x-|+ z4M&e=0k92EQF()28F4vM1Zd9xZt*iYn|eE%JdJyhE60N5fZ`kx5;R^P2-DA-frN-C zI6HP!8&+fZbjRU$plh?S8Q-#exv(hNJ$iY{*;uL)K^?^YItx?ELaLcD$S1{yas!j$ z{;7#gpH&Wtr)zVE`SjOf;?&yO#do)3W8FjYv&#`vHoWLJ7T`b(*@+*OD$0T ze0cd1BOZs(-5OsReSgKQxfrD9v_;wg!{16#^%M;(f`#mv!P|XVwjWjK7K_QT+KoE+P6im;b;1iM|<~Q|q15 U?d8K`;@?a(n`)Y5GWWOt0%X6RQ~&?~ diff --git a/docs/articles/AMR_files/figure-html/plot 5-1.png b/docs/articles/AMR_files/figure-html/plot 5-1.png index 1680a19ec5f8cc5c820fb2ac1dad0871d68d9669..0b8e350841a74e94c1da0434094b10715444fc91 100644 GIT binary patch literal 48872 zcmdqKc{rB++BU3NBaK8zDP@)+k)bP@=L{hfl8||x?;=uCWXhC~nPkeGN~TI?Aw-fX zbD4en$-UNkpY8je^}gTx{_$?lb8XwbZa3F;Ug!B6j$=ReeLsHdu9AY}&TTZ?$jHcc zN=u2WkdbYAN=CNf3i*06GBUOKOS|!}t(H=nHe_UUKEyxk0{SPek&zuHlNLXx>KHll z)$OwCwdIuwQ|dzxRUgt?Y(Cc?ov>$Y&jy~4;un>R%jFs`x5^*WoJkGW%eH3KVP#+X zAzv7N`Y-lWa((@TgO2&npM_jwVL6g?SlsUc*M`V$hJpG;BcGy2=XyR5&$WKwYn{8? z8qQ-A=4A8fU@((3abIL)V%26e&TBuCwH)bL{T-Q~%o{2nFDjqh~DJu_8SGeGJDVe5qeXi25yhZg7E>`nzm;4<0 z)_d?`c%HnxfB$~=^}3q;y?gi4+MgmDS~uo=_TlX8ES-=&?=%}*LfV(*bynHo8|k`NIRc?Xt=<>f|X-NvP(?tXlx);a_j&Z8HG2KbZl&_MyBr9 zS5|!y7Nt(3?YVZtEjwxX(_#l^C<}^;gaiaG7dvJ(6o~~@7U>R-&C?8w4G*U_4q97V z58Zqxp)z$nymKm6%DqES#L?L|5kOMBL_WhnkYF*G02x zWUz5^whqr&lr7m~8Ug|oV?^9UmS_7K8dS0?I4{2%uVKxc9_#L|ti1l(bDhURNB1cn z9{+%@VkaIht``QC56TuN?`0_m##{Bh$3t0k6@L-%@oQx%a-Ey(UjCi$zBE6#ut32e z;yTe=;pF7>yfJTa(rCX>ttq=#Ti#9W?ozjs;^H@N-mvJL6FceH8j)^5S2}!5y1l?= z03$~tkpvxnbz(-h?mezrd_T4S{Ni+@Vq>Br#rEw}latOr!msn2wJE8q8+}U&4h^+v z&lwEA9zB7-Oja`|Dnvbrj@HfUz?AB_jOLc#-m)+|J3Z9QDkwPb!{E*(!lHLqojkU2 z@P0mn@ilfsr(Bb~(wXesAAAm9Y^UM~vrBa^ zQmv?IwYhO)P?EuosjjS7P<{SW%EUFJLRCImsivGtF72rJ_;}qCXW_Z;L3|?2WGsy9 z#4f68Y0(@yl-6t#z#z&Yt%3o`)Gf);8ZBF%$@GhI!?(D)9^knAb8zsC<9H8qjH^m& zvq^4y#XYKkLuXXXN4^&2cfPXjmub9KHrsnoAxiK@u9l)=-NT2J6ciNc>cgX>QDI@m zBiRO(yVBK#j6WZ~U4A&<>}#P~YV!jI(bD4LPJu1y>ZV#we|~+nHo)3<`SWXZa4@;q zgu!ERqBfLMBiC0wb!K8BdD^_<)1+3WURmjRpIsX^?;zj4JxIfHZnB?ZTzrH7<}v5N z*plJe+FE9X$P*5~+H*~@aK86yrT@OiS(;Qq*^zg1xGgJAJrz57tUgZCXBQnFGv`L* z2ld1wPMxi~F7m0(_CG(zN(RtdyHQXCU}uE=?kw~0xN_ww?qG8Alt?%|J-wBcm9>wC zp4&{bhF&mje+Nb3OEqqt?X{_DWi#n9H`Dc|4(ytEOCdVDuuwZiv2*8WS4mN4qRqf3 z%>7H(BGrVJ%H+Radvv zc2H%mQSQ>EOGZY|J5Ol*Y|V_ZDj#mmba8UB`}z4BZjOzEBZO%Xn{j2fQZz>^y{ydR z+_}Fx(~FB2IX&j?O&smZHEms7TwI<`6z%`<Cav`bl})aG4>1jf(#RDJsNtFs_mJ=JaM<7tG5qtXpuiyT&#|CH6% zl^t8>gFpQF>M-`Th*`QJO32{=yB3p&OR;soU*~9kx4X-9y`-C)o5M((vby?l>4v3+ zKN=aA2Y>zg_3fJ#uA375dW+VVl(3eZ7f+69ch`JrnI|@sva&Mn9~TJ8zsDpky0SRc z7a(drPoIN%QXOv1E`Cs6UOrG46I$f9I8mvUo`>+Mwm*OTntI=Y@=M16MvbZIX;=J- zitUo+?~yNfcC{%pvZQV6ws=0j(UPW#tC#%g;>n8?w3AtGm8qcEIeGnYX4!IkoAq!D z``p`)-`@K8`(x8-rMI-Uwzj>zQobI$VLpIH)7CaeJyqwW;oYobqM|Dkl?-ETS$&8> z?;p@%2Re*(=~(T0Uo?4r>2#Ol+Z;t*U0tkbS2wr*I`0;b=6aJ{O!(=%&LRgzUDK^f zhr4DP&bzc?{Qh`T=_1ZW+%UjOuE?|r*}?6x?25f<@P0?O@^ghKldG?}Z?^Mh{|?o2 z*Gz3*u3K3QaCN8-Jf@XyUmL=1^!2;Nn9Yw5+L-KK{cb33Pt|-mlODOY_8A#O zXF4p(!tG@h6x=ao{*|{cmFlph%nWOq-}U$B%d5KnNL7ya!>^XvQ`t;CFI+K-+Apr0 z3szi5w%u|kR=JY2w6u(jAEo~Hsz>kNbLbR0IyycM4kk8ILxS_4UpI?KdwY*~DWx_G zyZq+mFDxwF#>f=J5HpWK@}>-8R^(@$X^`bS$iR2ta-Lau`4wtm=V?UR%KHa-467cR zsGk$5Cq{wmrmc;Q5TaVNuuFX5!n(BUF>Wo69hma+^4JWP4KsHgO8QMEG7!iD{QcdQ z=LY=Qj~zRP0G0lgax!~*vX(P~o$p%BW18zn7N%lW%vw%i+!){0iLS793tRPioxPcD zzI*p>l5bySfX2nnH^FX0Wty7lE!r#RPRq0FB2X|=h2t3zjr>C|9u&0wxw1UA^8Ves zDu?th9BNtPGiL4SPE$WZ7M*SVIeBC+l~z97$sp1>*-OUq^5)O2WMW@C@-6g~l^;<) zYoLh2uuX2+&cm*i!_}pptV$vm5-KwK_#~X~Nulf9OPPcr>@Urt(9lrI-kM<6=l-`h z@1)@~X?j2>)Sh!=>UW2QM%lJdPQ3#p+mW{Vw33U73eB9ePua?@Fn$gL+PFO0HItB# zfbh7~?|{9Mt(%$ol`@n=XAfz1ZZ15xR^w8Rctx}|-`tsfq^h#UF9;zrRCRTAnWd%2 zSXnc@kFg~ieQfb~Du3}_Yq9rvHtoC*EiL>fPY$MLmRj4|jv!ne+c6Up=fvVsM&n=|a>z-~6^q_8NZf>rxug@t-OJn2VnOYbt ztE;X~4&wZ+wxl7SuD+dd$L8BN3~t;=c5R-%b?cUFD95HPTQn{f#K*sT|Nec;@7S>f zdC}JOH5El&*13+Y*Nu!yk;E_tdHMNB=Pthr26PeVkx-|xwlXUyKR)40oz~9rmmdva z%gf4APFDT>`}d@d(|JcHCpAH(nZ|6(Yc|%_Y~f+v%_b!?47QC;x4h5in16M~CoM|n zjI^}cG24n!f-~h?7+lB8w;;&r71^gR{>nB&0uM~!rIAlKDsmz_H2fI7aR8&2rM-Q| z%rqG}5&ji1(~BK;K!f}Xf{fBCQc_a(_P;Z9ik>URm@i#ISOk!o4rbL@zka=32hXWf zUX)#3UC;eZThh)rO&TJxW3KsKevcrjw14@cruL<_cKAa$Piuw_&q6+;vdgw@+wM>> zbfu`V4i8Z9?kpZ=$eWuQ&?|MFn`zaHIqURtqC+RW?#WIPV+Q)HiO{&oIbqDDTe>D621P-^qKQHH#_V< zgmD|ZzrUMgc$hEZ;^O97^qWX2|luyL)!!otEu zwuAb=AIc;I*8Qa@Ba;%8^<8m*7!}i%k?gwr0X6Qk-+cOOLy-<9rs_l)&RBo<-cF^S zc1hWw|J5sj#`oAYl9G~~y2WjQK|X(p?&_MM=(xL=S(T-^Dfy!Oii6wo;#|90(8^Sq z`B%a0--@D3O>ef*o;K$-)x=y;K0};;e%^JiKh)?eV3LPFHMc(Iw|QS?M{w>7t@M2N zub*0;Fm9%xKWo;;)p!7S2&1^2@e`5vE@kTs>HWQ%$&{E;IPvlU#qA@Bi;Jr|pG|Q+ zmJQ@nKiQa=%5C#Q4tp5!WD$8OL{W-^gF`pZ?8~PpA?-Y~lY0Jg<^bPDfP9nvwWtCP zaO#fq_P)fP$KF*_n+w*^tvBXH9_U7{#x9_I_Tq)*j}PI_CGLREks9m6dUaM_fuEXj1zq(3TyaztkD582Yr zu`}a+sAj?k{)gT!JIL(3iOM1{G}K{s{HpSdT@_YDL+tr2%91OefbTqzcbZLRaH9YP zF|L!+qM~JLsp@z-!mF%or4n;Il$xn^i4nk`i2935 zOW2qPsi|iN6JxMB*|qcJmNh9E#f$7myIjVEwY57g+&eHgH|Krlj>!DaIE1}FW8E>L z9_~_7zFDfnE$Ov2HJf)(b2(4{^vQa8Kt0=XSajrzR`xdRs3#I}nx(EzSFT(c>%!ju zg|%{sifZ8d_i4;fZ30_2hyOW$&TKyx^TXT!P?HT2_~rOD%w~UoKO)FqfBh9~uav9` z+`XT~bo_WrwPsDK0c0;_D{D*SxODozzWhQ5KB8s?9R^178YZG8*{J!+TcpRUXB>xz03-W zvwZ=8i&#Qd{WZZDGFJqMv9gurTbs6DzI-`Dw}fTI%fBDv{xB>|z_1D>M*zY+LJ|rL zyY~!x)9dk0%HYPU#`DsLZtfX0|W$6fSu!X(S~jB^jBTB;~lXXU|Sf zPMUX@jt&pg($SSzbc=X+co^_)&zCj0QeFE&u3{$>Tblt{()pCal5GS51ioddkNm$i zfkHgwQ^&lW!t0*urV9!e#3qt8<%ji1+o>d)Rm=+}-+q5ym^mXh@yf~HU7oj^n!D+S z`I^fvZ)g_H~4>829<){Co!`rH5H7 z0D+^UqqI!djQ@3oPkaKuM?09k!mz6^DheM8_0yqB%Wg?U%g%W zkmq|XFPFM%Ca4JiZZp`=uniTtP}4&E>R-j&j0F>u+B!OhZ42+;-+^6`?bF%WDYCL? z6D)JAn@{(C9P&bGiD@fG!7&yV8S>o>3?Ab>e6o<2P+BC_0DaSx%$ z#@2QRIXN<|S3p33)#Ie3q~6|MUgwvsO6F6i8UQ)p$9hxZL-zs# z%0Nz-o0~8E9tEv~;;Ez5%_X}T@4XukP>1oat3zRBASNb;@)=Q7exd1V^3VcxYkQit zxVTqI2`G@_tYe&9m9CxN(9p1pPH-O`-4bBU6OJMTSEPj`RTe6$P~uaaohyq2qK(hxw^LAL zx)ZS%AgbjGS5mWyhDK{zTH1#XAKv;;Hd^)QD3GkOl~vZ+pnFuD%ZR|p z_m@y3si&q-sf0{ty-Sb{1>2LKPJknKM z+RV(%+IsTNPTE3;v0p<&TFsx46ESbB?Cf-+?yiQ0@e*TUNjI~zn3I|CJ&l0Qlh(*qW*8Br2(S@DUwnPpB>&-o12 zk=;-0biqOf!xNivd;>3wJadnwrRAk!#|d0GG9<(v$Qbj3*SmM(2nZmysB|66M?Tz3 zL6kt2SBT*M*cSNkp(RMM!Nx>dk3ZsZ_2L&U4B8fg>;aV*7DjC_@cHxS>L6y?L|(h0 zCXkj$(W7`+Tw85tq1%FeiLR*e=cic)l{7wKTvtih2qq>b`uf<*d%Y=z>_QYw03=bT7$az^}(_hx$zcJ!7l zTejaLXG9h@;i6_6)7#3N8nW5*`Ma9bi-7y>lb&zeS+8dO+3eY^Ss|(R+ z`dy4(G6|?N0zJ0#b8?OWaCdvGxH&t|gHyA^eIe_HN9U{TY@8DCqQs-`CE;nq?6z;; zE-NMVkb#ee-z-csfA>*|L#US#8k+Ar4mKQP^x~G}qB&(KWnz-Dm_*sTI5$NipEIL6 z3SJs4cW`iU_1*JyAur<<`B<;9aB+=eFMw;l@9RsxZQIMNtlcE9JH$)t(rPUAG~rG5 ze5)G4e-k?#FB==1ZkMqVY#Q?~FRy`63Sl#~|57_LV#fF`UOI?n)OF$a&BmhrjY^7& zij434X-}sdoIoXuG3>n{)<1mtGJzr@f`X2Eap@j>S7lo+$aYPdVfzJ1$<*ed+gm8; zh3wOS@7&$pfe`^-re1ls*2}Bx-6}w^h(LF!piK9Rn&qOt0tE%2D7rX)+q+pVQ;Nmw1UvhF62uLS z_Af1YcLqMce=m`sqUNCwbwG`s)$0T+YtR_Yj?LJK>Z!wtkB_;fXnjsgz?@9|_!x2O zS`8K=Q7584nx3A1_3D+Urzdt#K|z7$r2_r-$=9>KJIKmhp4MK_j?>IGYI#u6MN8(c zVc}vSX7xns^`oF58xXb__>G%4tGiA=lBD0QE*=b;4jImItmKbYo|&e>0ERXD%;h3` z`M~(0I-5q5Tq6Hj_1zhqk*OHl5BM{5=Cfy3<91Wh-9ynJIhUl#v#!-1DACoM zsNb+<7dhj1Q=6t+$TXC_SSd!MNFNcv+9cAg8wS?aFE#T~Y}4FRt?1~`CeONFN1y$h zvuv?pHfiF0tDeWr_JLnti-_|6y+3U~!@cAwmF7Q>mcXz)cT>4|@uNfx&-G8mPE&H) z?RhtauD;ngu`naKdOI&9FpUxq4&AV@SV4CG7%jX&>{M^>KqhDj-NjBe$l<8{lvA7c zbFL(}4&S?X&y-EX=mWKj%YvfFoFT!Yd#dQ_Mu&v_u4ayj6ms|k(l%!*_Ph`O&32~H z5{w3JsSz^@BQKru2tU8N$RkPeiLVabsFrF+YG@P`6u_N! zgKM-(zvt)2Z_&l(H9k3+VzqbmS(Sv<)I!aaA^}Nm3^pV{$apkn!b<~vATvrUJsMO7 z5{3K%bcs?Vdt~~Ij10&hk7(nbJ@dPF&tbIvn)+Ejz8RFp94Aj^Wo6+$MlmfIdf*oX zJ5|-kgD2YitE&0p&xjSlc8s}Yh=a;`cmZWz= zB6xR&3o9EeQz7IpFhJoL1cLx!qn0v^8p_;Fn>K;C0}=?OU0E9Q2n`8&KzsUAnhg{Q zqzqd@9ZgM5@W-j@>8PHJK7`e0>WTKnZkv1w`NhG;rpRN(-P}9_U=(DZQC;*`U>F)7 z5MR5tZY^;6V~$U|yO$Ofx!}Pu3fJw8`~j`@DxOtVRgG^Q_E?(HNLTMbenX@P*QL(g zCEMIqiPzV!B~PC|eeq%(TV`f_JWRyRxy*fO&)&U&wkWN>n*#z7UxBZemaYchq@}Cd zg|vM=+UfZ5=KL1~rzbD&Q z#Q)(1z%~AFY3k83f$?{u*Ph-}P2kr5miV7du+uXpSll~>H$B~bcWboaHSd@EhldT1 z8&eLQvBGa<0Sz91nlBTulN$6W-k0-d^Uy)b|N77kS+JnxV+A~`t}akIYuw&FIHA3IXFr|qM;@%MYI9*lN1*Zv+pYN zDAP)J2jfC(l(G8Jr+@JddGx9XKWYqrqw^wL`k^$`2kBSB-U0{jsN*`+NJ8_ z$5BwT8p*1YI(-!ai0AzsV7daenWSZ8Wjm0xAp-#OA<&}e^4W2)A^Wg#=1 zQ&W>?(Y=hgzVE<+yc>;B81zyCOZ`wIYkidrh^{COlLi^3`jpdzqe4ns{hP#LJD zj{zC<_Vs06E(nZ>Ac{mz&P?EDT&*ij8zCM#xP*iR09xe(x((~sA31syX>#eIj9Pc) zY*V;ehU3;|)MNxJIz7F(=vtyX_T$F^YH9)fcjTa@QlcqWhk~ssX~P3>a2_C!?;T*@ zMnS>AZ*~bd^FBqgYKnTg*1@q|G`v#eSq@{mw6qa_ZP-H7aZK8IAj$!1IR~Kzn4>^J zh2^~Zl9T)3xo(4;5AJsXWx6U$FrqXT{ zHUc&<1ga#?;_+LQN0^ulXNH;y*&Jy!JDZ1N2045y|43m**REYN zGNMP#jR*{D#(Q(g2Z!c<#sy#o*XmX{1BizMh=RZ)m)hLoM3hy%;9@~zG!5F)_`h#% zR?BR?zWPdh{+vVeWqiZFWR;4Fia;h!5e~AaG=OdSMpgj1w6ynjZDL39jXN`9BlCO| z>|zltbIrm+Pa|j@O|S%=WibSsGiS~~a#oNbUZ{L7qRzq#9LEj&!(PbscPRA%Z)p4_ zO4)^=Tu$^=5>xjh!ou0fX)83Mx1cvbCfJX4-8^6k>X7f$DQj?!laG!9Re&j=uJ`mKGY#~4*2I0wZ@0jtUH0AH>uy5gCwP#?q- zRAxpy@*DU**463do9lqEpPlGCdh{qpOg9rC6ED3IXFH_V@4P5^gpi3*E(1|cK0SB4 z$%ObYSaB;n8`u%fOD~?96NMQG%cfz__Ne3oS7?*{OE-*+emuKy4`d`AEp3tGg#Py7 z$g@rjSGX>Tm>-Kw)1o1J5(t2xne7Oahy`#%S}{t&q4(WZ)AxUu5+yfp-t3=R`s;b3 zvfk~t<>gl)@F3~aoprRt=7i4%#d){$a5_d1Vp8FY7cbs#11*Aj#bu&`s^9iJIcz@J z@GWd(%+M<{Z#l!uYm1?nY_-_3#Rmkz9dGZ!nR#HeCo_jc-HToIy=4+;1Z|UK5^8E| zc|=&oICn9Kn3g+T%f5PqO<-@f7An~ix%0L|9Z_K)LiS7ex6an6p5DrpJqA}-t zNIMRmdY9%_^^h?+Ie9XUf6>FR82l7P}YLw~>l$R!1$X$lL5D`_jHxa6E_Zm7FG{Mmf&6 zeD>JqY2M%ew#IGdR8v>C2PFWG0!#|FzD|L4LW&JhcwcGh9UMIAMO0-s;*gkZZPSdz zG0DK7)#v1-q^f`s5wU*t^jtZR8&>GPR49{>;<#IBPLS&TZFv~VyeJV>c!rG%uMkyv zfcLYwIKV!r^Z|52Ezd4&hhl@;5|^8spVx{GBxg($?L0b@6TFG+>EKTUlcgO^sD}P7 zf@kvnY~GhR5&diuvsE_JqWxS_g8J|Jm*mUfJ{voKG3{X=G(}PDDJ}M`tDExUCV9Q0HeT9n}OJpY8 zbd^m|+x{e%$cjMu*o{y4Ox5x1z^w=;Kd_NKmKPCfgpJ)+gZ~HKE>92=%)-J;s3C$y z=Bthd_;#1&Xc#~}L=fXFnO3=cxf6Ss@bl%GYBa{^aR*05-E6T2Nh}@6LjOfM4hAkh z)0PoDCw2v2bj%U2&nCHnOyP7a`jLU~EZ)e6oRV!0nO4&(oX6;`PL8HO#oO-n2rJ;*h{$uZNi*mHlC0 zLW07WM9>Q}>W#mA21t^9U~cjmQVPW>D@HG43<2c(U)}H$tt=Dx0?aNPc~6$Ry1Gcd zs29U>iNx?;(*HD|i)o_>!Tw?cAQ}S4Joox&O zOi>8qI=AS)w5Fb<)jMu@fDi+)vI65BzDUHXSN!VLSSD$dZ>KG~I`IkQ!X^{DirQO4 zGtQ0KS`ZeGNn_PMbkzuqM}Btba*`y!%0>O*Sr7;_&{@*Di=fn@0m;eAHX8HBNd{z8 zEcR!siY$!qNC$$*(OA-C$8TGVc|ovzEp;n$b@$O-)m1?_-M)PuykqB0sM(lED5o;g z(vKARPqMIRW$AmDU-=2r+%+qopnPI*bK4m84Ggff`fIx3X@Y$Jp{2FDdJvQqihCaO zD2S;D^V=Eki(0PEidcFw{m)8~;V;mkbD(pgx~n2c;_@pGnbXu$k@`d|d&C--A*yk* zu$X{~OidjQJSOW!2}Mye-#m&EwMrcH&(=&mPBykf0+v1DJlCylY=Fp+_1ge^)^HVe zUt)Yb_+_xifH2a5W;btw#O1#7nyil!MixK^kgCu7YVM7p!q0)O>-ffNtM#3i@UZ!X z4)LY9PaU<|GnB-zI7qLSTg<14|zI$a4V@C98 zi|Fzzu>PQ&C;7sm_VVRROg2nHs-hCz4g0GOxU!k?Ae}u`=*htQAfM3Ed4>4cm>N{c6N3|g!YvyJz(*_k5xZM zRh)&Cfl=wJ-v~~@{re-yz@Q+!4aj1+ua5^dB2c7oA2$utW)Xn3p2%g?#r;nXV~!G{Qg?9ci>*dDp) zKvSDm`0WSN3+bJNGF>8WVtgEEX5k^@c^30E)`?yA3%^oU=U;8C*Y#*L~maW zb@GSSRi0;*ZlKb0jcpw!BzPo;JJD;IR{nBa>1H2N2?8}0r!E`TY)je~;4~U%!PO7* zx@|l}BHv9)&GLt9o^fwdHixD?5c%HpFVFGMbQU_zOa z-!H4(_4D)d^?hOgtR?tVggtx9s-ESkb+pHr3nVkt87lyM0!i8psRqk5f96?zgIF># zxE@LXYtDWCr;+0bRRxBHf{A$AI^jQ&D za5@^;cmk$G&{C^!bG#DyOr;w-k{;+W1bl+i5)>>{PM}@=^ND?umQAV1M{E#&A;`kd zN_Y~y2PIJYxwZW_8kQk~f;6?aF9m4| z%Ny8d;JX;N-~Cy5Q}<7a(I|VuJT3`7ueupYsV- zh&Ls~N#yU7Cr(H~c~MjhxO?{?*A>rW7gmQcY4bWs;c66JuPm=3_EElRX=!<5+eeV| z?z2}>h9PLcM4zgXJnihZ`V1q$^-GJ3g7zcEBawlDr%alXaCg8OP_f(E+P;7P4sGW* zh;yiiBwzUmegr>&5vbZz$c`jmKxN1{00=_-{Pw7x)D@nxTt{qjUv$KSce_r>qnKs% zD!&5FSrS-}xRnz<0_cAL$nRfb-Iix`mCRU6A^Pl%kG=5S?Ao;}WE!~yRbjRfTWp@m z4KiaHD2q^ydaj7+EC;?`DQ!keL5j^qAdK0>hhYQA*SP*oO_sYr zNx_33>&g7q#4>V$q1z}PU3>0OlG4@TOM{0~ld#_YDjFl;=*L@_bP~CP!yg%j^ogIR zXlZGo+0`3=FJjlui^RTqeDb0K8X!=;p_oieOsuS^*tBuuhlta4A3vslVm@4i_Ly$i z>mwr%L43xp11SZmr3;SG3M#!EL#x#dWFr1rnc>5O06cmm*VQ-Afhw zO2K$4?5N`D23f#xzUS`JFnfrLiFqm{YUi4$@#)RLis3~GzKPqE zSmnUWd-v>-qYVlQ`dA3j`y%sK2!}A;Mn@cuMjGgP|$Q+g#;DCKOJW7 z+nwpSO5KY^9quuv=I7@}-Pd5uOVCKt(#a_uKqH`HMe(pOWFTTPiW4S%t#+_F*1tN> z7+5nB#&IA|fPF7Y7zUuCV?~%Do)M)$`9JYID>^N-k#ttoFRta%yL^aWV3L@mVSWo7 zlL>qr9lZ?qAvxhyzPtu(OfCInZo|QkdawbLExIt0jXFAAT{|lP^q#HlG^}vNz}y7I zce5j}1hpB;Z7<5b$K{}ApBg=jsD=H@%)|rc9b_Q3F*O#9l0^7y&DNkX;Pl zt5<83o-#^H-gw6IcMid8Pna7)2`*0rc(k>tT8qh}rwT6++nhRuw(vhel!x+zVp0@N zMk8SqAwPfpijIto3<_!lOokl~Fc}?T)otbf4!@=p?DFm3n^e`CH$~$2#DLnQw74D@-Fss-O8G_81t;wdB#(7(amR;fG z(Vgo~D9eqKJZs4C2Sw-veq?>1+gS{>$GiPu*jA&Bt*jS9tr$pzT<(9(8% zzL?~)hAWlSudTk7<-+TUN}{dh`WLYYfm?A8zlf1KokKY^GPrZ#?>R95w`>6eFnh#<+WP$u4O%8k_KT8 z*=TBFA}c??uBN8_<+XddnI7M~sqVW0N}&~P5@Dex0d!(8oL7K1z!*fgkC`*>NCzrC zUSPOcqCDsnKEV6*@8P9bdbHW<&@YRw-*rzeMx^A4Bw`_JcU#VlAcaKO!M{V>vaqn= z^s4&s0d~N8L}QrRh+^046{0mlDpUtp1<#@(GFJ;&a&$kdI-0~xV6!0%(;=|OpMjE( zH^N~IO-xFv4M-Wl&h*1>81War`7nfpgnSC;NwnxLWeJwaY-K)v96c>?W3|Kn2r%>B zWb^H-Fe?#VJ_43ckvJ-HliuD9C(7jipny~defb};DDD^?xcSAR&|!#97$Yk*Jwu9- zbq;y_7$No&&jGU6RW&8~{{He{W`>M8#QI3DukPM18Uk%-E2BgJJv-qVg|QCsnEmKc z=m_V`@fAK88Fa>icldr_jiFb3!i!FliwHofEC%JcsoDX!8&iPr;Ie|{vToKG`U>O% zC{4@Y`fAx}{Ex#bn%D?Fo$1&yxHPDRLjPfwOHZk8{r2ty6gXS-*0Hh4DV+8q8g>YG zK9Dx_#8eNNkHix!EU+o4v%^nycky~^3#>tGI|Pt@gAE`_lO1LKla!a2xABm13O1v@ zeXL&!%u4jQ2t4R0B~gF@E|7ddc0f-xh*{<8L9oeF+5VHQ*L*PkZm%M>MF%kCmoNLN zsA#o81~Yq+qjNJt0*#sQ5iKSq1C*=s%n3$@g@e?EqEMT20eTUfU{BVEjV%Ae3sAkf z)W*dC302UKp_MLzJ%^%1E64a77$Zu`&*|Ey_4M=%1P?RpP?=z%#$r2d3WpGOZ1axL zs3>-?Fy0#~2?6jwU)m#+Kyc(sU5T*VkbnF2OLs6XFYgC!KG?}-)l@9cf`5-oi+zDS zXUCerszu&Z*cuHgdZW0tl}=d!N&zc+t& zNqjiGPK{}0RggGUK|CticSdV_gdQ8rVM$zHeB3GNlCePFAtoe zaB#i*@Ij8H$@<9V)mcxuKTRi=)jKdi@Da^>fSbV4ZfAt}oDhg<+s>#EDG;lLuEcB5 z9zhp0S?2TKjfjY#?1dO_(hpBD{JHbXOAFmBj&z%!ALr#&JsxC--qG-{lv-o{8;LLR zWWh5Tnwq+-EH5Evopk7wQ&8wa1f?X+kv)RU2KsXIrcHFh&b&fG+9}x(77H$SLHX$% zmf7|hw%zU9?*Ygk0+-3dgMtwrKiC8D8#pSR9UY6+#szoC`D5{rVqZB6AL;_Y&7uzsL3!Jb9gpqrq1O#9!q}LwIKjOwSgWjA0x5^Vm1{$=lnXWw<#mA z=Maswf=0v48g$8%fSuoT45U=AHY0Raeyl`!C; zhKfRxXiBQb`f16~LDd(5rfT^G;@);BBd{ReZ4#Ou)XthaSG8kl1DVCOFYk7UEu3XHnv-6Np$e#-uFz*^|EcCAuxD-85klfP&A(Y1@6AQ_$tmpcxp$Hf!-AZ$Q=&n4naaBzP9 zA2jDji+W_JUv$>VHj;17m%%{7fB~oT$&1hL=jPgBFeL6%TVXG*pAW9>?{;5EhavKA z^@{d1I@IO}_%(WFyYXnczDwVAR}{!_f_%nrPcmU^ z9+!XOipF|0TGYRwYgSB@h*g4K@)WZIqRGg}2r-qo$cwAz)z#J4QH}eHzWU>pnDo@} zDuerD%d;0YrR*?faF?)n-7~%~_)n#$#MtSYv2Sz@dhLYVh}JIDUC-@9Q0HKlAxj1G zH6z;qpTNme+dtXajAo`6#`Q-oUc8v=z5+FKtaQN~A0?3kKMZm@T}wg=!W{&FgD_3U zZ2{Nhfu@Vk&G$?1sdEJ71WKvQapH(W6tES*QavoHe9>n+s>ilG3JKu{ZwYJ0cabbm zK0Xu-_V7utH!W`Y6a8Y#Di{2;Dje(qvK53+9BRP;?+OG%^rT=I4s&pPs;jfW{~^d2Jn47qIb;X4F|=f;)p@7GNQy^6_5?>^ zYip}2)DBr0NDR(YTdP52PHItue+ctY2(m0{JO!Rsu zB=modJs*KQf?h~qs>_A8H$bkzU`T(;unKS?zGjnN>REp$g)^;Gp}=*aybvY z=!6jhriG!V+bDC*x=TwiYbnE=lZ$b}92^;VZa6K`PVuuPJ;G!GCkqg>zSC2?~XQwl!m;(s!Uz(r5r|WjKe0vKMo0an=nR8zv!iMXJ{xCT9fr zg!@Tka0U`((*xjp5Bxo4jyyL>HJg@1ZfZIVfG4fU_yr33@$?cKvx1qiZVwn|Oup=7 z6bCkpr-FaR!i-6=;d=7rf=R5$VEn~P?sx?72;_2c-53qyrQ400x320!VvnXEadH01 z+YM@%CfXg&6h<`rC`L;nBCx8ZFnK}4y44}q74b(9(!&XMD`$TEe zu|pA0u<|g9E^wL`P%L2&ZHiftxO(*}$rq^UNkl{{U0}5#h9}|W0~&S@%l0c2e}8@7 zw{Ni@2OGM(z+YIEH-kWJl6fqvJQ;uauV>FuJCJ;@}SKU3IXea%XV?lzJ{TM~D!MPkn*%ypGdOg`1rAWLe%n{0}$+C3zmJ4cQV5dFyy zno@&gFk!7eP!m#e3AiNO4V+@MTvx^%HH~ zSowHCu9;Q;$f1>k!(I-bIiuM=$Wulq*mcni@N74Upmo`c7`@=VYh?;tFI621HwmCs z?)h!r`e^>G5xlTvZPj^}!;`4wCS?6xDqPNfadrX`mxGyEa^^EY9l`6P6$u_Eln-O+ z&IJgt0iw%EPx_=36qXT2`g(i4C_!E}$3Jp-AV123-Y(yj;}?_oPNA|Jw2QuYrm4L; zsEGv94t*lutqWdWj#a|ZFra3&$S0t%mSjb}dADajk-$CIp=H0Ox*B61{8(W8_wNIw zrX*zpOhUKE$`THGf*S*Y&j$tFiG6+uo#t&X&b9woZT3k~bxJLT7=zw#q{n2$Zy3fV z@GsT9-LO zEdYwj#VH)4=%%Hkb3=6wm(^BAR3r5;e&iQAk44BW z1fTI-r)l4)(alIU&s)CWp_TWr#4%mr$T{UJBl#D*8IAqwX}JX2SKimFa4&mb6N~#p zizWwYMOw9mY}NLJQ@p&qf42FaRlEVHgGBk*BG?DqGET!vMWfdDFAJb&f$L%mk3K)X zgwiY?5gvidWIx25qMIH3XxG82_Gz13ypLprbvK1OAqzxg7tF zmH(@k+UvHaWuLhFlFB2cvde$TekjYKnBv3#@s+^!D@7ZIGxOS}?kpSjNO{5(x z6*k@COR-8nG!X%E@TfhwJ=Lz z(o>Vq22tB|=n*XcnJ&C}+(9W)!UE>av@{gnQAM4g!=OKcF@a--$q7a7HYci60z6}&jAHPnKJ-+t8e>}>t`<_#K6sSs9i)`LnEM{Rl% z;UPuQ4tL3Ur>XDHzv*b~Gyn9A^7hrMWUX5zEJnFK%hL7vozGYQT0wUy&b=xDazGWY zon!ncJUn@fO!fr!L4)Ea9BZgKi3X^xjMgg@aEhf63jvU0KPdqDlt&9i*GQlhfS{zFhwBYgC9+lcD z>-a||?r~A$D-h|7v^d7hd>shr`0?Xt^$jfb476lrDJU$2T{D9qqM`d|KDgtcqx|a3 zJ<^Ul-s>(iQv=;(-23R!7T==C0%j*XI_NWE+J z6hX-Y105a~21kILrsR_%l`g_o2K@3YML#M1GaB=(l!4SAI#!63`&r8X$L0 z>%a5G89P2cKB>`at0BrKVk-U6Sw}85whuU2t-fAavnoAlC@w&RW+i5E$k?%Uzjs9T zzqV~OmnT(Pn19y^&w>IcG_paJIqoIkzWA#2?aA029eXth#3L0m4sbdYwM0quaU`p82`fK)|Ot^_X4cNDp5hUWC z{rmYq^1s=6S(G@4D@pliF3Fq3n4WmEA^xr^bf8qF6NqTo_eX-NYtTGT1tyu+1=j)H z+dtAsOldKu^hwYUegf_Rn5nZ5sJm*@blF|__JeIL`i^otmr-CtUKNWw-9_|Kl6>LU zaND9nx*>Gi08T-YZ%T>v^&IMkI)b)-cjGDVC=d;gTew5S;An(RVjf3R zzz`6;(*E#=A>h6nmMsyrKoP?VNwgv{zJrv6gE>#Av1Vzgy~XZJF2KPPIGAAv&K0%$ zl-{H6>hiB=6WlzWU-5HEgv)c-3sA=KD8|l9Nn62}6gRr#0jlO1xFDeoL-2SMZ42*u zKWFJINl*)vA=Hfc1@v*X{8U~nphwTIBh^x3?B#m~z-ddBY5YY$MrwyW@zuqdua zgY$8(S(v4#>7=$M+`M)Ec+e8!B9b>D2Eh0$ia&zmI1#gGXl}j?bqF4%w~){5>KMf| zklg;jn1x)PdMrCAFwlz<=QC`ITtIGtt4k`N3Vvmgp|sUci!qIC>C-SIfG=d%FU6AuvG&!+>|8#3A_Y z!q)c)@URZxj04qNX;aUP$E+F(>qj@j7|_ooP$fq!qgmuJSGbPY|AOnC-+nZqS)3WBLc&&Yc15c1 zKZJrqt3Yh{z=l`54u1Z*^H{*;cuiUCLx4+pIk_eW&tvnj^ z(!h2vgOf7pN7c1@=)i!JdUZhxjV^=vr_(AY_CcN4N5Y{?EOpyD{VZhP7G<31jJ&|O z`RyCB3}FciI(@QMc4B<@g~&oo0<8k1NUQ?vG`B66NH-#S9^Sa`W;!l{$Qg%?35o|` z@58502S|q3uLH1(OG>sTUt}(mbS2Ku1SN-nq#Dwcp`#5}SJ+wA*=3}S8$m;ut5|?= z=z-Ej0!&X!YnVEs1~GXz2}Sn+L|5qNt7p{F3ECP1l7qp7URRSn5ooivmo27|+HtZR zD{Jav^wCfMVJ`y9yykzT^@S z0b6z#R41@oh}>~(9$iT5u&X{9SiW>;7$>O}InS85OF|Z1zhOf{D{5Jy_a%XZ^^J28 zaNq)N9i;mAg7_ElI%+#JDNbK6M>9CojL(Q#>r4B4)ISi7?W!w2Y6<^DJL}faj?Psw zkJA-+$n=qlm;>&KGVk4my1%jEk_b5ie;jOankNnbL3G8+%DJ~|j0C6vu_C%3vItIB z`-;jM$r~F4l$bRS4-Zb1Zoph(!+(@Eaj;3G$DJ^|nx zJrMGGZTqmj#)WX&*u>mG%pZh4PZMDM{o{&;u@nEmcd=KL|q}C*l4;Xwl}l~ zGL|8F<9O7UetPF^eQ@jKK0okS3Qu^G5u9-U&8~%O)Vd>U$kts*l`x4;Pvh)S8}?^! ziyX@$?$;Q;#Ky&3+ChUu0pgMAwknf6)oZYh1xr69^f2&eiRgt3$Adtz>XB!GANcc? zYPIHcR*fZXVtj`~T#y^2A6FWr+GU`Rl;n$V-cQn7eNQnnss+?)P-ef0-|FmI*s+UI z92zv`5k9_L%K5cI^qA6BrnSSLlJI%P>D5}FOy=pIBJpD!97NkGV(4BHFL8+8@4x>@ z6mv8pbIqNdt{|$l{{HpD#5b3osUXdw&QncRN%-eCJj~+}fCqAWMi08wGA^HCcUiMl zo$$=tx(n{zsCR4sJ^pE%!QHji`qwTO{>eYkF$n;~1MO+RvGFCsxO;5`#LU}&l|Op; z5a%o1o}G1!5?^(sk&W-lk+)>K^g^u09Q}2MU}Qim7y7PUwuilH-!^al0c3|UU|y65 zT{x&HLw{{399eP2-3Jez^rA+L=D4+XSB_Ne#|1EVUX*EaYrk=hzj-Teb+Azh4IiOi zBLN&@M~}zFN%$9{R|hoo!pv}Dkmu^3j=j|^`Q0UvS#thQPEk(#UHC3p(e(oP$0ML^#1;a=k4x|fK9Q>=!m&V46wZB$BN@m^o zn>)+t_^HXa`zVOty!QBix_k4up7Xcw`)drcqzr`$6Ghs_QX-j5wkbtvLC7{}k;s;! znwhd^i9|#SZ7NHPQnrz$gj8rz22qq~qeR#9{msnpci-plJg@sYulv02`*D8%n8)C| zd_M2b`+Y30<8{1_yRVZzjPk7Rmlj#w24qPj8F}lrb=lX(K=Lge{#EIqkI~;?Or`eK zRg`d%^MutRI1CRSjDSxebC!UIG-S%mwpysX4vl{I63qr$|gFn$jaa3?1HPmQQ~wd`>K$4lt(98 ze^?iJ6PsAOY63&&u5{a)5GJeo%_5fLktJ5OHJf}tod;u=;Gp9-OkZC>3Rvg-T`(?N z@RdZPCR@qgTnfLQ7qmt*8@o1hIQ)sFX!58S&KNty%g+IP$+5OOcivVbmA zoKhn+W!zKkEx;Qyewj)1iGg^F=wz&&&XVIWOA+Guvs1*FP4jdmq$$Mom_efG`giZ5 zFoHZ$>|&38{o-malm@Tw5TWK#7M3X0r%aM6c zD2<`^M)(};oq9ZI&Gv2E1i1aWuU}MMn zSEn7k-0Hf&nl*cN23}*+J?%d(=2|>hcztURW*|_Td<)d*NErxWH5ZpTm%TU9d5iHO z@e8i%D5(aPr|MafmF0}+gedI!0W*t|A+iAz2jsSsloqk3LiZB>0|)5EU4SlR$lnyi z4)J?@*~jPjlunXi!wj>>jvg~+6Qy--6E@qetSmEgb4bi-kS}_aS;_gfLkxe9{4*9K zB`GQA{58aXkXh*1T_sA}s(80W(TXcTi#75 zKTZ|^=0i+<7ljED;-f_Sl+S{u%$qmwq%J^zP(q#cN^1&}q)Vsgrn=KrAYc^~`R*4K ztOXK_@dt_QGkWC$Jf2{e0I5N`LHu~c`rX8kJjLZ~*)3b9fYsBMp-jtOS^12N?rb<` zpfms^Y9SQrx*Tnh9Y5rRMG1<^4*a?0^|#-CTSZel&&|1<3t-SB!u zJ&EH40|59ic_Bnd(kHHnI^^a^cqj-hAS@nrDHQ%62M<9#a&bV+7)uRvb8~O%^`J7* zM>YH&Q)MO!p|g=q#Mxe=dY$x~{zq^tCzRu!Jp*3cN0lMQW~h%(D^=I7s_^r4{T|a5 z%U$hvo_%J)ulc8ndQ}*VQWsmGmEf4rL0Ls*`JzPwlZ=2oup=vqlPw1C>#W+VOD09F zlRm4*QpB4*d)%gGa6wy{v*2aqW?IHJY!>*QheAS}QMIV5QsLKwf{=g^Vv!h~mzU;d zy%~nDp>B6KFK;ArAwo@ZIBtNQoYGX;ZhU_xc5LJd=(V!d-+g+U$U2n`-cl7ML+9)~ z@Ljrmc{JNm6d)e>q!fj@IPe~;0-y`x39Zb}7>#TWLq%rxWc2Sl>+E_F}Y4oDr z+QwR$O4*e?7H)qYAO)Kuo)cLwrK(ew8b^&b%!sp3>Y|`YyY>&2m6cum2kPilM;`Nb zhf@6RoyV7!)Y>(mLk0#0NegVc>Mz&Co6rEda@DHYX=|cQj(gNsSfO{oc7Tl-xx5ik z7owrk(o!r~klBb4Bigj1g@*EyBoHhw4-cCd8#-Pss9qnpG@_Y>$eWMM-}rvg(cr0? z(IlRfh*y-R56ygDQ&aQo*@HwU>l~jhl0C=B#ZoU^h}z{8;=%sGKG7%gp}H6)%G^Ijv}$eDmaxx_-Y)7g^WlQ&O@eRg^8d43Xx%Z%R8D%VrHTeZq5H{8E|tQPkJ zla9Ya2O80LD;h4Zx5CAJ*`<3fabEbqJYRO;zJ1mZgM>&j(N$GR>PQ_O zi{7{UO4PGS7yRWn=sxh)q7R`70gw~(rvcxQ0dtWqlPBL`KiR}WV+Hytr;DM!w)R{~ zN^cVi2u3vR(?Ru_^*`AuiR4Aleo1UOj@Xf0qmHtNVHFsEuHQ$R16usYwQE#}Ae^0} z?-sG~CDs%u*`;)1r6Iv@vk02TxI=TA`%gcIYloEzm_nD4O-Q#zZf=)R2OBgfg6k^h zUwS*E@=l6-LjT=}L(55aO}0`Go>?c?Rnmkux88^mfj4H^#&59dPjyx>fP^~+^>B(X zfSSjcnw?7enq$X$VVq(tGK#-H_2>PVdSGzd1c!OAQSrRArwj8dzIWZJx$idGb3^?+ zC@6W48)4Sow=r>(`RTzpa{OvgR~b>#B(`E-8W4xcdv>y1K5Nb#uoJqAoKp9Gp;A)gz^#;&a$F4_Mr>@h-w4XBlSckWKSyXyI5NR*_B-!#T% zXEd$iZ2HLq3w3z3bNhBS(gPDmTYfUTuKt^JTWi9%DkgV;%L2Iz6uKmiO)97@3tO8w z79^jmKWO;f+Ef{16J2}5v1_TOf~54&jvd(;E4ax89jiG{TJsrjkd~UdWZ5#UsV8!F z3Kqw*!!!swtJjR$>NFxz6Z<=K{#0c(8qfu=P(jg`_$4utB!`j$ryYUc!}wFwr*iJx z*}ny|YDB*tM^CSs}{XBwM%GA~bCU?b!pF4Lu7*r@j*3zzE*S^Mnq|^pm){ z(<|{aAe(kFxm;$7b0O@S!TZX;1iKL4+myZh&>@7=EN`M4>{9xCjz0A~b=TP+a9+F* za(zJr0gMWgpXmJg`|}$*;(9n@f|(mPXJ(Q;TZn3zUUide^cUrRk~LBMJ`YtaAcg$> z^FuK|1y!3ry6rhl5_fd=?0la3)tt-mPla$fX3PkDd9}T7{Lf7l?3)(`XS%9V;f=K$ zC>tm&%&}nD2u=eIVsE<-H*3Gyq$tXv%<6kLQUF2_Rlf?{qIc6$yew|Niz?i_6WaUx zzwe`nT!U%_MiHjr(>v|6F%UXr&{^&LgJO^nntukLQ7eKxl2KedWP_x^rUE5p$%ih6U88*3O1DQ z@jUZ}hc9S1lt-vKLx$vW_AdE(<;r)IEl$WjrU4e67q53uf5Oxfp($(>Rlb~@98BdU zVnC;HQ<1hsg`VcQ1+K0-u5%MqWe=N8pFRMwVn!ldzI+)vBez*yRYmJ0DaG;SF@zR4 z_|crp8ZYqq$324fT<}`eFT+&mUOT(M^X<0>%D5t z8tQV!#feVm$smd5mn~U>rNjYbGmnLG7_ty3zc%d0In1)RzYE69ekHCj*-BMc&@4YU zJQBK%EOV(U=B!&mz!-fM`?XuY+JgyZLtZsq&{lW4u@;tHka|}7W`z2si%9VvX--?D ztYOB{Vvc=$Ovx9oz)yHJ*E{h60{at@@rny*E2pOjD2~+jeSJNWuW=kNR+d1i^zkSD z2g^(}QuFq$sA)We4MlzFq*;(X4c%{VsyLVBbK8A-^!W458?EYl^LcnQc8g4!-Wr=P zb)v*#vQ^{*P}^`1vPyb=Q0Tx^z!pGdS(JrwvYk~m?M{DWES8KaaW2Xmx%@IP(=o%f z(6LN4J4rI=r>D{qMgu*YQSgue>+qihHW_>YWh_if4tZZeW6!ng);U~QiR-wHAGQVu z0=ppV25UY`2q3aZM#2@}u%wpGVsrf$0D5L@`+6R6xfUyb_Il#)=l3F|n<+pw`e8E1 zo5M~6rpc({P;A#9=_s)P#r_0ZDddVsO6kP`yoMNr^)Min=2yHtJujX02Y~s(J~66I z!j*q-hL!?~!k~yS(;DD#(ZY;XA}%yBgn8K5U4B5zr#brB*#h ztrD;qLMGh}m_Y5IjZC5gp@FI9&2xp(%LW4@Zf5JzJD$fxFPx{9?yJ6J{zUP@K(H+c zh$$>GJ+4+r`~-!xlZ3{?4iyLM2Zs_y&p1tVU%3*v?hhV;h&YI&h$y2&kpR3Wf@PKq zd&+-xtWTL^(y(ryZkTS|V9yjO_Qr`$YfaTdUd235kg`zcT@0iC~9uEr?6}Jay`hojZy7-{EA`mKcx>pRBrp37{}CXyCv* zIXQ%lai81RN|O8QI&Kj#Yy*o{hQ^_{LK=lBrscV~xTyNU{-V8}a=Jk6mqkm)A79v! z501BTw@b)K$#to@KhAX-qGf>E1oC3o4mlG~UejO$qPF$#-;1GrWUnWyHp_>TJ>zyS zu71_MP*w_0g=rZcyn1}Fmev~<|K-b<1XvW`(p*&}iNlxORY{%uBMMBLIteW6YPaqc z2j2EEHiL2HM{c<^Mik?CV#h`?D7TWliBD8YN>-$M8qYgZ&FIX=l*?!<`K`uqN z9JTdLTV|X51=0pAN2^NaEG7qKNHamR#*Y%m3K3+)_yHIy^sjsu@RdWSL^Bl>T^F*r zw-Z3Df;D@sGyf>}*DWo=DOhSi?mqCzl5>N*Uq{jC+U_pjeO((z(XVN;6@2_tQ?z_?%Y~{2KbxT#R zLxAr(R=Z`(*KcxLNBluu9m(yH_h?Z|77ZBBugP|4HU8^+X7dF78svUg3yE=1fY|+`Y{ZrT>trdG##Sc<2PGegyr%ODrntG|bVUGKLAg zxc1E{`zF{KaPWxnhqjDvc&sm7vCJ9oO;^(9M%C{E_%Q4or07yb<}h%~m?jF)Y#Lg` zCO{{IYq7t9C3Oa54c7j>|3zt+UDzzmA3N{D>va)gQqQWZ8Y4*PG7d>#M!TShthkQ6r==ifjmvI`>cUkt?ey>}10z$|DFiogt zCQV>R0`CQr+07|mszRvs;0+1CsXA(5JxypZC1hC0hN2e?dlb~2CQ2iw6!0YBN5CK> zI;zTz*g{@*E*MA<0^$Jl>_DwaH}N#b zgUszH+=fGkDxW^JB=7)_w_&E5^p?XypY40=K=^wsu7#vrp5&QCy!TNBfM1{LD+w}0hc3~d5?)9TajCj^#pGN%l>Ax)| z+9i;nyNc!}UNJLHZcmZEz=NnpIOk9{k&&(t*ieR@dT=(d%zb)R$l4wYn1W=(8wEuQ zOdy*ukFtL`N8rz$yk(7`-U$xb+|+Zm^~53#RfVfXt$b%7Ng#Zt1S%vDVz{TKwV|Zt zL{yM6!F+jR9xdNM2*bo{CEvqI+4r3u&?FmjUv@cEO=8ywHX+^)oKVnl>EOD9JWz^- z(~Kz-Anh?A1}f?!Oe+<3KY23q7T`7Tmn4c?tex}YY3QQN)qRv+X7t#3?I=mFA;j55 zM^?DH#x48}DclL!mtdUx1|Ap`vu#`F&fR;>%v>hdoni_fhT(geq!oj~_Zkt=K&Hc} zCIXz%S14P28!)Lfy$Ohn4X||a;z82F19>pCXSkCm*6Q*!IcRU#RKUFye_mI@7x+LY z>6gtZiHY$2J;({D;gjlFj*p~r4!%M3REZ5>3*={FTgkXXLqa^s^rFSgGAaooA!Sl! z<#0&WqXd`o_Ak_gEH!$ixti@WRBDF%>n{)3y*GZRyl_mU0{K}{q zxWa-ML3IOlM3YD(>?Zh#>O{<3eio3LkgKU=A_{?_iHuXyj=;FMYT|G3eT6Rm=7aMV zT8HEheL5jJ2IV7M1|KWpLs6Y5#(o&M#V_m{NIk(Nbz*sASJ%58eHWc1`z|^X zKkBD*64utfQ9a&8`cUn6MLjUi{B=?EEcMYgW0-9RZ}a0vnxS>j3BsC*RfK6a_*IOn zSJTJ$i&d|S5x+)SmpvQI8eCzq=WBvHo65YW`|umjjkPbfQR2?%9F=&_-#uuax%p1{ zfgg5`DCoKN@&3VU_4LSIaLZ&yA{HY9;shX7wETY9ue8>_oc-P2N9CJb2uzp6U7KdHLNY!Io411+O&ya ztz5e{=lr>Cx0U0MgDRO1*7A6@wdH`<&y@vLRjnUt3{&Uo?z?@WV4(kfF0FQ~RowNW zB2OZ6FwToK$n)gIFcP*QxFF7r-rj<%SO0XqD7ByCZHJq#yv}ZBzy_=(hNXYV#kzOZ zdASH~?&d99&{?`)RCFlsVas1!faZW8cF1YPKZvDzb(wV4T8^w4uul|q(&k5hbgSJu zLg>(b2c8b*-}vo53Uz`pOGKqfXUU4go{K|`jHh|$+45}JMZ!;ZR^=0owDC~~CYlfh zyAE^PqW;pTgQqWZzz)bSB8}i!r0zaCX7ywl)#{x0-K9wkCsE|08AFQ zvnX<~aaJ=Xp6P8OlG!*Tkd+NKO=1R7%vx-kkmLnHa?(k>E1b^@E-_{;DO=>ji^qIvb-HrbyzYL13=Ld_tHlF_BC>a>RGm)_KSp@i@$OSRf8cI;$O=&DUt_ z9LN>N3{}(bOfaPr>~9V78x3fH8_Zw#@C?)_pVlutfc?h|$Bfy4)irrz5h&dkaEnS` zFFZD>5TxSey<^Ar?^nyvA2|}M{2+4Vs8P7!HDsMOZ{(EpG{%g9s!>>4`i08H{w|ck zMMp!$ebuBJ6mwGuE5UI%)QAWm1qcq?RZJ)?Vb({%>alBIuc@!FI%K}o&F$EpJz>(K zAY9-&j#clH20&VYp5u6E>w}NYkw!NRCKLEk)Q<(_Kwb|fnB$A^%p#Hq3bMsDgKnG2 zB^9_@yPX~sH@t@lZLet;E--ob5)uL+GpwF8^f9Yu*IR@d+Uf?wDkKlq<|=jL2#IlA7@)91G}YsKvadCTsJN&Kwl3WpMy; z?f@m!aQ7m75E|MKE&=fi(*SVKf}1hM_9sK)ma?l?RdsZ9XoCTDlM+uKU zbnY8L7Zxg<=f;i#@2kdq1_T7)oOEop;H~i+5ClPp9nw9h6k7wWpp)Z>L-8tV*ueP;&LK&3#om{@PbX z67~yRam!oVZ})FI`eABc+x7psor{!Z{QEzjKabdGqbc318s=)F*DM7+AwU*?;rrco z^|pWcm+8UZc)`E;?tjsI_8(;$|Jz?Rog!;}zc${OuigK%Zn%GYLH8z>wUa=SkSZ>O zoe3Bhdb~z{yT;#A3zBZxUY`pVOV{>4`y2o1{(=SEETAk0;iX5PKC@1QNO7bvKdslDcTxXlP&W$L0RiCR5AyOD!N!Zp z3IM&ugeL`A9GMZLM!`x9@Ltrxw>2SS?Cu>grLCjC^y}DZ;_OWI9@Y~x?{D#Xy;jRQ zS7z={79%s}Wrs(lhpf$c(7!aT*?MYLlB^Cf?#XcXPDwv!j$6NSVbD*#*7)_^T=(g@ z(c6}n2HM@bUsLfI*Q#{4>FDYok6hYx)u60yoY>gT+vasr!F)48lJQ7l^Z^iif?ce? zJZu?bT4KN$FM);NPZ<*#Qj{?3?6tzeL%!1e<=cEC{?SuJx9QuWWCp?>mS zJpm0gO&08CR9)lSa1JwHV8Im2E8jcL-FP&&|b2J{WwC82&@T^-Oh!5EsKB^TGbFq_*bmVqpDn3Cx@`PSwZ*Py?8?@U<=-I$uVtCc{@Y!U%%a>PSt`qI6 zMRyK@wv00)CEc@5*m+$J7?0Fk^Po`N4_X)QO1@zt97XggUA?hYa?qq4Taee0VM{ zp|G$C03O_qA!_vLpOz0N;($hDL~}V~An3cRjDr2sS#@)_zB6(SF0yWfMatbeCfUaSkUA-Cb>&rpuQ6i|6B1@fkrYki)u z6Sxg*jCl`cfxVDb0_MO@+-f(4M^EhRP3tR;@JqFu&px@_Hw`S!jA$E@U)>L53!IY( z>L|eGi$*xAvX$0goeB*F5orEupzIuBEo4? z6Mfog@yUt`N0gg63qVhXW5;$Cy;>s(6j=*qsUpdIKdX)ry*#%!33Iy39p2T^H|+&{ zwPY1>JM?zC*n?Gk0D4NEyCYXwV!m7@qaWIvuRi~pc9X*|SUEHgQ63N-BZR*MCrbze zP=2F5vzBO_6ISE3nKdE6Gx|`n+C7Z{3-`mWlIQ!&6V56IU~!C54Q@JC1}TT!r4Opd z4hgMP$+U%f@NDlhCXD5+yEBrJOyrcOGHN|I*+1nSAe*mPlSY(gZ}fQ~=a~^EoD@B# z5C%*hD z)fbfQ9C2aYE4!@Ml&^@n@1#^TG{b*!SEl24*7Cj-bV0pos&+j4nYh$o(>ji#yE~_E zge%0@goudew8%7gW~dCWD!V*i<~=9J&gK>AgukfqC>8_Lke2*VqhNBx7=7V|?{Dqg zvgIb>|IWz~(g7<eBM4T`Mv$lQptiv&$l{zj#Ib%@Yw6h!gxw=utIpz;!F##P>`UY z#u&YMO;(8UlPU>4F`Ob*UAR%2o;Qw@cqz`I2Uf=qvdf6FD7#pUwN`34!6LBUi|Q_)P|%e@ErDQo#T*?V-DF)Gl~>XyLwdvf`Jjs_RuPk*U2b(u zxK7$ipp08i#voA>h5i>$ApJ67{&13{6=%xtcO;E~S!2w7QI8u2K5B`u-dMAa3j*VzdJiGj6ciSa)N+sY-!^sA_ai1FAz z{q$?g$;lDJ`*d@^>YOC>2pH3GVS^CZK?FG&weI5LPml$AnY2K%!0+@h`PkencvZ-K zzj`I0Pmm2xJMR22YHd7X0x5zkxOIoft!G422u`w(Q!@pePe`xLg8pg|EF&umaexWa z`j_K3egr1JW1y&@fU4r8yOy}!nd_pb?XVW3oq+_AqhaxZ0f8GC=)2b4ozz~)lvPFv zimUfFCYAz;n38Oonrb+uJ%%NCTRd1S-Hq$C#H9 z?KH9{e9n!a!7Xaxy3dM1u=ufOgVoep=%s>I#yNdoTkFiuA#jI)@WN-vVJ~6`RH<1C zr%_kgV#@l?y@2uoEokb8cSQ?9BmAJDL!H>PT&iK{-8CP1NK_0l#K@bR1e{D^%8<5p z)vvF5j~+XgrTzp|ON-2synu6<*@qx3pg}}c_z|8G5&{-SM&~{YQpX?@+fXB@A&I7~ zpYeV#d{1E=ZI}vmAt${MqUlHLbfhOTf7Q1ta!hDuTu>-JzPRkm%V*DK z6qif?(eh?tgOW;@BsypqPYt|<#M}4U+NYDVrAc_$+d(v_Z6)~0OFNP5LI}$iDFAD_ z%ru!xmo62oCH~`O*+Wd`_CPW>=KXSUtu6@}b^$}$;I^Q}vTa5Ae>K_i-wsHfa;2?3 z>i@7>whh9i>)Hy6l2KBggt#xGZ~jx4e(!8@SBbMt{`<GTgKM86W+|o>P7TC;8*AT>k&?{mT4Tj=1rtAo9U(Wk114`(QJfNFP5ZWm@2g zPss^CQSeYLJ7*B+J=E4O*wmFJv!I@WYZ`)&^eIz4=k^9&-tqp&IHW4uyqAVp0(d36~-cX(N=(M>3 z=ba)RWDB9O!wdzq!9*(g>C+s&eQK3BZqdh#m?+eLF`*kLfRfle_Q+eJ4k^B>+c zkQ7xz^A$1FrcLD?sb>M+^JWjCFA`|*>w$GaqySh3(^$HYV#3OAiP z#h$uHbMhL9ZWzs6M?HcHs)H2tp_jsf5FLpdvT@!>AS0HH1`(VBUa+t)zq{5|RaMpf zcX;mi4jW95%yZIH!Zl|&U{rZs0%b-_>I?>El%i!1(?C*>HKc8-e!;;rDd@5+!125w zPm^9b=a@<#M%1_MrpPjm0AQS1>?Sf)b+z&WsD5pv>VhxglS(8EW+xxKX&`4nm~J-t z3}4V6Z)*LVv>mfb5%y|f;q1sfDB6gM`w)|0Q9T)>CFMOcK>=W#-WqTrMH7(^L7X5z z+r^hbrVHp`^8%*|-J`L-UbLp6`XNMx7m}TjNl2MEy;j04DRI=ZFT14T+?JE^XvoPZ z&|}M8>=_qHb+*V|XR@1Q*x6O}JVYEzZ2Th0MUyL5J(=Vn5cYlhdiLst_DVd-XMJ1x z`(fNL6duFEo(gW|vu#6O2pwu8qq*EnW+v+C<3@~lkncglPBxR?Qb@Q$rc1!Y0~2xt zSkl3M7exEtA~I@eDhF8*M@BQdO|Dy%t!CIjzKHZjBymURpHc!ZX4A1Zs5q21&VK3-xnR9G3gS?A8zTVBmwQF9K`9__e^-JPlqI{xY^P@&%V6#zX zG1*E*T};lt)G5oSMpN0pTc2T95+A)_Htt!+QD{-APGtB>%Mx6(pFD)V(O}h#I!`~# ze&Loj(jrye!R7=xnb0Ob7R^L2pp3XNiqh@jvZu6Q4`S+V!!}@&u@mRhlL37l9BN(p zo1Ld3BfF}a*NxDgHBpV?(>cfc^cbo7IUS&^jz%rtf(37 zf`%ytkPKd;)QdG><`If#jSG4XZ?3PblT0}@c7ta|z%q%i;e=_i0}k4|R<9lelm6V_ zd03bHh2N^^GmXRa=moSvVhh~T-`^l<5vt5J^ineS?evQ)fq~yig(g$IYQ|o?bM-1x z)f}9rso?NXWYRfRHz~%F7?3#t>oc%Wj9p@^4+({xSG#i*(&c{q_&r%yMD7}*J`x`w zu*SMNueYhMPLFA67cV0@GdVyuMl)!8I~7Sx*Fl<=J-(Dhbyln!M4C4asW-T?#7pq6 zGK-5ZhPS7;OBW;h%kA&DhEERalx@EM{>sK|-lJxEZtD;X6A+S+Vp5$*MVrDOLg`d> zg}GGj8g=XMe5diw$a@DLD4GWL|L7-uTC*0&?kW=VZhUu%;g0seWM%9Vb+OU=6oPxe$ zruz%T10XaFU0p>JkP0@S(a@pMB%_S<*{h7_`5MY&Y-^R2YMrDW;Y^3!QTZVdU8Vsba`p*@1Ys5S)a+yn3OJCJnD}@e zpi79;;5L5H&=AuA6Y0@Mx#BH7Gh>S8$g4w5UP?APd9wefnp_&{N5fb$` zzO&|!pG3M+NIJ^LK@zzzR4WBW1AB`Hgx$@)d-q}G8oQ&?hI(K3=vi-iG??YTuYDCG ziHaTA*z3`{&W%&Yxh!@KULb5#W5NyZXBv+69i98Q{P!L69t|W`tt35ZlI7RFQd$2O zqvro>=($CA(ezcW!C~G0DfFD9-#TH+rR+Y#B$ECPrW1d%`EMGAu0CD;P1QUay*CvT z9Xww+_fcWtm{FsWi|#G|u77_ACaM%XiyK;X^=>z@;#b-adU}T0N-nO!Z4W?m;+2I# zFeZz1k2jB##+N_MUe-qWoBORw!y_WeUh9`i-8Kxe4Ha z3b`Jh65*}7rIeK6n8B1`MyV*dGUou$nGQjnyG!+y1S}8o!c;KI3F8{_t+887V|eNM z??#=6Q##AZ^){h0K3H8H)tpkQ6IiEm-46CT{z2o;tCo@b%V%0VT7 z9`Hg}T2*@2+GC|nkk;C-^18FaAwL2xde|gt01T0gUP1H4j#Oe zhIEsykV_e8_xsg%jK&E-XEDx>e-+Zt5H;o?H!!v)eX*e{U9tow5#ix5N!3l6b}0Ud zl-+!c7%%c8^&C1iL270D8_ha7gBj&izz9_74?o9xiSaX)%ZWDWQ=)Rv2f7%}BFnos zcjr&cD)eIW^6KEYeyFS4x1$iNDrj6prJ5ZC)sxnnhbf&THp0gdj{?jFOkQj;m9U)I z&e=&4$>34DO7WD$Mlo&C=)xel8ZIHX7w3SAN$08)YEW@PqV0BO=A_bd%vHpDLz7TZ z(RTZa$qOPAY&+Ay6EmXCha5rZv1R!Vvy+}L4=sa9zLL3Hd8IU8uwtxn)3zZ;_lR+T z@7}HCo2a({1e1SQFOJ9+J=^@4oy|sl#ihsj2z`B`?ns?-BK1nJK`}j!&6wpD?az}c zYW7xatAeQM>lYmOgBI*KxzWqh6(bBJ2Op0PXa3K3E5qUkaym0j6cm{Gk_Rq>fNu{a zC8a)nDxN<5-j8N$qRr11u8{qH@DpRqjPL*PhZu}KIU;x96b}~D;us?wcu@^ApMxH{ zmLFJf!lb@j+SVOA_I(IZrfFY2bLQfOiiC$a-2rtvo*6%m8Iu~gNP5VlzWZj^>s~#2 zFbW+NG#EOh4kcU(=^u5LM7Ofi{oQZv`zb5_xA#oup0%7)OaDjET-|ZwkO=|o3%>XP zf2%l0ThTDdGQdA*iJp=uRIn>q1<2{}L8`9~UPShA_r?^PX?CM?zm>f1m-oz4?uOpH z_m{Z#e=JItkAH{PYFyBZ*RKtUC3`z~{K>->l@DZkn3KmAqE8A0HjjWp)elrI+D6gM zWT9$ z^Ut%$*ht)m_&FAyD+gGn_@dqMlwg&CP;yn!Pxl7(Mkoy3uxkvUhWX<9!$qa8=g&YM zA_f7m6cwpckxA;N=aSl<$(J3KrUgzAhvA|RFMB}a6*5#Zs=D(pX}dWw%3A)J6v|%r z4=9^>_u>4zDAdWUg50#D8uUA4?D`eNz(Ly+Zd}v;M>M)o$56SqkJR8_QE4}2ZSA{v zNFcRvl+3kOfRv$}PZh}XS0+o&;_?x@2hm@kr&K-)Lu$~c8#O%LPjgMx|KpIg7z3rL zFrS5|5$b?iC56D+;6OE|acSEp{wxZiFS7oQK4%F{{-COWZQJ%5Lsl;*sU;NM9uUwV z?3k3*bh|pQZ2}<9X7ttBw##Es{|cw%l{eEo%%zD&B>S$Jtz2mLP#7u@-4mG zVhsCFKV79nP;N%kQ0$syXYD&CxKPSm1ip&O%5Pr2JU|H%!~s+V>jg4;2O|hmkq@Pm ze8f(($>859la&TxGsT@cBFo=gAx2GnC7u4^}5Uqf5F1@IlCfB5K8p@a?|w+mHO$b#ts zcCkVWb9$)ZNxN7G&m%ZIXo=Nz#P*ZWjUJ8mMXvrFZ;R}loF~L499JSSY!eOY3d|gU z{t{%i#2Jrp4h-F0Za%|C>4$uAuc0yCeuK}qq36G$X*|e)+WVH4U*l)R6H$T-k#!xo z_$b6-*^={HHZ86`-f_u7NlK51l#@PZ{?3*ta~BWyG+y5AX;9S22!jQW)W+XtEFHkq1QQcPXKB*cF%4usD0cvp zrj|uk4w#%;h-D{}huxv+(}bq$WjrKJ*IBR zt3T?Apiv-{#FnQHVAjwc5T*Z`AS>RS5-q*#39n91Ec`T>KKC6>Pxe%7Z=KIXZlaMd z4GBIp#rpaC2e~d-l5l>@T_-txjjruIk`~k__iO*LebiL$;T2~-YaIzS?gs4^I-9ef zJeenhIePzaj$6~mk0(x@I%>GqY{fdtygYWZXztZd9{)Q$^cCZ~s(H#RuS?6=C@cQ* z_N`lvj37Xt=RQ#z6Lx1rQzX!GJSW+!NDevUR`v~`Fwn}U3k@| z)eOIe^^LFL!RAC}KTxnB2pdK#3I41&e?!)}bB_uqyh_}nwBNs7y8STE;$7|1V_rY5 zkbOMno9-IL6u%fOvANsuW8W2`Yd7Smhl$L4km-<7W`X2AYCZ>y`vgpG%BIB#pt9xp zfYxC?n^UKyp{OJuP87({1HCfcR=r5{?B3wCa2Rd(gxlxS%(2>DG^_AU)$!Fu6J)clNgQi8@U-sVQJ`)Hd(cu$BHAi z=ZMb9uq;quA!a`nux8Tg=_Fb%t+rOmT3(^!)=cw?`e`=j5IOce!+dAP?}F&*H;f#YABHk$^5S~$K7Fpl`u~Q(xJ#F3)~Nz#TTNThVUwKg zlTB~psg{!|DeDmgC9WX;MKty!vjt&HZ}9Nw(`_@;B0LETYFF=U*yE4@?pg^!kKAiv zv+D$h#u7RV2DE;>3HpO<7q#A&s`K}{s8V&MHE^IoY|8qAtWWGh2MAf@NF>B}UX^r7 zTU0RnuLo~-Q{rH|vsA7<2hH-n*quyBDg@>DCE@CVVVmeD5~S-%LU<8kxai-TXl0d4 zm0=|ZOm*Ud1y4Cq^otHKx!q_ID3}@SEuh{AU?|uj@d(zX$MQVUC;8CW2+cVzJ+rWI z19pPwh#x3vu5W`8`5{`Yn)(3#uFe?=xjW#Cat;vk}$4T1JuI1`5&zWO8zIz=` zDO$QoM*-B4s*vB>`xSQR(7|LYB@-L>D&i#+0)?;&j7q;&H$8gY4mB-K989+5q#EE{_osx-zI_7P4)CIwnn?EbZ@We5aY912ZsNP$Bi5 z6Uhboj$FF`ll)83VuHj->lwWv33sa*mY#e2&Fy(fwO{U!iF=Rn?Hh0-@~CG_iO-2# zh1jethh>}|{1n2)%ELWp{?PHA^NGKo>W15INmvgV??=BPgsup`sESR`Yqidi-I^!d z8qud4Y$Ltl_b~n^XCQfHT=LpwE=xdaj^{Tf;fI`Pn_mU<6BCmO$h`dQCgN0Sw{x(U z&F9ouyV3!MuQr(mlFjL=UdIM!xsIQCTJ!&AVCDs|Y{7pon_!J`n^>n!RJbNbSjjBZ zQ<@oPj|Y56#5g5o9fLYJowNic3Z9q9>xwfq9fLySIA@f_5@}R$e{^$3Jf)DQusIZ}+xRR&#)2|74f%ho?a&i~~sd-+M7<;>n4-*vJ!z-S(g zrb*JWSYI-V7FjqjPf21>)}_7eNl6K8p?ci@?bumCq7N}KF;P@lx3nIfG z<8O%g^w$|W{~wSDqOyThNX#H-(jx;lRUSZi>Jw|jU}1%xJ?pN_+<$K+_uJ`5u*NIx zzke!`gy~`rX>smpf}AR|Be?9j4i@MabR7o|uh8#o7AF z697^a(YNaRkGFx`gb7i}Mf|>J#-;G3we?i`Nse8j(5dx(Jpo3^_i={m~;wwEg;wT)Ol8`PDhLAOV&Z zf;AEK38|_cIkBGW@z zS?lu5%o3crkQGAWiQ*yK^k9u40|MBTG_uZaJVGsvKaZz2b;lsfDw8N0DCmU_Zs-k) zk@DdsWrmtXg6ICF?pUi{pKeR!1nCf^ze%C2`cZ+Kv$z%q^_(8eam!FQeXzc4)3P2b zc~gz#ZUUD)FKn$T%ff$L3RDnY^mJ?cl zzdXb#(PB@bA0WovU1+~99@d9Ugw6u4H_iDn%B_~VA|QpjK#5Np`>OD1Vg#D4gbdJ& zsRxPTyDN{tvH|GhhmO-3B*eOY;4vH+R}2F3WzXvt5+XmbM&)m-F%+B$e|gGfa?zyfVH3p} zAHV5O#@zvYDk}>&!PX&1=%UI#v?B@fJ2-mPBK4cE8=BDofyBydUb@Hdp+hT0p!f6I zqhr@klNpYa$vW(mRJ27*+p-)eUF+RK8&`N63pvkQ1Ms~_TPL{7i3Uf`Q3j(c>MPKX zy1-tdjLyu^l^{NH(YNp-v-3_vZcr6N==N`={Y#QRh&!N9?RIuH8d7;=grGn)E~|@4 z(t+utqx_*5kUg9W3%kNVP=Ync3uu{IvnxdD){iEz->cQ>rI@`O!DP`z!0LR$-4%O# zbH&r;#nSGUqR;QB>km;^N70~$CQAA)Y+5#E5e&?;wB)eApt=jiu5MmI!@y+N8}`f5 zf2;<}hw@)JPMa(KkU5AZv-}@wtu+JHGH={qboeBhT+SO5M0aH&{BMHulG(9lg3Kx^ z1~CqX(03Q@fK7*#Q0C;OOu_Zg`JhJm8+?!#VlJk(LRflj9|0RROr=ynF~?6xeFU{! z3N$;=8@JorWdFSB^~7hjQyI;DRO{bQ3lk1HFm_L^$$Z6-VELF4SBVSs9Je|4o}iSD8aL_YUr{q zFNG*BriK0x9}#EC(1scwK5#>D`m9Q}WX{a{%t`5wI2U~~nH%8Gpv&+Zk<|892@?f>u7 dE^B<+8P5C^JIm8@l=uzPNz*3An=JV4e*nz3rmX+~ literal 48854 zcmd>m2{e}d+OH-l6_p}GQW_{p846JvBt*u{O6GZ($_?{Zl>Q%Mn<+(?8-$M zGO`U(WMu0!Db|vak;%{B*pB~fGP|N=Nk+!xN&Ih(Z{N5!8QDHEv5V*B?81h>JFCiR zFRzRn(lI`fd%|E!e!edvX2;l$b*CgR$zCrwFIm^#D0x6>I`p|lhQ(2}qZ~^P!6rW? zH7nWg#^2E2(2o{{v`xp9iqq%YjMx0|j0tn@(F>K9(3@79pMqVaWG zNBZK(-ZdLZUq}nC-A4K%%I;tGjiMe>Qc>BGUY*6Ru3AkpOd1**`1es-b6eZl>FJay z9j3C4G+v6%;pL`QI!UsA`xO$)vd%Hp+t;b2pZP+bV|M(KAj2JDdRz=irOTJgS~7I| zig)hZ$&f=ww$)AXtieGcA(!&UOg?HJF;C@3n5h{k^sKUd)X2yL&k5L$(un-|^XK;M z+fH+R!LwtXrX2{`C3eWOn;l#WruS z;gLE<`=V;hy*9fY8v645lwzv7wS~oCXYtCLn;+JfC#{oYN_8M3TmFPK#H}>pH@JQK z_Now`0O3K#(`H>?!v%IZ&XZn2!NDt&kt@S>aZ+*D!X0LYb8nS;O-xu6s;_(%7<2dZ zT=?^6YM@THAyGaiCPwFx##^%=fr{z_oyEnzzSVAP)-BKE6l?3~(2o_`PwHrDYT}x@ z&h^o1MYD?SJS1UeYuj01pOJRotBF0|X>OtuzwWX$Kew>pOUHGq=H(@Od;3^z6&L#q zukgOC-6BS9*(s)-Me6G6H*ekye7!GSBLv_I=ed#>es_f0G;EaA9AEgAi< z!~)pW%Ni!wT;>Pj_MFmj_wc~mot^x0ihATaNG7Yke zrW=$e!*a~LhKGksAJI}Vo<4Ep$fxr1I2>wf(fptXCGD3y`C_%iTYZzcnVC~PzQRF6 zsc#<#7Nr|Fg*-nlUq!xyXN2pE!eKVH1l%eqp}E^WzMI^xULpHN6BrakzHy^rR%=hW zueiUQx_U>FB4>)iLaOUh(k)$P;uX1pa<`p>!?ryqdp{qJtT)I~PO-tYi@xmR&)_&a z%E9;gM%sI;7S5tSFJcrW+x7}JYo7ST zfo0cVkhSyhwPT!|e2q~J29ly3g^oGx&AFES_`=b_!62)(oY{48qOVe(<7I<^vy&5h zp;B5#LE}(U>e#mzA8_m6zklDmOEud_iDR!`*Nc)QbqCGV`H6{%&jE)k!}D!MTH~ac z?agp1rL-FLH@%G8vaN@kuO~I+<>$}-s)@efxeezrKQ%z?U%|1V)Z*6-1_D;UzD0{t z**j5D`EF(4eKsR#)^$!(GfE+8dSc?F(6haJ_nMoVTX;69JC0;EsRuCh6&vQK%X6tw zR*ELM45?@sheuBCzBZ0q`DbCFa@zC$eVefkwb4497_N;{ky@fme}Bf}g!jXT<5N?N zyhb;QU6y)Hn4Nx~m%pd-hx?RTV&Ya-rR?$(ufO^o5bfPo=s5d&dCeMWHlmcsDl3O5 zByHWaiOVI(u0Py1Q+dRF(@u7qpw4J_cXt$wE5scvy8U^_+;@o^H*VR%DAtqUY4?}>&o4`YjaiX?dLR>Cun@uRF-gS0%*40gBR0{KFd9r=Sw}^wK3%)cu^}!t7Pqylt1Cmdx`N~2!Go2-oJ|H<_sF*< zj?lEUv|wK~8f2LkPB-E!RSR1qWfo1>K_a2meQof3> zRsHgpX4*`Bh34Z^Q^y`N2~<>6;5S@Xmc4czZU6rLte_yujbg*P8%cpFUIWi|Ki2u& zn3LYhFWk=&wx6B-YEnbdmijvui@)o>bS+8TS}@L>(ps^aZa~7qR@IsfybBJEs@%cOfN*I zDkP@Cpwo55S*tQZHm)~SfxSroNoTavbc1495VpW)Q{>o^T=*VNQtd7>Pb1uZTv;xh`g${+WC4QJpp2~$Y=Ug&6BO7G3rH#=`yG#9HM zSx`{0jfwxy{Cve2Wy(r?bb|rzx2aLC?N~%X*|QJK0dEszZRkR+*=-p znb}Dd4_fb8`i-i2RtY7Vbf5vPo;EG-4> zes^J6#mq0PNxrjgBmIhv8S#ow^}BQbV^W8OwOxa!r)POt*<)tmj%FDdnRHa$JV_Se ztDJ>X{w*@7dbfN6KP@lz3x{S&L<*@RFT$%Uv_4V*Vrf;8Sx+dUgk%u)TWK8+?U>brNT&sKP4F+)8ywT&kD zxY`bpKXY@>vnmyDWL_+dn9!ThI^zDsH7)}sB=C4dWTeK@pP=OAg55!HZgU%EyQJ_+ zGDV1rDq8n96^3zL(NojNtSFjids`Ex=r)r`DzQmjIf2Q~SE>k7Z?LjWc(~VkA48)>f3R-e_GN9if%QNnC^MoE$1j zO2?TNT@4g^6wImda^}D7>nZvco_m1VRjtmsXC+jQtG?YQ=D(Qomim2L+X8kY zTCo9|g>hw4XJD3DCco*@d`jayTWhwlfDMjEt9&yHc6Z}zwS4W$pe7Ah=b^@w_jx0= zzX4v9UMe_lA#3cRXCw;=LGd4)c0k2Fu9o-gdyGs%uVq(&zyF~2@wxAFIL@k8;f3K- zJ%#DSb!|!4W)iSjT%4>H^`W=^@!q4aGPvoqg{o?pe$Pl-PIPoMEr;^$&!0cMW8RoL zzj5T_!=3Db2G|I(oobQ7u0*z{r(!l~?H(97W7;9e@{u3`yA89& zKO~Lo>uf^dBOBbXW}{oI4$8X71H7*KiUy|Mo&kPScA2;0(fJytud6#d*B_axoOM-* zCHL)HyMfvmpiiTg^cW|eley+UzdXm5tPJ9?G&8%Aspt3TQDq2^;k9sn`G!xa1ruJE zqm_U!8dFrn#l=0SJv=;4>3*#rnqEh~rK@1aI~tsLiu1yZKkLE6hb#FGip`^y_6;2x zoSygh_gD7W&BT;aqqk${&Q6zwk$l^+%`BrRH$WFXe|WB5y*ghmyllR*?96iU`t_Pn z)1q8#V50a?)joXq(A><-uE&Ru*QEUhu!cMEu(*VT>Ko0H@t*Q3p{SszPk&kEZOp_4 z)0t~@jcQQN*o;CxFfag6z!#)=qQI$?{;{cP7Lavna#AJNLVNOO7151* z4p!~vR1fp>* z;3o=eb8D+f^Bb0Z`??+;j`%%0tC3~UV3=B{^MeA_3nhQ0e{8H1sOa6hcT&Pj^%{^5k%Ix#_aS3IhDnaS0o=}=8n<@ZB4`4zb7rKC z55)rTs{iLtu(`+JKr72j6TxL74>B_|i4&=-vjj3Ki@`nsaz;fOFWJZ}$1{P=HapyM z%BcAb-UNRQmQXxZD~@HxG3H4oTQJD*uJ?0*Vv6!EMnp0`hc&0W}>h|qk6q~a;U+6S6I)SP(4H^u-MV)WUF^xQ98LOXzX5rxApkC~v zR>Wvjn3~)dt&~2^Y?alREFvu}ef4Sux;D@y7NJRJ(a6vc0~1rB>xzr3t7{J~ez51A zgHoqX?c#g#MiUEmZ^Ga#`$dv4LblcS!2buzN(-;ensfJ*?HvrXg2@D_xk_Y{l?sgJ z=I0aFZ+;oEv#I&u4X;AJkP|jt@f;gQ3h$7YZU28xcxo#<9u=W|`!?&rgWB5K-`|>F zh_1;rZ2H>PCUEj(x>~-Cj~YE`P1s3?$h}Lu`Qd(V?`;-$;C^#+w&TZ(%+R(dX~FQ5 zz#lGOy!gyU$gImvIfW1$7>d4L4kP`w+o6Pk^^BcPladw|7D);z%kxde_wV0NY%m}d zW`bB7x6KU1MPiq2+^}KKLMrHbM@P|hnfw3d9aQgWVe^VSP}FdqPKb-}uiMIU5q+f` zZO?w`LdPU?+Zcln1WE$P^gTOsqcoqO;@h^W(~wR^k3zDaW|yO*WB9dT zKffPiW2QF2p`mSHSFh2sL(3kS)6mjZx{kGGiJLt1^4cNtvAmpF(9R6ynU|Lr{62V$ z{m79AzP`nF(;Kl{Frf|r$;O7AUk^^`XDfqCl&KG35hRXzF1jUOpK2| z^!7%bPck=P`G`O2?&$##^2g^EIXiN4rkeMZWtnz%7(u48z|T&dJUKBr3H(7vO-;RL zPYbwgozV1YxoKx_Lt|cxix=Gs3!ym_q#fks(K7dlcfw@=OJwSulr+&FrX}&*h%sVJ8$XluyVLmqbOO^?b8x0bVg}Nxu{$0|e09 z*Vp&+=W@UB%5x!SR6M(B*)gb;BduBF_s*v%=kl4edtiERHRUuiRfd- zxj#L=j~+ehyLw!`;7=uIvD3mxj(G5Ks4&w)PY*gDGe^UL%=62N9|tiwnAkLwL3+u` z%7XeCZE+)=Y#I#|O+iFCp~mk+EM zS7@F%rj}>*yQ>6D-@@E{yGT2bT(qwcI|oPjDcx(GMb7fGp)KmKJ@eRqxZR- z+Eh+@rK%U^;q)xdK`ICjJgP{)<$kcbgFcSIAZs2y2OvY(daxd#vA;S}qxgbSZMg{U zS?z!oR4sa8mx98=LhAjePFZ3Hf-^tHaRFU<^xW3f1%FZz;v|crS5i`HJl64AO~B`} zmY7tby6famNyDFO$>@}FXTc2yzP-5Mylb7HT*$R|Kf1c!=+(T8bX`8f!7+mC^_=uV zFQxa1)hKqUK06!M@|;$l?dVa;ty{x|ob%ESvatL>YXx&Xu{`?lax``dj&9SYO`yhH zTwG;eU%Yq$7|s*KZQPoP{fG5JD3k!O@{)PZ3pR!7!eF*o_Iu)tV^fr)!P(_i@>q)PbX%qfTtdFDH{ zh}B@dKGd>3d-iPGwr%&e{qAoarV~pv-xRnW3`7?mQfHT+P6t<0_9t zbq}>jn1JmyitRgg+-l@FcI+4n%lV=vJt);W-%$tbe|>xLh?Y~~R1bQzJ9Qaji5|X_ zkdQD@DDnVO0wqgthMIR+SQv1xqJqMq!`r4$V~r;&vB}=Ka|fG2Decy!ix)3qx%&9{ zQ19m^UiI$@bB2s8{&K+P(-K+wb%z8=FFwB6rP)rR6a{gps5?)~iwE)K4{O`lWK-X& zc*+)NQ{=pmJy7MPA0HPNN8Jr=z2S@9(!6!xRr&G#Q4`k3UuzT}@BH%l^L7!s)GfDe z=V_kZrY*)yiOrqVFi22v0h{DYk9NDbxU5;T20UqUdOAz+;C2x^M@JQVuL>&r#$#K_ zB)tNI&z;=+RPlg-fWXoITVq?vE-Q>)?;E4Pb132AdPeAnCD>FztkYhm*#xyRY)t<3 z>lc_%$@?0K)GO@nM>sfkiM-9vS8Q!*%)Vd#t*q>FjEubNEe}>Pd5)t5Ko2mb-$EXE zHAW$cLFb70yj)h4k~qo~cF;oiBhCmR=XumE>=!91Dbx~53W{d}wy#4&Lp=^CN~jq4 z?Miw9U0vPK1~c$cG5HYch5GyNG25`5TD!$I- zpCu&oD(bRi@9$T_P&h>%aHwSenx6NX1&*xr~;6*d?~3s&zrx#%(^oy?(n@^p@Z}j7y^jtGFd9s7_1L$eX~>e2l9JYD zW)Hl*xfN=`h;ZeeKBbwv9q{tyOK@n0E%$M{6^AS9d!&P=^kJA#@8{)J5b_hH82@hD zi9S?0TtN?RfrZkUZ5(Qz^2p1J*R79SrEpag1&9UsIH{qm*PqeqZDw0Z3e3}*I)6YvfaBSDLb z)$?tP_4N~gw=69yD=X2Db22g>J$%TuBp-}llv&=s6WtJ011-6>Rt8ecuA>U4`S}|c zu+sdhxwea(K63`La44TC)R0t|J8gN^N!0s=gw*%;!@5B8;i20C&AXvNp281ZO+ld% z%lx2t(5I%G#&k!eq>SI>y4|PQsXFKJghMXd$=O+c?S|{s4-JQR976$>q!Tc!54t8Bx|fZOjf-vzkO{P)$06d2go-=CkKZwu}_+McVU+X&NA zaQx%WOP4M=6fT2Y0bSrdLs2CLJgyI!$J4{j`-2ih3!1ijH*v|p3en*R$?w*!m&z%S zBQx7mK&Iic!T023W1E|9(!j03`dopF2A)^{gHI{hd{{^3!nKXu&(ufmrYNcMJERw} z-?`g7wfFl!(TYZ^$6b0>@=Qy2JU4f)d702nd9MD>-J*53$9xWXGo3aNKksN7b%)2# zaMk2?6F&LR2DTAHzFX`8LBaMvvI(U18^yBStUi=h!znFIob-(@Dlb_%(pUcnb~(8~ zF5lm>0HpW&zvIEj`LiaZ8InGb?9FD;|2?yx@UFi_DMUoHHXrPwI(*2^%j0ZiP^xQG zAem0RWjB5PdhxVba?Of~m6Y^DGt3I4t8Tvj|DDhP>H7U64-sLkMJt`*?d?r8p5$cc z3wqok@FeXW9Yrr+&W2L<ZvEvCS+vvpD!?(IZama0VJm=XUz|3 ztkBcbClVq!_9F`8ceIbVNSDEp5hfa%+r!1TN;iX}{k7Pa_4W=LnhkdrYfy}%iwRBF z%Ua~Ixa+l~_q{dmIV2SUw-7{_^tlN8pU*#ix-v%>fbI_pc#@mj3IFcEML;3>p#x$A5wtc~IkHGt$!b zaO*uuQ}cgi+vz;}XS|0b|MMERqF%lNyo`%0|M+nW-HCTrdH)$De5=nV=8toH9u)Kw zl-blYGB7YpyK*-|744SQn^+(jDx|7AgEaa3?*N|ck-?{hQ@;d0kWU!~+yS{ZJV6Je zAB|H%K|x37Cyp7m6yU$suubnLKVRYHw{PFxh^{#;AfQoTHx9x#2k96pEL4XfXMo2W z-L)~|l)I0CX3+bTq5q{e0o&mP6BrcqZ7ofL43@S(s}hMzq1fl>nB!O&7#?lgz=7+^ z#+IgYoXpKH(9tyTsW0rz zj89Z@QnG;L#ntHb7HjLm;c!{BLkmafg?MKc_YzHXOi@+UcF3VsYagS90#aUkcH+E{ z1uG^?TqvM6qX6pK31`-SFSWecIE4IIU5>69njR;;k`z-%YhxaT z{RC~(?W+hRzxN|1Se;(b?u~K^{&)reLMog;%YO1FT;ZlMpsloTv67)y{NLlRN0<3B zbB;k^JcZ(5hqcq(+zb+-bowjQgstTF`X&|Le@={96UBDMX80M;BZ$6*kbr}x>IbY2 zUkiJqL!fib+kG8vaMy%7ne`lq{eSxO>0`>7dO&0s?r+h@D!_IFWo$DoK5O3nu^~y3 zcK7ba(;{G?IVRsDT$k+$UdV0OXjC76UE~3jn^5a*ps)PaiHqYzC<$Z~o6@1s1<*|A zEI#*0bSa^hu&7g8E?DUJefjrwW6Pp>&8r-{S2WLCGKd3$2 z^gh%g(KQkw+zBvV`NNNMaa|wH)+*l?er%zFpKJxLH^_b2*xm6B7VO)8Kp9YKRd9 zglv0y|A#$f}T8~ zhP#PW&Cs;NnOkrJc8N^k5+(9;s^zh|(}8#^EdZKBVCi%8paxo|6?qnZvZuE<6JmaP z`bjZ=Id*x1D@G_QwwA^8T9RNHB2Sea`XQQqn44SrCZ6csH8lvC!o^?0W$ zS(mMR>FDnCtgIPF^KKZn+eHDpl(zfev-NYuj&|BL-@&7LKv>Hl%| zQr|r)Av^FkNnh_125s3Rpe*jx!i&EzOy2_s>p@yf3EdM?0G1Eoeh^M3w&di7`iQ3f1W8r~Q z6ZZ=H!lyruf+bTqg;h+)(~C~r!q%2=Bq%i0u#w=y;00*)j?@?AJL6<_=?0$>5I}7e zM(4x=hImGI^7bcCn{+^t#4-{OekVd@`ffZa89SosgVP^{IPH|{{wD3{+pZ; z%3OL*&I*KVo$3gpd%b@zBIb{X9paI>u;xJG;~NIOf;Th_O~>kHz0J$J>W|&YG8fA# z29*gO-)rjknkSxJI*iqf8y8UU2M~eJr2Sb?P;8A}nfD%9&-uO#IU$(HV*c~fLyAjE z9Pra>^te%Ap(E!zxp=Clc0%GZFi5<2?*htsyD=PW+!}GvP%$w-DPA^qcI6_c+!D=S zEg5l6X*r}7gM-^8g2X{kP*BAI*V*s31VK~LID9w`YL#hQcGX*JSo@BZ&lH(9Ss_Um%w6x>zPe>1L&wf;(DXVyDQT#?^bzTztL2!4Q@{W4AsVSA zP%F-3#~8WwzCAysYhh`L8*^AHq8$=Bm^CB>nACu%@p9~nicO1)PGbH>#>Rvow`LtV zT^#(fRfNhHuBh&WdmHP6+7@s~(*M-c>7gdY0=c*rX<)Bu*pzUX!S_N#Rgj*9Zx|k~ zCLw`5jI+16Gb-tX?=wAadRp3GR11V4_yq(A7s76!&VezpObDxX;>;n42FM{nlO?hR znfi6Tl;LzuqyIUNrnUSVk0w)+_)SCU7{sBma_;DwFY)~!d2BWXK`DFpv~NX4TXI-9 znZ%?W<6SQuJaXh$fRqp#*&OziDe45&cYqVHURbaIJC%_Ek_06Npsc8_=G!ZI;`XN} zqI>OGA$$u6EC4qM2??P|4%9@KBUyxtOsK!%*K}2#0Fv-CsF6@gapR|FW}xsHh5K^i zN{&H4!@J+RdzU?yVb@lO`*3ve+vwwbd`%xde5kB6L{>;gSZT-Jy`w`z3uCS;3qT$q z=!oZ9oU40z>Cr|mIUi?os=dQqUHgRJLsFZWm~iL|R77%S97)G#U!fLdA?u3t184&a zY>Vg`*aTK%9nL`2yK)YYmRHuaG;>LfCi~g-9~^+=S73M}Zg9q|>)kxl9_un&H$6MX zk~^M3B&NLe9gV0Nx6P(^7Y2V6l6yjj&O_@1p@B7C_Id-U&K-K})^q0x>%b$t%ct{6xBDMNd+(a^b+o`lAc_NONTp2z+8@}zzY%3mOvYy^X~(WzyS8t?Y5byb ztG0p-Q{$?G$$y|rj~mb#nVIWiVxN&{6+ogR@M=Tzu2peZ4uZxz=6VHIKICj6v2#iUq0Jy*vg_LAObHP;jHEsVUU-LiMqqKX=p7LC(HHMMaf+K~7H2 z+tPn3L1A6n>4*pgtZcrna^=N|uxVJp)rZCr?D`P{jc`i>Dij zb|^w|ujCElyWq?~piS&ur=91ml$4(LEgjvQt#gx1PZ{)4zp5MV6udPONdsfb&^i7h z+d!X8?`m?pBfO$6%?_Gq{rz2f6bKl>YW`AHwUvqr-tP*?DDXF4GCgG=2~aN;4_LdM^@Q){>#&MhWMKDh#^ON8>Kym|8*Jmjz33-x{kwJ5m$$@7yh zypSTlMjnlN0Oxh%#mDF4zV4jtEy4{9s&>;$fBQ-A0{p0|&!3-z7GtGA>+qlkzXI>I@u95fw3YW3fvE{s z1u6V5$!&<(c~BE+Z&Pw|^35#ZLF2@fLvV1V58;ExO6-9TGQB}A21wbocqx0pj~)^< zN$%HOS8|4cH$-b>aMww~nqZC5v~t_A{ZZeqj8+Cnw>3{c21JO-(hG*RD@=GXT^4C(_h*hYp8k zePghgT};EYkAm#mZ93ntj^9AAZ}zDQhjpk*Ws$jc^E7ubNHeZ|d|y*n_b~HY7DDzz zUK5wL5rm+4VKg5DEAknd@F}R@fB#-s>u4yL_l0EM>2uT1>HHTAI+a4&efe0$oh!?; zpkY3j>xi;e=m>kIrm}Jf`NEvr=A`XoaPeIY^_R!Kzo(|cxbS6l~4iuWEDI4=x|tgI4UJEGsSWddLMKq#H0WXiEPSI z%J>SL6#hir?uQ4WE_>>Bi}?=~=45x{V#hF!~L zNGx)c4yOG^*(^E+Vr2^(w$nU5BTxX6FD=i5qAa3T0cNM2u~MSVMvauE@^n~`C8{`?(Q zF?ydv{QRvoHP=T^;FoZPFxUjGQ(cJjkg#wuG*f6n@ZVE1KPm5$4g|`FvI+WhOh~Bc ze?S?)XpsTxMZakLSwd=8UB$SJu{a|lKTgc)AYDRCk~BBVS)7xEpNLmaPY;w1tDds0 z;5kuIQQHq(7M%YT4IM}-Vt8~k0)}uvKwY-63gUMN0ox4Le{L=T{zcdr@dQwI5qNf& zqsM>$M&N@`N|JK7J?PsYr~T;(3*6%?SV=ZEGpMInCil1Osl`>m9f9nyj1I#e{`LI} z(#nc|>ScJgn=0m?QIgu6-+i(Ww`W~!TTh6$OibhdKS+P;V9?Y2mw=N0Y*YPL1~#P* zipgj-k**Ax=B~$Gt6%*u4s^l~Ba1q}iZkCaD@*)-syxl9Qnb8Ael5l_{_gfHcNt7m zWqw|nl_OnM##P^)?B8Oye{KIK12Y(VZ2&%bW{{R`y7#Q9qXTTNs6&(&4Uql#@z=)V zK{N_Eek2qXe`@WvN0}&`e|d&v^835qT!DG56)e3HflYs}Br5r@U!_@7&fElPDC+Is zzCpW(RKUo*%C|F4V{Gm}N~L|sQ~{61P$493WJ&&J$5oEcUM7TrTEF}Ib=@2*E8x1Xt5 zvNrr0lzCM(HE3C@dMTWINEb_si@pCQs>Va_laVor!y$xN^mH2})G%9kI)qgWabO8? z@yYS=w49vkii*~B?MLdVuA{mA-p&A0xwyoTnJO+IOatM41V;j;5e^gg(Xqb=?@S?P z#7sA7-Gn&g07b@^S@^iSnT?GJOnh7jB!BTjx)51`!6{8r(fhr!-R#C~$V3h8&~KFI zd?iD9!Gsan@WE(MM~6Cv-}C3W5b^+}FfVjmIr9pIIdI(nEPiInnEmQiFVtzA*3|Fc zPgvPlSZ)$ob*D)mF44EZRK&oZvNAuM4B(?gIrc*J$Y;;!7#Q*$rVUWf0cGe#Ptk2b z<3pGFjp&4`sw(^IOJ{fM5FEMOml;92X-uC$88}Fr@o$0Xr!QZymU0S&k!ORHkgbCO zXIt1X;tmMtV}R?%DO$33pDGG-e0(HfoDC-I?)o9}?&fyN&LE@=H?iPq9Ef8Oc>vj5 zGE(U5fdd~(O3s_Kq-l9xi(?RS`h#oVw;TF2Mjxb}pX`G=53^a0y~ho@)zfNY%+J7S zX-n4@S67c1@4yTrnj5689*BHFD%|vva&k|v#fe|Ja^>n(FXS?8j{hwn=OAB-o2LWW zEzf#r_wLaP(^OD z<2u4#l2cJpS-Xu}em&!Eu6*fB@@v~Ywg0%Mv-5Bx2?CI=}jk*#Pi<*7Qt zM<{f7PDGAyFXUynkcu#dnyyEJ5;ho2Ls7DvZhZQ;EPyYQK;z3xl(^GwZf-CK5Td59 zTQjHm#7nV6ud}F7=@AkvR#wS6dBej-EFYh;$+8#DVw>x5=+N@>$ohK7%PA<>Ai;sG zEIu3gP_8$?ef0F2PVM~^lZdkwmOSnK&Rh1;g%@cG8-L!DNkV^#2Y8Z0{ zBlMt#fECzbXlPhuu99USU!^yF7;`t{B>a$O^D9@I8MPvjG@OBHX3Qjefa# zd5t#PEekG@yLEnEc}DM+l9G~Ti6nvBN_mHK*(K`&-_FRGNBfS*zoEQ)tAyUi>)`cc zX|wTjSG@}_4L^Js@{!Jm?&wU%!>!v@hB*$U1-o70x=urVY0bc!*?W`K9SbU6kMh%x zId!B8HY1Drv-QL0eNA7#%t`tAbhve}l)P}>#V&_y3_EVbgBlT3l)2NGT7oySDw78U z$U}a=>I~ZGU z8yhddbpdobYSS)p^=c~-S`ry2^8?e^!@#hSoE(bfF#!RU#EjdY{jq4k1AeM2%DCa@ z$gQRzM+ZIzc~j&8KpdDTl6AZo_^zr-kuEXhI8`0jM&(VYYW zMS_4}m=>G`n(8bnE(#8cC&04+FRu-183Dafkaz}2nvHaYUzfDFjEp~j16Xbvt_A!8 zPY;jM^77DU&*WaK=7LlqoF?DFR0lDjp#fPXS067ghw*L?AaT4A*pTVXo7bD);f^9z zO^>ko_U+@Ce8E1zP%F@LJ&MR1NqxQ(+E8yWGHoO+{Vm|Ilz%{gnyM;4kUpL=03C!7 zQ4SqC1RW({h5!@4q9MJ4Sy9^js>|9jdGE=N9zCY`HVgh&VQ2cgg0xB*`gcK#B2Jv&cK z6OfdGOA__2U427CDyWpWsY=SqjY*28NFES&MpP%(BoIL(qAs6)t#CL{Y~3o)9r5JJ z3C9^D^e?FCn0$p}iEe**b|!2?rb2vk$NV0Q^(`ZriTTS5n?EBViUrjPMH(cq!ANwj zF5yXKAL6*fHPN1cFxZ+H0e}vM3ASf}f%5M*I1N#ap8dhbenhR=lR2+cR!%zkSB=o3 zcgH!la#^{j12w;v6z0wrT$mRpBBR1fQ+24p@?R~?%m9q?kfwhbySc9s(gl}x#Z#O? zd&8k?VQ=lmZ)s_11-hVej1gmK7$Xp&xNzaZ0H^(>cyt;jeyaywUNZVA@U8)JV0O3BTSO|$6WbYfkPyN2O)&hvMR`v?+UhFl)F-8>=d=4E3C9c|Bpr}EB zW#AIfvI@iJfGH(Rz2qT6dI>*a3HXfg7?R5>eog(m=vTV9&##&u(!-1Jwkiva-J$1% z#6_aDQT!Mg3Gcs-F+FzqL<$z9gyJpY0W-+S=aypxk$h{vjz(t!WmV(>3Tskbt3Y|| zOVnS2XCTo(dI9a%v82C99#D~Z zGYk1b)hz4JAG^REr7}+i*%YGU<28zlsIe|Z!W%ozWG~{m8gRIU*@@R6>^ls^EaG-H z2=WPIgNi)hw;t@Zmz!6G`5=WSZcJQG5$VB4U0F?1dNJwOlnY?^I*`8sqqOo@0nRta zM|NH~hwH@dZa4MIk3Xf*(kS<=-EU1u#}K?AlKZ@TgStobqlh8VdRitXj)_S7>j^Rk zSuR5LK*@@!ejW9L>e|k~%5Lek2wxugNHixXMKENW2v|ILF>sE89hh?Ri_(<=GEq@c zYh}m&W;tA%Xk0gxI39y~y3=NwpfIqIF?ut7QoG`T6YnSKNHnmE7eC^I5E^*45T6-( zU*b^ZQq-QUu4W=aw`s`pWGu`6RgceN%*^tqH+45WCPzboOAimSlQ!j9Jgw+SKtKj49GiL9zyO0DQ*3vJdyB4fiawsvovELhlOkMQ9*I3<7R5juTj94#Fiig5TbV zlR96X!H!C(`y}u&s9$$#Vgf*+2{;0crY*}56lm}E?dFgx@m+}C;5T^gfk|67F~ICq zb$-I=uoReWpbh)WQ{9*FQvuHv~~`>Ti*5TPNvq|;9W0wx<2H8@n?o~Z7Cf{~BpOdk_h!vOKz9-Ok6 zq@;WTo@!H!rWG0zl88z`oGGTqjN9L)Wfmt8ktkHMug_2QLmL*Mkd>`N$aHP%=dq1` z{{AOnc0rJA-_C2;I1D5U5u(DwW2r=+NqjZK?Lb6I@yrK57%lL-l9G~Mw!eGVh4gG5 zw&sKF2OwTlRaI369&N&MfE4^41rQ?b*zW>gP(L&_Vh9Zg_S2_Njg8sh<)973sECD4 zPs(Nnm54~>rhY(yCt|B;Z+Ig`JjV!?4?vma*fBg1#t=__K|%{i;d+Fke`i)jKyI!* zLSSGbd3c_Jsi`Tdl9pB-{!J9?A}6JT`PUgw+*=nz*||m}=UK^}TbF#1a-Sl#=r~Vo~?l|z59yhgj(_g0W>|Z5|tg!r0^lIzq#m2xeJGBTS%(ter zeHwq&8@CRvhpS=VZ;pTe)_?YnqJNp)e?x<0=f?b2+Y_0C?_W9a|KeNez8WGO99hiu z8GkA3=KL39$C+jx&))e9wEpkEb6oiPa-eNIBm{~{%n{)G%ZPFj_ZbL^7~ANxNU>VY z^*#yRy@L@n0}*Y)HUOk~&hW2@%mKB>#}5i3~2X!IcA zn^>@iU%kgI{{fyt3`z*vPe5cxayJ*~3Az%GQL}WN-JJr=503!Kva(`$?{FZyJYqaU zb#cBZj27Wg?g^o?%zP*900LBDhp!oU;o^ODt9^Mb_K11&Vr$Ke3F!B5!{5ArA zH}&{$1md&BKbrcYl=(T!b9yAwJ9{mG4T`L$rTEqiVFskc84GK;H z-x6FIu#2-X*ttQyK zB#2as)iW&tM6jQc* z7I&z2CWt?QKEM<6pg#FL8RTv(kV4{*B}Teg2)5B@o|l!MF=af__46F6&PdbAYv96&PgL=fjbXU2q1jGU5*JiYR4qUG^SxnoY!@Bgx&tu!Te$kSfrD#qy zGOqh0a6~Mc&z%}t9P)Ud)kZOW*xh{+Z2}7!ssgRECUwYI$#}K!3Iz*I%T^X5PwYXB z;nnL;ue4lDI25G@*rI48-8=J@8-UWCNn%oGA=E>(0eler4 zU#Yvnv%G8|$Nc#Dvk{$f|H}GHgZLigUIzxPUqa{5CYFc?iyFv(a!FORB)eyTrjIe%$0vjW(tju|wa;hycng9|1%Xjy$dGgQ{L@IB*H0 zrc=C_SBI3V;WX|sLH~2d0IISG1=4CLFh_#LS3cn307tIAGF8KXXn#Vzy1eykDn8v8 z*lJix^`AcJP4s@QrIp@ca%lsG*ueE{L7u>D<{Ga5cjq&^@QzIV%?@6N3oOekKoRoF z%F1~D9YzdsRJkClY8!7{)eq^4SI$b5R=x%Bgs6l0fdkQa@XL|GE0%nTatSYQYMe7c zwV@T^HmJW6quN@dpd59?Jsxr?^)0ADXpA6>&^oTuRP;@tec^di*Ylo>^MbXbUg0qX zNl(S+%7K5yOu^+bfQL*XMmf5NhT32RLkl{7;jX3Gfylrt$Ypq)3 zF~dl(aWG~)DMW_C9IY6O8EVB1Wo7okD~@c~$Z8*o+}hO(?BLgToD$m~ctzBM8l@NF zsUT1omUhh3Z0u=7g$@ye(gv6$@!oUFi`VSC9$*%rj@)Jtx6Fuah!8SjNYkhu#~_df z!sZf(j^c>GGQp?tK5#c_GNi;ujXT; zqKCNl6O~njf^FSeJw-hDK;lrwn>W&I!9|r0a}zOB*oZb@-Y8bQJUkr8TL3P?FEBAS z4u|IfP;~wtx!4e$_zQ?Xka1Qp4D$H#V=q_ZE0*b7wrnZ-)BT8GmQX360wB_wKz$2l zI@AmQ#K6|1#GlxHa-D!qpw*t34iM~DFgvs?E3P z8V1vY!Id7=?3J6Y-{uZ4sR0N=OWn(FrH7JU8}J$r!I(!B@`~tCeFBp1$K8K5r}d~X zhiolar@#I)!O^<2Qc^}xG340SfZ2vOwRwkeNz9CP4#s#k>{7POpcGxQ0+(A*N#Lk{^Tj=+rS2wf3v4(*W7b z8jPvnO)Xpns#0#;_(uWdB>!#u;a7_Fmaf*9qS1UEgGfW~6u~(6M$&!bE&+vh0iPo% z0b(ft0K}{}5dAJGmyU!74@ zQ95HpZzIADrC2^K^b3}LHD-kS`{N3l6It!StMSN0kqZ~9zI;Kv6e%I*zJ7P4FpqLZ z%i{uS!5!#U2^I{z|JVJh!yEQl*h93n9J49=cPGV$lPdeiNlgR<22KNofX`HgovCYX zerA0x@1@79dwza3SanE@tiZ5=?8!csWsU_x=t!ZwlG?TOq!U7r&SCm$%p$s1xAD3q zER*l;?XSidvrWF^RO>KK0-$3K91R)s!NZ3{M#7O&m3Y+KVabpwuusTVDR{~P9*<-o zwBb7(s$T1?K&(4<3pHkwYu2o+tg3|$4HXrM(o{)33SWHxvF;wMS#;K%a^c(3rThwa zhvxQ5a9WxM7GSiD%fgH?%SA{=lLB0j3~-FZ zU_p^3p#xIiLa71cfWZO}j7Efr#4TNVeH1PoA<1Be5OE7US4oieW(1T40(5bTYuApp zgCu-S9hb3KT~mXn@mLnT4ZOjp{mlC9ULG-jFLWKiC)Ck7He7CoetXfH%qlO1WIc_D z5JG2$nnaXvzb-eIfb3x*gj*(FeuRt<*t?l!!m;D+)PrMS7o`W%5p6^7ymc!ABOwxp z@Yq_{;u_jqNam2(A;>Oc%nA>?nv-9^BsFFh&8B``51fE>wTT7vXi_j~N>!dGm5Q%l z<#XQz!X}$oV2ey7zx#I!1@NJY%fWE_y0m?g!=b+#sD$yb z%Dvea=&JBSwrt({JyTzncnHIO0f9DnDtIak!0+7I?gf-afJX%0pS*m98xM61Yqypd z#HsAF7`XG};AcpfNGuT?nkBJQ25Ux99fSmO7LF|(V zpWukqRqvF9_zI%@P_27s8O=>f-^={F4*Ix85xbBIft`Hu6@SD%r!BN11467I$@qmkqU`axDJ&b0vhS zrX0`);P)rV>1k{4!n1tC!;Np=#FNkJ1%qjVvR6;)*bOjCs3@U4h6?X;7~8$<2l0%R ziIq1M|7b4ElTqHUn#qYGydq^p)5DCgHeRyxdbGw_leBm-?&SzpMb!Gv;jVu7`g#U9F&?R zQPZbJ2TzvVG%yIk?F|aj!Mwc>3oCKu>B zi7SS`-j?RB#PMK53l}_n2-O*UA`&9I{?S9EKXntSv7&m6nQE4g*zsB0SFPB0`8Z0f z&i(G1+JC7WERs7Jv1_)Az*ITMP_p{D1(cF}dzg@c!{VA9X=_6AF=ahTA2`DFbs%## zn}39#CIBpDpPdVIga zV#Vd2{kQJkJTB*T?fbthQ)FmSnZk;YMiC7vR>o3P8kBj?kVr{IwU*E_ONla+ltvLD zN|sqgnnb8j88TK_k$T?emA&@ful?Njv+n!Z&+{9uKlWaz>-t{b?|B~QaeO|X<8uTz z-(Ghp4(VV213ofkS-Tw&xTK~rEJ;!}_!d$|(?FU@zrmc8ylTGCpQePFj2kB?T>44x zld`LJ+Y}IR?!pDc6SQT+-mMqfaPLy--HJFm@>oIX!&j$0oewK6T8S&MT1qcqUTXuj z&}>$wKGe$Xk0JV$`SSbzh=)A|Ig+H6)CdK|jGP^@U zqUSbmDTx;!qHH{3+(K7t1xU(nrurjC{?jjtB1h^3+@MBX)uN^z=|rh^{_Y8tU2Itp^RkbHWDd(>x4($OWAQ1~pP&hYb@y z+r^Y9YR|@|g_^yU+1&Kty zMgNYu$&ROD4j(R~JYo<4R#di2OgGCtCClX80EXK$&@<5<}+YZ z_~c_K6kfhuGJk&8Zrwc52B4MkYx?GSHSk9?^&A5>-=>a6F-%45hZ1h<9bD)_*-$QfFF zNexjJ(#8-X%fr=oz8gXABEUJGIg%T(^4|7=)TMe5R5CCNLXDhoJ#7|5W_I+t-dOrS zMiT>PDojHOTt@Z1{Ou=(pQBaw2z#Wy=)>pF^u102|Fg})IDr-L0E&RdHX_R$iWRU& z>$uu`KPUSCJpFd0-K&0s1})}+2t^qgE*eA}0r$d;;+RS|I*(g@Z(Qza;BXQjD~lR3%z&{Vf*!Gi8RdeG{KNf}*{p@XMh&&^Hd-kJvD z@hYRt5ir-;SvA^8kt`!MZfNT-NtW%DQAP~`_o9*$E|Wcam}!cA#9AlDhTd9WDw8(D zWcmFeFUuYY135)Sxavv5=3T=vWdWtxmd=>HHsC@J`M)nL%+SzqJfFUB;e(PAD*ITl zs5I@+r-rnYe!KAQ;%ZM%e6F@`+a_;nv41F{sk1{y8B1=C!GZ!i)^C&~YR`8U34dgu zGAxiwz}hMNdfugU-~@^ds#0v-X2ycpLYnrXxon%EbuPt@gYN{ z!^#jxp^Yc?n(cwup%p{TqihYu0eA6=frja9k*T<)86ii)NCE#z3Y9NpAtB4`0pN*dr2iNnl%k}obgSndmf@zrztDs`KvUCF zD-_3!Mhw9Sv4|J7XQf*mc*_Cu^y!f<+uS04aMmWY6_ED5ElE`$ zKHRR?tsau-Y%uQtIWMhztzZyEUtpSi?Lm_!W%HQ?QB7lG0f=N3Q3k@MeSze}NfRxS zw6lnWUAU#v109;b!AbC}Is5W>KOzcfZG7JiVV0ufd1m?kUw-)=T`8U> zHL}A;j`X1l$nUw9I)R|Ae3g)!(73s^e*-8*_wL;%&QBcrJY99im#<$lsgUV8L^FBz zbYA%W{SP=OSbsQhW+23_j45@Io4VTB?hjz_rS}pCdx-Afi6qHd!6U|p+*-gR?P3b! zq>|Z(ykPX|Fq47yz1j0PLvLvvKnq4Jm>{K5819j+GFqzYXlQEUw$7p&{%E2f;uf_5 zv|My*-~K!Xh~{bY;sPsRCQN0Ps83zU_hYU?guAWfE4_vD=L_Q-bQ5IAddkX?WF`a! zJCkc@<{mzro~B}KJkxvZ*%WGi8D*1ibyF)%sp`NZ;K**t9#|BYUI*U8Yev|yj*^~g zRJ-g_BwBW#%6A2|ZjYKE%N5P~zyPZrUjpO=qRXOyT8*}8?6hGYtIZSzrhKx?^5rnn zn>LZw*~y!m9r&TmbP-4okblw~2d=^CY^1Aunn;6=auqq0ZJZ4xjcV>6Iz>rd(31bLyBUp`{x$OTE)hI_!RQ%2o1S6q%fb;re|kmec=!o(^UJp z%uiSny|tFv{WYIG{w66;G2Kp0l0J;kL(+*hF|I=i;ms=j&dr-ESFO5r=Z<~w#PA*v zi9>Qn(2-+jE>^{2XS)-iyXkvJOaww4j(y)?4M~))#CdW-s|j2m@E`6XhMcEl0{i#v zQ|;t|1spc4L?H@K%Iyt6 zUR;yMy6)K9PfM(~N0ZP2<~2G?$X?Oq_TV z%~d0A>6H#}r(+E+C^z;}A-e8feD9~vyFNCr4MiREmi|?`k2hS&%@uvLbly!*UwhJR z&6s)1mqXEw(nBNwcS#)*)SfI9V@(a^tJHJDU-upz*H81dNDhhJwTUZ9o|FR+3)Cno zqzyha|HzDfq1mW7+joj!NpS*vw%Gpu{mR|TOj8xZYd(MGRQf_LgJrHUa*?_^_sS@| z@W8GPAe>_Xh>8GU6W$^A=%N5ospBI8OncJ2p3Xp++(Y~J#rnRNL}=QWcq5~&@A%p@ zkkU3Tc;bc%wwrcECCFn~+nB1m@#D7T`(NBOBEHx|{$@A}9vZQ|G646%*%uKh2!9bN z)2QA)dV&#+BSWXPv^va<4-Iudcu$)nBG{}v`aIb??UY4N;I9uK07IDHl9pnw-)2GI zdYcB4zr+VmdKNC-_#V&i^d{vax4@tNhRnt`Z$tvQ1dO9(OgzMct)5G zmL)Vm$DSifhYX%N{#$vA(bGw?usjagw@-90U-NazB6T0U{Y}=~&Hj>*ARJ$(v2JcONegi>zLs_x~OhEq(mgmMzEhMUT`2Wv{G!?@T z*uA9G)4Weq1DT8QR1o=S!8jD#bsZ@GXd-f45bEfT_fg~uXBYfLh7CJKPSI`MQ#|mY zPO%3&i9ThC@g!Jf{JKdgotG>b>@p*H;P7yi@8Lt{n%dj%J$(2uNj-@>%ud6%Zy>R8 z&hZf5tP3o0z12gr$%oWkW`h_-?t3e^*{)qh!tYXc(O9(P?nd59b_Krzz`5_`ZHYUn zk}nM~O{`Jam<#+YcXGkPh0!rFD4HJ@7Yi?B!d6z6d3`XLXIOYRAK^oC39)DzNZLmL zTMxA$cvnt?Qsr%85pFjqQgTWSwC*XzKH`ydJ|!` zd8ji_&bx+_2t@`9weZ@tX!2Lmaz8YA{KB_y-=dElSDXVo*Vx!d{=)Vmb(@Vr$;p!+ zxU&Zj94IaM%71huFVmP-{_52iX#achcA^iEO3RT3{kJ!imX;RswYy`Afr9Z(?ra_& z#f&nk0$$d(4Yl4ZCeuJ3%UP5JTotmZoG{BCsk zyZa1|d`Jw6Vi6#KA*d=m$?rjT*~_Blnmb<=IuD?p3gyvR*V%Dn$@jN*m!7x-^^az} zg{G*TzDXrC8#YWWz{=O^9!Tj%InI-;k&|2c8@{@iK!^B17@!#&9|kMMYJu3reGn1` zve%T8C+Q*flh5`N2M0+!BR6c3Igc1|1_YdyWe8ywX){a`;X&vYR$`=}kO4=3h#hd#nCk}=1HR}eOW!x&B;9_eG9`yJ8RZGx3qN}N*r9>OriSBWS@aW2-~7&BR<#r zCw|^j+9JXV%7X5Hq>>)Jg;*y*?zwx3&-8$C`-i$B}{n>7Sub9rr=K3OVazyGGH`5!tT(S; z6Gu)z)R#EVV`+gyus4c5e&R>va?1VJEE&}-4fF5$cMx;qcip1o{J1}rTvVXaSH=x- zvAiPwt|0rn-U~=u`j4vH_mc*w!&VYiE%fACyJ0DX z8X7OS?;tTUQalPPC;9m`AzGTee`qxOj+67A$G&L!@9I3OY#@n^a$-G$Rs;jI*v4AT zg&`4QdnhVAJ|?%+DEiw)@8$5yT987~QDve#=aMAO)cQt1)2`+lJX(`t8ybwlJgu`` zoJ}Rg2Hd^Ym)M__zdvUu5|jY}ETIhy(F3E3S~qdv9t!W0`}bd{>i+G0j9DejUK~TA zBHWR|&nW*aFwCRy0CYItspEGgpw&(yE+@{N!=pw~Jdq=mB8db-piY7=Cn5mw?LYnx zUqEZWMHStN@7{?yF$xM|o(&d4Dj4vS;*oT$MlQ z=;~^eM7(eMu4cUSkgIW$`G6o5IcTK`<<6RMyoij{1}{M1B7JXWWighB^7!6N{UH?1;7;MeC^bD9bko1V{x4)-e|Qu{04@c>x?N znVC(D2#c*AGD-XUN{@}^lxM&MboED0TxLA%+qKJz6PVi}Y}L?}i1Y5B?kr>)XtMAq zEBE|UDu#G*ovd0GQ;!;m5GQNhs`xF6*~RMdPv6y1B}ix;ugccpv% z(pQ@!U6eRjJGXD&#k70Ro-DAVQjIM#+k-}4`3yDXh|LP2fO2tmMtb$|$j+&on;ny^ z`h^^5b%O&B?-vduJ-3RR9JqKOwpT`=y`zt@7#K;>fgxW3b+@%2TsjG+;jN)BPArpt zy!p|fJ>~k$IFOqMWkn#^VhSc8oX&dnV!%cv(#)*p$Lin7vhGnLismE12Q0^f1wzGe z&)xb8jKVhZ=7whSVq9cJPWg~w!@#lHF*11d>Zt}yh&YQoC7QDgyXDux5(Z|_2YbRc zU+Ri6dh{hucLMa%Ide{s-@m*|oeK`mll%inU0q$B@l_;g=g*x}^=8VgA33E+XSu#%UDD=4TPP_QMJWP~d$HE@LDMiQx2@L)2c)46lm($7N3Vyc z=Q|PrGOLhk=aX^2R;!w%nhUX;-mqa^Xr_BCY?zW{{CA_nqc*sbsS2V$>QZQBa;ks~bYIgUn{;<*gnkIl(IFxL?yKJk6Y;J~A` z&Q-IelV)WY4jWcL58S%5OU-?&uJX@qaOz-L=TB?LkP{yFp9%1B_j zd*L?6b{Nv#agi=~sU=QVVl(F<#6ECH1-U3eHmYBXI(v{C0FhUpWhJVY$RLIrJf@+O z@O?0hBNKsJ@loxzmXq7~2aUUu_wdps{|OdHj;e8cIEjfz7zL^$lV#ii=^BfT7r_lO zB5OFjuX=#KZ^JqENu84;2D=mvbW|0R1xfpjn?o##D?M-zV=Q~^x4^7s6-$7^?Ksjq z9zM_0PV|F+qVhucGBM0L1@Q#|5t$4wH}~(|8&3pOaBr=p#V9u z)-P4zuFT0o+j@t}E$+c&T2`U0zI?0t-6`r+iwG4sg@Ouq3<8IDRlXu$m=Ru zZ{N0U;>rl_na@fxn_NyYSVX=e-OM61av!Tu`*7)e*#Rmlu@5G*B7r&C2s5L`cVxRL zUxhTGtp=GKon`7tt9fQ(--y0J+-X|244J~tjz(KorPo@o{Bgkg`DZl1w+v>zqB3<%7#`@ z;0wZi5J?bq3;hmOUXRUN1Q)N85hl$6a-=8@aTG%dr129cD3F!M*d(!(LAkx*P+AzH z`;<`z!i={mWutOFPeO;ti6&<{F=3`W%`@WZOTk#AJc_LR$u0VtJ0fsIPMLyo0W=1o zE4ZSJveOyAN5x?XC<^^PIKRZGflbn;GUGsQ|g)V!5r zLmCHn3Z6JX?f1wW;(!#+6OFVq>v2Y*Wqk;4Qe@z;@L@K4OGdfzb7oVeV?FCL%T?Vj z{-{kP0J&)(-$&u@GxnFDyDdjYuh)`Kcugk0Q7&z9@ZiI-*J29eqGHIA&}0jUiENBB zpKh7G7cTg)VoBYLa)ScXwOk|VDDZEZm>IdnpN+L?{laDH@{+rL<3@P5^gb4#qVJ1! zGV6A0N_2^2}bc}o(rfG$CGx~Vx z)~&%B&z|Zn`kNL&0}gO;*4L0NO#^qTx~T)%6Y1$uSDP}V9>5S3l$6R2%>2!WkM|6{ zd=E6lB#=f%5;Lg&x(P>8rW%%0dVy{?LfFZkYZhgs+qHA_vx8(-zRE*nl!RMfFqT9) z(~|IKy+MIwlmYgR*!U7F;DZ?HK01ww@P~XS=OjJ5mA!BAxxv*3M)}Q(_QVB<+cY>74{BOJ$2Od85_OnF5~ix$ zZU;FM0QX~#P=w4tsW?K=tV?WWx6`6p%AAqN$hmLdi~>^4&(AL{SxbQma?emvpNgA5 z4*mu7MvQV|j|ka9TH0WTiy*nA4@VclQczgCKe^l*z=e3Kc-I5!$I`-rfxj0S+O=do zhW*#MV+4HH6)VJe^l>VP4CVt}Od(f2#TUq**F$qe^yJ=c+qPA{O6-c> zXe90D>}|4c+QP*hNybEracRc%4{?C$)COw0r7G>D-&8pu(W>)TjXPq-=A7SuMF;gV zi8GQ&TK5vx>c+Mn1so5RUszfU-g0wyM`iVmv9!^bQSuy%jusyg{ec)DT<@iT=%qiq z;7tQ*v9EhqHoN{27sb#R3u%6T{l*PMaj=3IF!?h2y0zywP+D=i(zC(odgl(uuhyVJ zHwp{IjIFFG9tNwP2Gq&XBi9vODW=sBbaqrGM2`G1E~yU-r&mv0W+4^svmALkf& zca__>QI1r^W+ZtnDgx4_X2l*d z-q-JXh8`bd`TWTf9Vku& z5QAgXCO&7*0J|4djfYOY3f(=2RY(tDa1@VdDkl$a0u z*U~zd$|YEdIKO2=v^4wmKQi{$G0Pb3N$o3Lz^c*Hjx^`R|FbIL-&k<`@4wXox3n3> zI?}6_I0yWzF6ys!q-}HWEwMT(Pz`Q#Y1FF4`5wK0HPNYi99=C}c_W9pySjoS$nEUVE+e6gnYcGJRL5vCBilYgc2q-37gno!n%E7$0 z1@y}kC#hHF70FBQe)No0Q&uL<&NSitkU>=7Jb(V4y?d#rd9A6bFhf5=j-u{BTmNY` z1Z9Co*XpL?(t|g~*}d~qYU;G1ze zVbR9v9v_eG4PLe|_KB&vnnK9P*l}ua(>BN^bT|^xKWE5+vcAt(J=e>eyK1Fe)urnC z;+1zkAE`ARfRGt1BCxATK znDIKS(6-#Vicujq591?0z;(CEU=tHx_z_ZWCY<2EgL$P)hYnoIv6suKiExz$U@~0y z$9vd3(p%{GJVKWsm&isJ%*BvZ5DT8~?x3K3bnb(&&xDiq+Hs2tl>&-EiX#`_QK}sy z%sY_f;B7XvU%w-X?>+-wQF?+25pky&eFy+mq8=0@61FaaeBj^k^2GcfjOQqdFY4}I zy3X(SO}6vxRgiQ_fAy^aw)ClCr4$+*d=x_@@AX7g1lvPUtFj_eRy5}Z_9@l=Q9uR4 zYXeA^IvQwz87|997!D3$Y%v=tsD;c2vOJMi^foL!&1@AATJ$`&GEZKC~e`n^Y(CI>PUlJI%qZZ)BA2 z*VGuZNQ~;FDv)j8p1~K`s1f|J+&sa*LB+C_67#1lwCuGE0LX&_(D2}7%)Pz5UVi+7 z=71NufiJ*+bj-wP%nDK(k4XG$9_Yt1m8D>IªL3z%nE1e{gt`GeNtZ_eG?bqgq zojJ#SKH=Jp3qBj}7O60AdzGG<@#00P$1U3eubWRW@-wz2EQ=wrpCvSIL(tgYN@HAPRM8Z zU=}wkc_-0k$BtQ8K>({)>S9=|-LD^x|LL$eC=#Y76!CBnTs#1a10WYYUJh^L5|_-6 zW?&GuzCe|be)^(~gWZ6)XF6+t{J3$N(@tE=IQj6b3(D#I?bXEiZ3nG(!+M$m&JjL=7H^vtooLtOxZap^2f_y%vxEf19G@!|O&H-}F z|Kq81SD6e0^s_4*!g1!Y0%LUXWVkh5b%-19(rb5^M;ns*shEZMs4Xj*_L7Hd8c0oc z>#T!J9wZud0P0cZvh28bSPJ+1+dTLP;}KvU4b>f5*4l^Qh=8gArihG4I1rL^f+HGvywym z3p3XC%9toVNO?uGP`n(TGI!_sAV6hHS27k<+TNnkXFqnL)0i-u=ggc_#$P_=@lU-*ETwoE?OYH1&z&iXmS=_me4`chXHUHlvdr6_)AAkP|=<*ZBS{3QGsa4(>{9RE7U zTzy?E*XB(^q!NIMOpmHwtZqtM0|)n2t8iNmSGtO7;wwo$+sR|qs*{0EIoMb*dMjwF ze^&L3eFMY6P}?bojc{3-m(y^`+$dzYOCkgIV(b%yEp*qefH`Fd86o3YU8yb)?|lg# zD>L`2`_2u6T#Q;s3YFOO$HQcclBO45U#8>T(%&ou`?II_-}P5(svXrd3`tn+{vT<{ z(Dj0r+bD-XMXO1LOJ$zcbpkIINo#3<;EWc1Yv_1Rr?jB}Vs6uqfn?#&Bbx^5`I%QD zD#jTXWkcxV)xq(JH;gOxcZxBPWo~h_O~~Oi`{sx7i{f-DdIDwd9zDcRDc%@ELP1*# z6q|X$WZL6$n}@5k{@PKWdJp)Q{N4O9Zc)Y`%KT1;&gXFCoB=5m={8q*eMfIvZ5?Wh zllM)sv`oDZuw`i$WPa!M+E`FAnkb$l{wb{f*m=FlIGMaeM+Sgs#BAATUi0bG2v;T@ zF3fw4_=c&c!kGP;zFobGxn0exq0n{|5gRveW|+m(gyf4ofpIxr1Uh%mOL}6T2>RAW z3B&YYIaA-3%Wh@RQ`F7$=Cakn&%hbgLYBfFR-GDD(OP@bmhIb9@AuQzE+IT@k=F{4 z1L}XncnMZEv$yH-d%!=e0RlYm2}n-Sw1Hzn@uAP@H>UR2VHpO1#lmN^1 zw}*!K#@9T&Nid&ZI{uD(4xM+HAU&v>PRJZe@7Ra3j}w|NaU+)~6i;i`&<^%!G2I561p$;3d2V0uH^N;=}*H29?tIqH( zLF_f-N1uNE`2IbpBxqcEO zoQHI;_?1*+S#rh*-0N#U!KE^butT5>fKw+N)bth){ja`2r&2? z7vGun@6p5Uchyi;-3PRIAQC&hGZi)m6_1thJOTgkl4a;C(U9G1H)F=@iVFEYeK>FY z3amwES3?)3lok+Tc*7${`f*i6%<#P?Nmr*DpSBdYZrg8oB(QtHtq5txn9qAfb}jG> zJ#c_#<>lDU+9zPS7$AqesZC|N`il-03V)GHe4Tf(}LaxZeyeJ>VV|VFO${)5u5s#uhmd7YxcEmdRW%T zwb?wblzx)cl?NYtDzzW(*VsU6h#a>#ZYt`wqvx}mf48bXFmoV@YQg!VXO`VR@q{JE zRPO3b8Xyq!hj@_v@v>6IM{;!HfT*sfv2n4hEctgh|*j*|TU$HB5-=;-D%+LNfuNsE#;maI|Rn$q_P4LiKbcmKH3HXP!P{1_JgJ<$=o>b!Y${M#+k zAFxup@k%RV?|G6tc_Ym1@%Qp zBfDVQ+N@+(bon%N(D_}72u+W!R!vpa`^2jL@>ZS9g6K-*Q^R5T!o#cIzAXjC2MQrV zIr(*we#tBhemw}`!#QMm0R+%nHd24u@by&`$J|Ha;2{j}>*{ju+}W{n=O~UL*Z`th z&UECJhSIY{D0w-OdC^aR0ucRmP_O?*HApl(b<#g&Vh{)QW#U?UWg}x_&RYEU_i%i} zf%fTRLKEV$$x`%gv;hwz&^|#Vh4u*wrVPAx+P{L41MjdfQ>Wy@iU9V{PA!CCXdu$I zwuKZhMBdN1?S%Ej3wS%UFW?4bDf1esL*axdNq}C3QF4GBhk)V16#$*|J7T%5Xo}aM z3kWCG8Sbf0C+7UJy>+ngiY5fR+>Q917WazkYW092-8;YxBd9JAf}BYIXY^n(PxH&C zXsd_rx{^W_dg#wqz9$EPqnK7;bFAPX%@2E}8SQV|qs}@dF>iCyLWP$16@J(eZ)Iys z-klB(3>-yL{u=s@E8xiWeeny(HK%rR#;1~Dxkmk6aVG{Z;mZshxQN;knkD8sd92^d z=+KJX=5mZwz?fxAeZ{~aOXaKJ!vS*C_j?LZWIA}Xv-y%1MlVx5^()Rjr;-#}B){G3s#o*DGt7+%X-EYp%f7{+a zKB|9Ho3Y!k^^3BLWWtN4rm$~AVaq+0GfgBNWe0RNwrccoxTSg&U2ROpKzzJTICCbe z3LV;(hJ`HV067kkQLC#gC@a!Wk{oDf)Y;(n`lfZT7^Omes&_apvbY+&Kgpok&UM+Y zQoG$^R0U61S^^FjIFRO{g?zbp8J}m>S8s#jZm(=nJ5*!ZSQQw|v(9&giEO}(^v#Uo7$OIc9P~-~CQ5Z&vpwi#YYci9>bHyk~*!3+J>_viqIp-$TulRB(x!C<90ubgfJQ z*5l8@YuLL*3i%BSP#<+cR37@_G!Q6~#hQ;Fg)erJLBo&7Wh5uYhjffr3)#{_Nunm( zU(HIfu`IT|Vr_rX(T2zXV>rMZcV=E>XD1}K%*e>Vz4bKqI$Xo%S@iwf&dtqTm(3zl zF-r*?#C~lH$Irw+K~UO5R5QGmNM%B}>?Nz34QWx3pC1D#Gw-U*)RKN?`TY+!WAd_z zzgruNkcG`h!An59tomcVBwNzKDktw>3e#3BGRRSgY!(--dNnL?^YlL&E=NVT^Y z=Grr89tB{f>aW?$a$#M_DqFnMI~nbt0`z6pJmYba8DTm|^rML|QL{vPBAjTwGuAeo zs?id(iYQ3^;R1EeN86`Zf(Tu?eEA|zn-DG>Rw!?I8e;3o%>xoauUxeqjOGGqBX0Yo z)#$R!f-t3L72}5dNU%U`+!C6h;Nlu)Y_m@QhN1zFQdK?mW_tyzy$mHrZ^NV2WgN@x z+q5Yd>*)#aC4P@42dddS7_h?MJM9ja<}a6;#$2*Kh-^VX==|$C80)6`Tt6ix^Zi!C z=nrP2AT5E~9gf#Nud*^fN=V}EX=fT!Gv#D6Z|?jBKbSV<07(jqBi?=8WDQYqL|6YPSrG9 zBnF#bbJ`he*KhJ(6NlCki_4!B>^ z&t2Z7XHO?9E33SxNrPYK-I2O9T?!) zY0V#D+e#_5n2bWf6ZHfybIwiae~kXH?|184M4SJJZ0KA2A2SwnR*i_tJ4bv#LifC? z3K;B@*kEy! zez7;7J0MrX%!UBT=A?6e_3G73-I{*d`N!_v@1I(nJ0UGwdfg3vt&~Du0-7SaDw57v z&(5BdTuiShuRfqCOs-;r_rXWP;8ajl%!QKXmgx}WKvd|OGM)2|5F7X38E9sMVvC}d zbAedRse2N*hiUPbWwrN}VEnlb9)R3-&yqh`XfrFx8TCgXO5+OygTQ@`$ zrwhNRpB%C}NChR+dmtRCt{tS9mQh3!ygU)m4yBaScj2i(&9i*r|MoU$shu1mOXxO)1*5v4@3jBy*|XF3QM!W@y`;k<(dyFfurQ|?GnTLSk&HG# z0yH=K2~V8ii1$u|FQTzKGecJ7DlguYm)`}M%u;J}LcNuez1gHmr(*US-4n3bWKu^Y zK?leQF@53~tJnQ8t6}Y9U$fml3Vs%00uNY9?(hr|>7g zjLG;5iR}0&k@x|$s3!bju90I(5{ZZjwfG=0Q-y{^+(8y`rolo~mf6Sxrk(xxO{33< z-W?^w&CqdbZq{?Yd+Ce+m4C=hqx!dKyHxFmP6^XAY_0c_kt;FVjh%qzigQ)!N-3aq zT5AfckUvNPi`tgPMn?9@vs`q0YPto$m6X&ypmX`wt+pQ*?iZ+NU` z7W(p#Y5O+*=LzYk-x3omt=0W!?`~0^nbU2TZz9C<{Az*Xm1o8;uWKW}**~fVxUQ4P zFe8384WuSwtR_ViT;+OX<F zt0a(%N|8wU&@AXkqZo1YW9YJinC)^;iDilpKQliAH%_jwy~6C@HaZH=ee>v^n5fn} zxsT9llpYTL20!e`s(A85m^V^`gxf#L$<3wY$dJ2S_XE9jySTL1d$60Q3;Jg%c?= z(H1~#&Y}sIp0a-eb>U7^P3=VePwfb!P0{=YsOB;6PcId`LUsuAd>md#SHxdVJeOt< zkUo}Fr52m*C^VCnR5A4d2$PsbtFKu?(Nf)>%_0ou!en`E*7#Q-RTz!|9dVG&&b!Hb6H}d65ODIv0bI&q7{D){GEQMndI4$+Q&L!?12OJj|WI%`_28@ z9yrM7*rBwz^OH^}M(Ig>?5~YlC66e~Zrkwh-quh5{kh5i)4A)v747^>`0D?`MDIVj znTO_kbd%WrN}(rCz)^lC!-uD$uVFc&T18X_tsSqM0X9x9HVXtz722S3G0|>0gHqJI?1T-}GhW5wzoU!c58I3cR zy^9a|JmIcEww#jE4Bri~GPnA^*b)u@QUVEuA6cAF(n}Bf5k8Of?)6z}rPyX=FCFiP zJ6b$a9KNWo&1=OLZRNEM47?DUGB8%?OS}L@2!)76n!c7bVSgI^XnaBu&4FcjZ^Bx{ z#=Zbaqiq4kUz-LRi|5P{4BfEd3Q;q@@Diy^2w>7I&t}@bFPWTg%KJZ%Fo~s`>6Y+ zZ0q^sT`wIs^AGCLVH2l2osop^Kahq7sZ>@~(F=;6_eIj#(xE-KyPX0C!O=zN0vcgo<=7WwIK#OMSik&abRv2XTmaN-MpzPWTRRpbm-6{jV1?d)KZhM)>~e_ z4r>+@Rcw!@t(Ypk?9F!^cLaU5Bxa1Ly`Y?@(3E-P$Pu#IZ`HG#FjH;cuHE1Vm$GIp z?tHL7de7gR|Ng>dWSjRBtoHC7?woAXHuw#>CUh?iX<(Bv)aG)RuUvWd*t6{8r%&hw zOqjp$=r!jyX;QEaU!|Qg-*mBIF0!d&qB$6?eZ8kuG=CYocP|-82Jp@~#Jp-D=Fv7E zUluIJX4Etgz%Sg1h$f@FZvFa$lZIFZ9KY>Z6!vw@bBzhNzG8E-j)aD@=Iht5;Zs7R z)x$`_<|6I~6+0AH8@ym)@~O>tmUJGjD%)~x^qjggy<4swS9Bt;*NN4wl&pkuqMc9) zEif67LWY@ZRLjf=NNHV{U=r%&rD2h?DMS1p?#TP9GgqQLyJN4679(%;i?TW+?WL;^ zGaKr)HQhl*ha3wL3X^V{c*MK`8l29ai2-HGE;|$t1(s@5*(;(6or=~3Xez{45a$P>rK1CyP{hIUh#yLKy zejT~GWK74b%aRo%$G^Mr3%6DvBd?W)aZd>q(KbcNv&-gPXgHflo}WFNAp%IukZYHb z{BpZl3>G+HY~H;2_c_8?i-4gz>c%u#WM2#=AXU1+VvQ*qQL!+$w~|sLgLs!iGa%b% zQAky3{jd+GlyW=eM4^>F%6)P*xuk-kA`7i(-JPTeb^8M$8F%^^9wSP)cPLl5_TroV z5PygEt&xEooX-wp)V$j#Wf`U(J< zUVCR`&8HHt=4(|a4!c14Q#cH0GPHC^R8{vmXzV`OC-&#G?w9&@jPi`0FG<#D-;-xP z;Zlo*wRLqCQ>Gxtx;Sp%!O+k_0nS{3!3|na7jr)dP)O&~LHbeTSZFT?{LZ0;Xs_1H zrC&l$ZW3PB-Da;_MLPieGTA9y#=X1`P2)F^orRAYzicSQAT3}8vuB#y^?J*B!Jdxh z>zN11b7;7w4*SO^-u{}T@n-i7b+-CKYsm8Z27Ro5Ng>s4FN}icpZo?$|8#E4^{C_6 z!j+i@LJ5nA9Z?{9(%T}vL#03?14XFOnac^R#BX)?rn}BeU#mla7K#(v`s=lCRD#j| zrut?@ctWbDUGO=c@Un`ksz$m4kZ&n?JNBM=Qsd8^(nZIARHtpFJ2$mR?=o1r4qLPh zzKs=+%&ISSOSZnD!o?Zr!_}?}d+!ShO5s-FG~w77eg%I8>GVtLlcfZq zwwiyN&~xU=BZ;p)KHW8V6WQk4T*=uVqdY6;Ns`C@`Be9WzBXA|?q5IVw`8Sxd(_XxKqB*EgN0`g1L`o-0X~=caFL(U4cTjl**BE85o`JUjYZifWZzPUV9j znh{1wvpaSlQqHj-;&4(8@M|UlWT?7MotpGE#IZ0@W#nK7GkNkIrrx8h%540Y9Hy6r z(%5d+;tRHDM*#_H;P*z3`dB#C@ZekitG>P-)$|J*9+6LR?oTp4bLO#h1)o|6tam3T zr-O{l``TLdgpM;$+VVFen)=@RdocZ}LwU%rc^7yRqr$>a5q#SAw_bw})0$`S{a+GG z{8KV-wMRi-p27^Q2mr9h_UkphM1E?|WZn=l<7{`b>S2;t*`4cvQT!*2M#w(ek_1Po zOP78DP*?Z~YiE7{y{R07Y9QeVRhNI(81Yjb85F;u{tD%E){?yk4y+TFNMkXM2c@;M z<;|?T#D&B@`SSVQJ28unQZam1vUb9LqxEBCbnv%Pi>G{#sF4F(wz^`VuWx~}Rb~~z z5r{Rk$fA=z+CbpU`gnB|DiJ}_pR2vqVzcVk!6DpzS`OMPkKfq`hl?2=A&@|}U4#N< z=|vRo%r9}2VWD<9IN2fPXGShG%wX^(RA#D z3EA)LbZ`c4LJ1|Rce<_k#VRqMQkMjo13%PgG1wJ!4Lh25KZ(CLNQid+5Z zTYrY=(likBy{(0#j}=%RGOFjXk((2n-XJ0-^%F*i6y%&RkGM!Y;*6k!qa8pON^q-E z9!twQ2e@dO<7w?heoF2eZBG;B(qZ??#r@tD+EY_Q1CNDc^=s**D-c)`&>LtDc+Q*t+HaSr( zlI(rTFSSs<%DeSe((uz+3u=tGtA<+?Z1hlAi|u>WKp`3+8r!1ZzTte4N_aV(cE<5I zBE}{n6dLWqa2iEiaeDVgT0mQfV3FGi3r*`8GjNo_9m?RwtB+p@hSAbC1Z;c_l$D<_ zKFZs|W7fHqKg;OQ09_NlB(>y*pn0tNEfSk!s|6OeGIOCLJA2>ki}vs_S*uNFMzjcD zDhOi?p+@j2bf6_Uo*Fo6lpo`OcE;VLnw(a^%{rCnf09>;l07--Q zB1Z>i>mRUBf7Ow6{n(9M8KX=_Xlv&(o){xIur|CIfD`4k<#Dq! z8`-Peov-Y<5?^1gb&_kon1EA&r3}M02Ko6l+4O26 z<1r09abk#g_N$;Rw#*W(jPtgtn3b*neDK=%`fI0Yq8R*91+_O?a9-1(m&ft^CBwT5 z)mrK#>T3f1MmdtjJ!K9ycWRDs>Y4@yRsV)YWvcJX#1r$>Hm8Th$&pp(ue+dP1|Pw? zI_=!_Dj_-EHeQrIaNT>mjUJx)wyde~Gs+pvO*U@YwAXJYcOxMd)&Fd1oQRLIi9?)3 zc?{dJo#a7?h_ST(Ic_^Pp1#yXteN)8tR0H^^+YJn-ORfDNl34krs5F+;F?O|$W06F zOoPEMa!6tdk;Eg`o(qizz(43S^-18O~#LM zOjKTXcpbJQ=?u&85mhnuGC~~+GIJ-VFuA83s~y|5^Gei%?N{9zpVB7+KL~T+)o}$i zio{EIU;szWQy6M`zSCOVz6v$E5O!dVBp?n`85|0K{q+a0(DZ39Ilyl_+(iQ-LI7Pd z*Sv_>#t0fYZ?`s$>U#9txj$w%eJO^0F;99WvNf{HNi!8#u!T-Wv>1*~5_Zg#?OBH@ zg{Do;hV8~Qj{u*>^@EEG2o<6qIlx-h07@%F(O1D+NU2Z)s5NaN-ZG3ea~2>xaTl-` z3L^q|m~Tu#_WYt<`w5alFz?VxI*c3yp5T5{wxS~tjak4jG@7)2$(eTI(x1F Frequencies of one variable

To only show and quickly review the content of one variable, you can just select this variable in various ways. Let’s say we want to get the frequencies of the gender variable of the septic_patients dataset:

- +
septic_patients %>% freq(gender)

Frequency table of gender

@@ -225,21 +225,21 @@ Frequencies of more than one variable

Multiple variables will be pasted into one variable to review individual cases, keeping a univariate frequency table.

For illustration, we could add some more variables to the septic_patients dataset to learn about bacterial properties:

- +
my_patients <- septic_patients %>% left_join_microorganisms()
+# Joining, by = "mo"

Now all variables of the microorganisms dataset have been joined to the septic_patients dataset. The microorganisms dataset consists of the following variables:

- +
colnames(microorganisms)
+#  [1] "mo"         "tsn"        "genus"      "species"    "subspecies"
+#  [6] "fullname"   "family"     "order"      "class"      "phylum"    
+# [11] "subkingdom" "kingdom"    "gramstain"  "prevalence" "ref"

If we compare the dimensions between the old and new dataset, we can see that these 14 variables were added:

-
dim(septic_patients)
-# [1] 2000   49
-dim(my_patients)
-# [1] 2000   63
+
dim(septic_patients)
+# [1] 2000   49
+dim(my_patients)
+# [1] 2000   63

So now the genus and species variables are available. A frequency table of these combined variables can be created like this:

-
my_patients %>%
-  freq(genus, species, nmax = 15)
+
my_patients %>%
+  freq(genus, species, nmax = 15)

Frequency table of genus and species

@@ -380,10 +380,10 @@ Frequencies of numeric values

Frequency tables can be created of any input.

In case of numeric values (like integers, doubles, etc.) additional descriptive statistics will be calculated and shown into the header:

- +
# # get age distribution of unique patients
+septic_patients %>% 
+  distinct(patient_id, .keep_all = TRUE) %>% 
+  freq(age, nmax = 5, header = TRUE)

Frequency table of age
Class: numeric
Length: 981 (of which NA: 0 = 0.00%)
@@ -461,8 +461,8 @@ Outliers: 15 (unique count: 12)

Frequencies of factors

To sort frequencies of factors on factor level instead of item count, use the sort.count parameter.

sort.count is TRUE by default. Compare this default behaviour…

- +
septic_patients %>%
+  freq(hospital_id)

Frequency table of hospital_id

@@ -509,8 +509,8 @@ Outliers: 15 (unique count: 12)

… with this, where items are now sorted on count:

-
septic_patients %>%
-  freq(hospital_id, sort.count = FALSE)
+
septic_patients %>%
+  freq(hospital_id, sort.count = FALSE)

Frequency table of hospital_id

@@ -557,8 +557,8 @@ Outliers: 15 (unique count: 12)

All classes will be printed into the header (default is FALSE when using markdown like this document). Variables with the new rsi class of this AMR package are actually ordered factors and have three classes (look at Class in the header):

-
septic_patients %>%
-  freq(amox, header = TRUE)
+
septic_patients %>%
+  freq(amox, header = TRUE)

Frequency table of amox
Class: factor > ordered > rsi (numeric)
Levels: S < I < R
@@ -606,8 +606,8 @@ Unique: 3

Frequencies of dates

Frequencies of dates will show the oldest and newest date in the data, and the amount of days between them:

-
septic_patients %>%
-  freq(date, nmax = 5, header = TRUE)
+
septic_patients %>%
+  freq(date, nmax = 5, header = TRUE)

Frequency table of date
Class: Date (numeric)
Length: 2,000 (of which NA: 0 = 0.00%)
@@ -673,11 +673,11 @@ Median: 31 July 2009 (47.39%)

Assigning a frequency table to an object

A frequency table is actaually a regular data.frame, with the exception that it contains an additional class.

- +
my_df <- septic_patients %>% freq(age)
+class(my_df)

[1] “frequency_tbl” “data.frame”

Because of this additional class, a frequency table prints like the examples above. But the object itself contains the complete table without a row limitation:

-
dim(my_df)
+
dim(my_df)

[1] 74 5

@@ -688,8 +688,8 @@ Median: 31 July 2009 (47.39%)

Parameter na.rm

With the na.rm parameter (defaults to TRUE, but they will always be shown into the header), you can include NA values in the frequency table:

-
septic_patients %>%
-  freq(amox, na.rm = FALSE)
+
septic_patients %>%
+  freq(amox, na.rm = FALSE)

Frequency table of amox

@@ -741,8 +741,8 @@ Median: 31 July 2009 (47.39%)

Parameter row.names

The default frequency tables shows row indices. To remove them, use row.names = FALSE:

-
septic_patients %>%
-  freq(hospital_id, row.names = FALSE)
+
septic_patients %>%
+  freq(hospital_id, row.names = FALSE)

Frequency table of hospital_id

@@ -789,8 +789,8 @@ Median: 31 July 2009 (47.39%)

Parameter markdown

The markdown parameter is TRUE at default in non-interactive sessions, like in reports created with R Markdown. This will always print all rows, unless nmax is set.

-
septic_patients %>%
-  freq(hospital_id, markdown = TRUE)
+
septic_patients %>%
+  freq(hospital_id, markdown = TRUE)

Frequency table of hospital_id

diff --git a/docs/index.html b/docs/index.html index ebd9129a..f787cd81 100644 --- a/docs/index.html +++ b/docs/index.html @@ -215,7 +215,7 @@

Get this package

This package is available on the official R network. Install this package in R with:

- +
install.packages("AMR")

It will be downloaded and installed automatically.

@@ -231,17 +231,17 @@

All (sub)species from the taxonomic kingdoms Bacteria, Fungi and Protozoa are included in this package, as well as all previously accepted names known to ITIS. Furthermore, the responsible authors and year of publication are available. This allows users to use authoritative taxonomic information for their data analysis on any microorganism, not only human pathogens. It also helps to quickly determine the Gram stain of bacteria, since all bacteria are classified into subkingdom Negibacteria or Posibacteria. ITIS is a partnership of U.S., Canadian, and Mexican agencies and taxonomic specialists.

The AMR package basically does four important things:

    -
  1. -

    It cleanses existing data, by transforming it to reproducible and profound classes, making the most efficient use of R. These functions all use artificial intelligence to guess results that you would expect:

    +
  2. It cleanses existing data, by transforming it to reproducible and profound classes, making the most efficient use of R. These functions all use artificial intelligence to guess results that you would expect:
    3. +
  • Use as.mo() to get an ID of a microorganism. The IDs are human readable for the trained eye - the ID of Klebsiella pneumoniae is “B_KLBSL_PNE” (B stands for Bacteria) and the ID of S. aureus is “B_STPHY_AUR”. The function takes almost any text as input that looks like the name or code of a microorganism like “E. coli”, “esco” and “esccol”. Even as.mo("MRSA") will return the ID of S. aureus. Moreover, it can group all coagulase negative and positive Staphylococci, and can transform Streptococci into Lancefield groups. To find bacteria based on your input, it uses Artificial Intelligence to look up values in the included ITIS data, consisting of more than 18,000 microorganisms.
  • Use as.rsi() to transform values to valid antimicrobial results. It produces just S, I or R based on your input and warns about invalid values. Even values like “<=0.002; S” (combined MIC/RSI) will result in “S”.
  • Use as.mic() to cleanse your MIC values. It produces a so-called factor (called ordinal in SPSS) with valid MIC values as levels. A value like “<=0.002; S” (combined MIC/RSI) will result in “<=0.002”.
  • Use as.atc() to get the ATC code of an antibiotic as defined by the WHO. This package contains a database with most LIS codes, official names, DDDs and even trade names of antibiotics. For example, the values “Furabid”, “Furadantin”, “nitro” all return the ATC code of Nitrofurantoine.
- -
  • -

    It enhances existing data and adds new data from data sets included in this package.

    +
      +
    1. It enhances existing data and adds new data from data sets included in this package.
      2. +
    • Use eucast_rules() to apply EUCAST expert rules to isolates.
    • Use first_isolate() to identify the first isolates of every patient using guidelines from the CLSI (Clinical and Laboratory Standards Institute). @@ -253,9 +253,9 @@
    • The data set microorganisms contains the complete taxonomic tree of more than 18,000 microorganisms (bacteria, fungi/yeasts and protozoa). Furthermore, the colloquial name and Gram stain are available, which enables resistance analysis of e.g. different antibiotics per Gram stain. The package also contains functions to look up values in this data set like mo_genus(), mo_family(), mo_gramstain() or even mo_phylum(). As they use as.mo() internally, they also use artificial intelligence. For example, mo_genus("MRSA") and mo_genus("S. aureus") will both return "Staphylococcus". They also come with support for German, Dutch, Spanish, Italian, French and Portuguese. These functions can be used to add new variables to your data.
    • The data set antibiotics contains the ATC code, LIS codes, official name, trivial name and DDD of both oral and parenteral administration. It also contains a total of 298 trade names. Use functions like ab_name() and ab_tradenames() to look up values. The ab_* functions use as.atc() internally so they support AI to guess your expected result. For example, ab_name("Fluclox"), ab_name("Floxapen") and ab_name("J01CF05") will all return "Flucloxacillin". These functions can again be used to add new variables to your data.
    -
    • -
  • -

    It analyses the data with convenient functions that use well-known methods.

    +
      +
    1. It analyses the data with convenient functions that use well-known methods.
      2. +
    -
    • -
  • -

    It teaches the user how to use all the above actions.

    +
      +
    1. It teaches the user how to use all the above actions.
      2. +
    • The package contains extensive help pages with many examples.
    • It also contains an example data set called septic_patients. This data set contains: @@ -276,8 +276,6 @@
    • - -

    diff --git a/docs/news/index.html b/docs/news/index.html index 2be082b4..f9eb0469 100644 --- a/docs/news/index.html +++ b/docs/news/index.html @@ -222,29 +222,18 @@
    • BREAKING: removed deprecated functions, parameters and references to ‘bactid’. Use as.mo() to identify an MO code.
      • -
    • New website: https://msberends.gitlab.io/AMR (built with the great pkgdown) -
        +
      • New website: https://msberends.gitlab.io/AMR (built with the great pkgdown)
      • Contains the complete manual of this package and all of its functions with an explanation of their parameters
      • Contains a comprehensive tutorial about how to conduct antimicrobial resistance analysis
        • -
      -
    • Support for dplyr version 0.8.0
      • +
    • Function guess_ab to find an antibiotic column in a table
    • Function mo_failures() to review values that could not be coerced to a valid MO code, using as.mo(). This latter function will now only show a maximum of 25 uncoerced values.
    • Function mo_renamed() to get a list of all returned values from as.mo() that have had taxonomic renaming
    • Function age() to calculate the (patients) age in years
    • Function age_groups() to split ages into custom or predefined groups (like children or elderly). This allows for easier demographic antimicrobial resistance analysis per age group.
      • -
    • -

      Functions filter_first_isolate() and filter_first_weighted_isolate() to shorten and fasten filtering on data sets with antimicrobial results, e.g.:

      - -

      is equal to:

      -
      septic_patients %>%
-  mutate(only_firsts = first_isolate(septic_patients, ...)) %>%
-  filter(only_firsts == TRUE) %>%
-  select(-only_firsts)
      +
    • Functions filter_first_isolate() and filter_first_weighted_isolate() to shorten and fasten filtering on data sets with antimicrobial results, e.g.: r septic_patients %>% filter_first_isolate() # or filter_first_isolate(septic_patients) is equal to: r septic_patients %>% mutate(only_firsts = first_isolate(septic_patients, ...)) %>% filter(only_firsts == TRUE) %>% select(-only_firsts)
      • -

    • New vignettes about how to conduct AMR analysis, predict antimicrobial resistance, use the G-test and more. These are also available (and even easier readable) on our website: https://msberends.gitlab.io/AMR.

      • +
    • New vignettes about how to conduct AMR analysis, predict antimicrobial resistance, use the G-test and more. These are also available (and even easier readable) on our website: https://msberends.gitlab.io/AMR.
    @@ -252,8 +241,7 @@ Changed
    • Fixed a critical bug in eucast_rules() where some rules that depend on previous applied rules would not be applied adequately
      • -
    • Improvements for as.mo(): -
        +
      • Improvements for as.mo():
      • Finds better results when input is in other languages
      • Better handling for subspecies
      • Better handling for Salmonellae @@ -262,17 +250,12 @@
      • Manual now contains more info about the algorithms
      • Progress bar will be shown when it takes more than 3 seconds to get results
      • Support for formatted console text
        • -
      -
      • -
    • Function first_isolate(): -
        +
      • Function first_isolate():
      • Fixed a bug where distances between dates would not be calculated right - in the septic_patients data set this yielded a difference of 0.15% more isolates
      • Will now use a column named like “patid” for the patient ID (parameter col_patientid), when this parameter was left blank
      • Will now use a column named like “key(…)ab” or “key(…)antibiotics” for the key antibiotics (parameter col_keyantibiotics()), when this parameter was left blank
      • Removed parameter output_logical, the function will now always return a logical value
      • Renamed parameter filter_specimen to specimen_group, although using filter_specimen will still work
        • -
      -
    • A note to the manual pages of the portion functions, that low counts can influence the outcome and that the portion functions may camouflage this, since they only return the portion (albeit being dependent on the minimum parameter)
    • Function mo_taxonomy() now contains the kingdom too
    • Reduce false positives for is.rsi.eligible() @@ -281,8 +264,7 @@
    • Small text updates to summaries of class rsi and mic
      • -
    • Frequency tables (freq() function): -
        +
      • Frequency tables (freq() function):
      • Header info is now available as a list, with the header function
      • Added header info for class mo to show unique count of families, genera and species
      • Now honours the decimal.mark setting, which just like format defaults to getOption("OutDec") @@ -292,8 +274,6 @@
      • New parameter droplevels to exclude empty factor levels when input is a factor
      • Factor levels will be in header when present in input data
        • -
      -
    • Function scale_y_percent() now contains the limits parameter
    • Automatic parameter filling for mdro(), key_antibiotics() and eucast_rules()
      • @@ -335,8 +315,7 @@
    • EUCAST_rules was renamed to eucast_rules, the old function still exists as a deprecated function
      • -
    • Big changes to the eucast_rules function: -
        +
      • Big changes to the eucast_rules function:
      • Now also applies rules from the EUCAST ‘Breakpoint tables for bacteria’, version 8.1, 2018, http://www.eucast.org/clinical_breakpoints/ (see Source of the function)
      • New parameter rules to specify which rules should be applied (expert rules, breakpoints, others or all)
      • New parameter verbose which can be set to TRUE to get very specific messages about which columns and rows were affected
        • @@ -345,18 +324,11 @@
      • Data set septic_patients now reflects these changes
      • Added parameter pipe for piperacillin (J01CA12), also to the mdro function
      • Small fixes to EUCAST clinical breakpoint rules
        • -
      -
    • Added column kingdom to the microorganisms data set, and function mo_kingdom to look up values
    • Tremendous speed improvement for as.mo (and subsequently all mo_* functions), as empty values wil be ignored a priori
    • Fewer than 3 characters as input for as.mo will return NA
      • -
    • -

      Function as.mo (and all mo_* wrappers) now supports genus abbreviations with “species” attached

      -
      as.mo("E. species")        # B_ESCHR
-mo_fullname("E. spp.")     # "Escherichia species"
-as.mo("S. spp")            # B_STPHY
-mo_fullname("S. species")  # "Staphylococcus species"
      +
    • Function as.mo (and all mo_* wrappers) now supports genus abbreviations with “species” attached r as.mo("E. species") # B_ESCHR mo_fullname("E. spp.") # "Escherichia species" as.mo("S. spp") # B_STPHY mo_fullname("S. species") # "Staphylococcus species"
    • Added parameter combine_IR (TRUE/FALSE) to functions portion_df and count_df, to indicate that all values of I and R must be merged into one, so the output only consists of S vs. IR (susceptible vs. non-susceptible)
    • Fix for portion_*(..., as_percent = TRUE) when minimal number of isolates would not be met
      • @@ -365,19 +337,18 @@
    • Using portion_* functions now throws a warning when total available isolate is below parameter minimum
    • Functions as.mo, as.rsi, as.mic, as.atc and freq will not set package name as attribute anymore
      • -
    • Frequency tables - freq(): - -
    • first_isolate now tries to find columns to use as input when parameters are left blank
    • Improvements for MDRO algorithm (function mdro)
      • @@ -401,8 +370,7 @@
    • ggplot_rsi and scale_y_percent have breaks parameter
      • -
    • AI improvements for as.mo: -
        +
      • AI improvements for as.mo:
      • "CRS" -> Stenotrophomonas maltophilia
        • @@ -415,8 +383,6 @@
      • "MSSE" -> Staphylococcus epidermidis
        • -
      -
    • Fix for join functions
    • Speed improvement for is.rsi.eligible, now 15-20 times faster
    • In g.test, when sum(x) is below 1000 or any of the expected values is below 5, Fisher’s Exact Test will be suggested
      • @@ -445,8 +411,7 @@ New
      • The data set microorganisms now contains all microbial taxonomic data from ITIS (kingdoms Bacteria, Fungi and Protozoa), the Integrated Taxonomy Information System, available via https://itis.gov. The data set now contains more than 18,000 microorganisms with all known bacteria, fungi and protozoa according ITIS with genus, species, subspecies, family, order, class, phylum and subkingdom. The new data set microorganisms.old contains all previously known taxonomic names from those kingdoms.
        • -
      • New functions based on the existing function mo_property: -
          +
        • New functions based on the existing function mo_property:
        • Taxonomic names: mo_phylum, mo_class, mo_order, mo_family, mo_genus, mo_species, mo_subspecies
        • Semantic names: mo_fullname, mo_shortname @@ -456,52 +421,22 @@
        • Author and year: mo_ref
        -

        They also come with support for German, Dutch, French, Italian, Spanish and Portuguese:

        -
        mo_gramstain("E. coli")
-# [1] "Gram negative"
-mo_gramstain("E. coli", language = "de") # German
-# [1] "Gramnegativ"
-mo_gramstain("E. coli", language = "es") # Spanish
-# [1] "Gram negativo"
-mo_fullname("S. group A", language = "pt") # Portuguese
-# [1] "Streptococcus grupo A"
        -

        Furthermore, former taxonomic names will give a note about the current taxonomic name:

        - -
        • -
      • Functions count_R, count_IR, count_I, count_SI and count_S to selectively count resistant or susceptible isolates +

        They also come with support for German, Dutch, French, Italian, Spanish and Portuguese: r mo_gramstain("E. coli") # [1] "Gram negative" mo_gramstain("E. coli", language = "de") # German # [1] "Gramnegativ" mo_gramstain("E. coli", language = "es") # Spanish # [1] "Gram negativo" mo_fullname("S. group A", language = "pt") # Portuguese # [1] "Streptococcus grupo A"

        +

        Furthermore, former taxonomic names will give a note about the current taxonomic name: r mo_gramstain("Esc blattae") # Note: 'Escherichia blattae' (Burgess et al., 1973) was renamed 'Shimwellia blattae' (Priest and Barker, 2010) # [1] "Gram negative"

          +
        • Functions count_R, count_IR, count_I, count_SI and count_S to selectively count resistant or susceptible isolates
        • Extra function count_df (which works like portion_df) to get all counts of S, I and R of a data set with antibiotic columns, with support for grouped variables
          • -
        -
      • Function is.rsi.eligible to check for columns that have valid antimicrobial results, but do not have the rsi class yet. Transform the columns of your raw data with: data %>% mutate_if(is.rsi.eligible, as.rsi)
        • -
      • -

        Functions as.mo and is.mo as replacements for as.bactid and is.bactid (since the microoganisms data set not only contains bacteria). These last two functions are deprecated and will be removed in a future release. The as.mo function determines microbial IDs using Artificial Intelligence (AI):

        - -

        And with great speed too - on a quite regular Linux server from 2007 it takes us less than 0.02 seconds to transform 25,000 items:

        - +
      • Functions as.mo and is.mo as replacements for as.bactid and is.bactid (since the microoganisms data set not only contains bacteria). These last two functions are deprecated and will be removed in a future release. The as.mo function determines microbial IDs using Artificial Intelligence (AI): r as.mo("E. coli") # [1] B_ESCHR_COL as.mo("MRSA") # [1] B_STPHY_AUR as.mo("S group A") # [1] B_STRPTC_GRA And with great speed too - on a quite regular Linux server from 2007 it takes us less than 0.02 seconds to transform 25,000 items: r thousands_of_E_colis <- rep("E. coli", 25000) microbenchmark::microbenchmark(as.mo(thousands_of_E_colis), unit = "s") # Unit: seconds # min median max neval # 0.01817717 0.01843957 0.03878077 100
      • Added parameter reference_df for as.mo, so users can supply their own microbial IDs, name or codes as a reference table
        • -
      • Renamed all previous references to bactid to mo, like: -
          +
        • Renamed all previous references to bactid to mo, like:
        • Column names inputs of EUCAST_rules, first_isolate and key_antibiotics
        • Column names of datasets microorganisms and septic_patients
        • All old syntaxes will still work with this version, but will throw warnings
          • -
        -
      • Function labels_rsi_count to print datalabels on a RSI ggplot2 model

      • Functions as.atc and is.atc to transform/look up antibiotic ATC codes as defined by the WHO. The existing function guess_atc is now an alias of as.atc.

      • Function ab_property and its aliases: ab_name, ab_tradenames, ab_certe, ab_umcg and ab_trivial_nl @@ -516,14 +451,7 @@ Changed
        • Added three antimicrobial agents to the antibiotics data set: Terbinafine (D01BA02), Rifaximin (A07AA11) and Isoconazole (D01AC05)
          • -
        • -

          Added 163 trade names to the antibiotics data set, it now contains 298 different trade names in total, e.g.:

          -
          ab_official("Bactroban")
-# [1] "Mupirocin"
-ab_name(c("Bactroban", "Amoxil", "Zithromax", "Floxapen"))
-# [1] "Mupirocin" "Amoxicillin" "Azithromycin" "Flucloxacillin"
-ab_atc(c("Bactroban", "Amoxil", "Zithromax", "Floxapen"))
-# [1] "R01AX06" "J01CA04" "J01FA10" "J01CF05"
          +
        • Added 163 trade names to the antibiotics data set, it now contains 298 different trade names in total, e.g.: r ab_official("Bactroban") # [1] "Mupirocin" ab_name(c("Bactroban", "Amoxil", "Zithromax", "Floxapen")) # [1] "Mupirocin" "Amoxicillin" "Azithromycin" "Flucloxacillin" ab_atc(c("Bactroban", "Amoxil", "Zithromax", "Floxapen")) # [1] "R01AX06" "J01CA04" "J01FA10" "J01CF05"
        • For first_isolate, rows will be ignored when there’s no species available
        • Function ratio is now deprecated and will be removed in a future release, as it is not really the scope of this package
          • @@ -532,36 +460,9 @@
        • Added prevalence column to the microorganisms data set
        • Added parameters minimum and as_percent to portion_df
          • -
        • -

          Support for quasiquotation in the functions series count_* and portions_*, and n_rsi. This allows to check for more than 2 vectors or columns.

          - -
          • -
        • Edited ggplot_rsi and geom_rsi so they can cope with count_df. The new fun parameter has value portion_df at default, but can be set to count_df.
          • -
        • Fix for ggplot_rsi when the ggplot2 package was not loaded
          • -
        • Added datalabels function labels_rsi_count to ggplot_rsi -
          • -
        • Added possibility to set any parameter to geom_rsi (and ggplot_rsi) so you can set your own preferences
          • -
        • Fix for joins, where predefined suffices would not be honoured
          • -
        • Added parameter quote to the freq function
          • -
        • Added generic function diff for frequency tables
          • -
        • Added longest en shortest character length in the frequency table (freq) header of class character -
          • -
        • -

          Support for types (classes) list and matrix for freq

          -
          my_matrix = with(septic_patients, matrix(c(age, gender), ncol = 2))
-freq(my_matrix)
          -

          For lists, subsetting is possible:

          -
          my_list = list(age = septic_patients$age, gender = septic_patients$gender)
-my_list %>% freq(age)
-my_list %>% freq(gender)
          -
          • +
        • Support for quasiquotation in the functions series count_* and portions_*, and n_rsi. This allows to check for more than 2 vectors or columns. ```r septic_patients %>% select(amox, cipr) %>% count_IR() # which is the same as: septic_patients %>% count_IR(amox, cipr)
        +

        septic_patients %>% portion_S(amcl) septic_patients %>% portion_S(amcl, gent) septic_patients %>% portion_S(amcl, gent, pita) * Edited `ggplot_rsi` and `geom_rsi` so they can cope with `count_df`. The new `fun` parameter has value `portion_df` at default, but can be set to `count_df`. * Fix for `ggplot_rsi` when the `ggplot2` package was not loaded * Added datalabels function `labels_rsi_count` to `ggplot_rsi` * Added possibility to set any parameter to `geom_rsi` (and `ggplot_rsi`) so you can set your own preferences * Fix for joins, where predefined suffices would not be honoured * Added parameter `quote` to the `freq` function * Added generic function `diff` for frequency tables * Added longest en shortest character length in the frequency table (`freq`) header of class `character` * Support for types (classes) list and matrix for `freq`r my_matrix = with(septic_patients, matrix(c(age, gender), ncol = 2)) freq(my_matrix) For lists, subsetting is possible:r my_list = list(age = septic_patients$age, gender = septic_patients$gender) my_list %>% freq(age) my_list %>% freq(gender) ```

    @@ -580,21 +481,15 @@ New

    • -BREAKING: rsi_df was removed in favour of new functions portion_R, portion_IR, portion_I, portion_SI and portion_S to selectively calculate resistance or susceptibility. These functions are 20 to 30 times faster than the old rsi function. The old function still works, but is deprecated. -
        +BREAKING: rsi_df was removed in favour of new functions portion_R, portion_IR, portion_I, portion_SI and portion_S to selectively calculate resistance or susceptibility. These functions are 20 to 30 times faster than the old rsi function. The old function still works, but is deprecated.
      • New function portion_df to get all portions of S, I and R of a data set with antibiotic columns, with support for grouped variables
        • -
      -
    • -BREAKING: the methodology for determining first weighted isolates was changed. The antibiotics that are compared between isolates (call key antibiotics) to include more first isolates (afterwards called first weighted isolates) are now as follows: -
        +BREAKING: the methodology for determining first weighted isolates was changed. The antibiotics that are compared between isolates (call key antibiotics) to include more first isolates (afterwards called first weighted isolates) are now as follows:
      • Universal: amoxicillin, amoxicillin/clavlanic acid, cefuroxime, piperacillin/tazobactam, ciprofloxacin, trimethoprim/sulfamethoxazole
      • Gram-positive: vancomycin, teicoplanin, tetracycline, erythromycin, oxacillin, rifampicin
      • Gram-negative: gentamicin, tobramycin, colistin, cefotaxime, ceftazidime, meropenem
        • -
      -
    • Support for ggplot2 -
        +
      • New functions geom_rsi, facet_rsi, scale_y_percent, scale_rsi_colours and theme_rsi
      • New wrapper function ggplot_rsi to apply all above functions on a data set: @@ -605,32 +500,22 @@
      • -
    - -
  • Determining bacterial ID: -
      +
    • Determining bacterial ID:
    • New functions as.bactid and is.bactid to transform/ look up microbial ID’s.
    • The existing function guess_bactid is now an alias of as.bactid
    • New Becker classification for Staphylococcus to categorise them into Coagulase Negative Staphylococci (CoNS) and Coagulase Positve Staphylococci (CoPS)
    • New Lancefield classification for Streptococcus to categorise them into Lancefield groups
      • -
    -
  • For convience, new descriptive statistical functions kurtosis and skewness that are lacking in base R - they are generic functions and have support for vectors, data.frames and matrices
  • Function g.test to perform the Χ2 distributed G-test, which use is the same as chisq.test
    • -
  • -Function ratio to transform a vector of values to a preset ratio - -
  • Support for Addins menu in RStudio to quickly insert %in% or %like% (and give them keyboard shortcuts), or to view the datasets that come with this package
  • Function p.symbol to transform p values to their related symbols: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
  • Functions clipboard_import and clipboard_export as helper functions to quickly copy and paste from/to software like Excel and SPSS. These functions use the clipr package, but are a little altered to also support headless Linux servers (so you can use it in RStudio Server)
    • -
  • New for frequency tables (function freq): -
      +
    • New for frequency tables (function freq):
    • A vignette to explain its usage
    • Support for rsi (antimicrobial resistance) to use as input
    • Support for table to use as input: freq(table(x, y)) @@ -645,8 +530,6 @@
    • Header of frequency tables now also show Mean Absolute Deviaton (MAD) and Interquartile Range (IQR)
    • Possibility to globally set the default for the amount of items to print, with options(max.print.freq = n) where n is your preset value
    -
    • -

    @@ -668,27 +551,21 @@
  • Small improvements to the microorganisms dataset (especially for Salmonella) and the column bactid now has the new class "bactid"
    • -
  • Combined MIC/RSI values will now be coerced by the rsi and mic functions: - -
  • Now possible to coerce MIC values with a space between operator and value, i.e. as.mic("<= 0.002") now works
  • Classes rsi and mic do not add the attribute package.version anymore
  • Added "groups" option for atc_property(..., property). It will return a vector of the ATC hierarchy as defined by the WHO. The new function atc_groups is a convenient wrapper around this.
  • Build-in host check for atc_property as it requires the host set by url to be responsive
  • Improved first_isolate algorithm to exclude isolates where bacteria ID or genus is unavailable
  • Fix for warning hybrid evaluation forced for row_number (924b62) from the dplyr package v0.7.5 and above
    • -
  • Support for empty values and for 1 or 2 columns as input for guess_bactid (now called as.bactid) -
      +
    • Support for empty values and for 1 or 2 columns as input for guess_bactid (now called as.bactid)
    • So yourdata %>% select(genus, species) %>% as.bactid() now also works
      • -
    -
  • Other small fixes

    • @@ -696,14 +573,11 @@

    Other

    @@ -718,19 +592,16 @@
    • Full support for Windows, Linux and macOS
    • Full support for old R versions, only R-3.0.0 (April 2013) or later is needed (needed packages may have other dependencies)
      • -
    • Function n_rsi to count cases where antibiotic test results were available, to be used in conjunction with dplyr::summarise, see ?rsi
      • +
    • Function n_rsi to count cases where antibiotic test results were available, to be used in conjunction with dplyr::summarise, see ?rsi
    • Function guess_bactid to determine the ID of a microorganism based on genus/species or known abbreviations like MRSA
    • Function guess_atc to determine the ATC of an antibiotic based on name, trade name, or known abbreviations
    • Function freq to create frequency tables, with additional info in a header
      • -
    • Function MDRO to determine Multi Drug Resistant Organisms (MDRO) with support for country-specific guidelines. - -
    • New algorithm to determine weighted isolates, can now be "points" or "keyantibiotics", see ?first_isolate
    • New print format for tibbles and data.tables
      • diff --git a/docs/pkgdown.yml b/docs/pkgdown.yml index 1f121089..e1a0a6f2 100644 --- a/docs/pkgdown.yml +++ b/docs/pkgdown.yml @@ -1,4 +1,4 @@ -pandoc: 2.3.1 +pandoc: 1.17.2 pkgdown: 1.3.0 pkgdown_sha: ~ articles: diff --git a/docs/reference/age_groups.html b/docs/reference/age_groups.html index 0b8ec3e1..922d77e8 100644 --- a/docs/reference/age_groups.html +++ b/docs/reference/age_groups.html @@ -289,11 +289,11 @@ On our website https://msberends.gitla # resistance of ciprofloxacine per age group library(dplyr) septic_patients %>% - mutate(first_isolate = first_isolate(.)) %>% - filter(first_isolate == TRUE, + mutate(first_isolate = first_isolate(.)) %>% + filter(first_isolate == TRUE, mo == as.mo("E. coli")) %>% - group_by(age_group = age_groups(age)) %>% - select(age_group, + group_by(age_group = age_groups(age)) %>% + select(age_group, cipr) %>% ggplot_rsi(x = "age_group") # } diff --git a/docs/reference/as.mo.html b/docs/reference/as.mo.html index 15034ebd..f2329d1e 100644 --- a/docs/reference/as.mo.html +++ b/docs/reference/as.mo.html @@ -362,16 +362,16 @@ The mo_property functions (like # the select function of tidyverse is also supported: library(dplyr) df$mo <- df %>% - select(microorganism_name) %>% + select(microorganism_name) %>% as.mo() # and can even contain 2 columns, which is convenient for genus/species combinations: df$mo <- df %>% - select(genus, species) %>% + select(genus, species) %>% as.mo() # although this works easier and does the same: df <- df %>% - mutate(mo = as.mo(paste(genus, species))) + mutate(mo = as.mo(paste(genus, species))) # } diff --git a/docs/reference/count.html b/docs/reference/count.html index 44b64b0c..6f1c7218 100644 --- a/docs/reference/count.html +++ b/docs/reference/count.html @@ -275,7 +275,7 @@ count_R and count_IR can be used to count resistant isolates, count_S and count_

      Details

      These functions are meant to count isolates. Use the portion_* functions to calculate microbial resistance.

      -

      n_rsi is an alias of count_all. They can be used to count all available isolates, i.e. where all input antibiotics have an available result (S, I or R). Their use is equal to n_distinct. Their function is equal to count_S(...) + count_IR(...).

      +

      n_rsi is an alias of count_all. They can be used to count all available isolates, i.e. where all input antibiotics have an available result (S, I or R). Their use is equal to n_distinct. Their function is equal to count_S(...) + count_IR(...).

      count_df takes any variable from data that has an "rsi" class (created with as.rsi) and counts the amounts of R, I and S. The resulting tidy data (see Source) data.frame will have three rows (S/I/R) and a column for each variable with class "rsi".

      Read more on our website!

      @@ -314,13 +314,13 @@ On our website https://msberends.gitla library(dplyr) septic_patients %>% - group_by(hospital_id) %>% - summarise(R = count_R(cipr), + group_by(hospital_id) %>% + summarise(R = count_R(cipr), I = count_I(cipr), S = count_S(cipr), n1 = count_all(cipr), # the actual total; sum of all three n2 = n_rsi(cipr), # same - analogous to n_distinct - total = n()) # NOT the amount of tested isolates! + total = n()) # NOT the amount of tested isolates! # Count co-resistance between amoxicillin/clav acid and gentamicin, # so we can see that combination therapy does a lot more than mono therapy. @@ -338,13 +338,13 @@ On our website https://msberends.gitla # Get portions S/I/R immediately of all rsi columns septic_patients %>% - select(amox, cipr) %>% + select(amox, cipr) %>% count_df(translate = FALSE) # It also supports grouping variables septic_patients %>% - select(hospital_id, amox, cipr) %>% - group_by(hospital_id) %>% + select(hospital_id, amox, cipr) %>% + group_by(hospital_id) %>% count_df(translate = FALSE) # } diff --git a/docs/reference/eucast_rules.html b/docs/reference/eucast_rules.html index b43ae29e..bd93a4fd 100644 --- a/docs/reference/eucast_rules.html +++ b/docs/reference/eucast_rules.html @@ -222,22 +222,27 @@ 
      eucast_rules(tbl, col_mo = NULL, info = TRUE,
   rules = c("breakpoints", "expert", "other", "all"), verbose = FALSE,
-  amcl = "amcl", amik = "amik", amox = "amox", ampi = "ampi",
-  azit = "azit", azlo = "azlo", aztr = "aztr", cefa = "cefa",
-  cfep = "cfep", cfot = "cfot", cfox = "cfox", cfra = "cfra",
-  cfta = "cfta", cftr = "cftr", cfur = "cfur", chlo = "chlo",
-  cipr = "cipr", clar = "clar", clin = "clin", clox = "clox",
-  coli = "coli", czol = "czol", dapt = "dapt", doxy = "doxy",
-  erta = "erta", eryt = "eryt", fosf = "fosf", fusi = "fusi",
-  gent = "gent", imip = "imip", kana = "kana", levo = "levo",
-  linc = "linc", line = "line", mero = "mero", mezl = "mezl",
-  mino = "mino", moxi = "moxi", nali = "nali", neom = "neom",
-  neti = "neti", nitr = "nitr", norf = "norf", novo = "novo",
-  oflo = "oflo", oxac = "oxac", peni = "peni", pipe = "pipe",
-  pita = "pita", poly = "poly", pris = "pris", qida = "qida",
-  rifa = "rifa", roxi = "roxi", siso = "siso", teic = "teic",
-  tetr = "tetr", tica = "tica", tige = "tige", tobr = "tobr",
-  trim = "trim", trsu = "trsu", vanc = "vanc")
+  amcl = guess_ab(), amik = guess_ab(), amox = guess_ab(),
+  ampi = guess_ab(), azit = guess_ab(), azlo = guess_ab(),
+  aztr = guess_ab(), cefa = guess_ab(), cfep = guess_ab(),
+  cfot = guess_ab(), cfox = guess_ab(), cfra = guess_ab(),
+  cfta = guess_ab(), cftr = guess_ab(), cfur = guess_ab(),
+  chlo = guess_ab(), cipr = guess_ab(), clar = guess_ab(),
+  clin = guess_ab(), clox = guess_ab(), coli = guess_ab(),
+  czol = guess_ab(), dapt = guess_ab(), doxy = guess_ab(),
+  erta = guess_ab(), eryt = guess_ab(), fosf = guess_ab(),
+  fusi = guess_ab(), gent = guess_ab(), imip = guess_ab(),
+  kana = guess_ab(), levo = guess_ab(), linc = guess_ab(),
+  line = guess_ab(), mero = guess_ab(), mezl = guess_ab(),
+  mino = guess_ab(), moxi = guess_ab(), nali = guess_ab(),
+  neom = guess_ab(), neti = guess_ab(), nitr = guess_ab(),
+  norf = guess_ab(), novo = guess_ab(), oflo = guess_ab(),
+  oxac = guess_ab(), peni = guess_ab(), pipe = guess_ab(),
+  pita = guess_ab(), poly = guess_ab(), pris = guess_ab(),
+  qida = guess_ab(), rifa = guess_ab(), roxi = guess_ab(),
+  siso = guess_ab(), teic = guess_ab(), tetr = guess_ab(),
+  tica = guess_ab(), tige = guess_ab(), tobr = guess_ab(),
+  trim = guess_ab(), trsu = guess_ab(), vanc = guess_ab())
 
 EUCAST_rules(...)
 
@@ -295,7 +300,7 @@
     
      Antibiotics
      
 
     
-    
      To define antibiotics column names, input a text (case-insensitive) or use NULL to skip a column (e.g. tica = NULL). Non-existing columns will anyway be skipped with a warning.
      
+    
      To define antibiotics column names, leave as it is to determine it automatically with guess_ab or input a text (case-insensitive) or use NULL to skip a column (e.g. tica = NULL). Non-existing columns will anyway be skipped with a warning.
      
 
      Abbrevations of the column containing antibiotics in the form: abbreviation: generic name (ATC code)
      
 
      amcl: amoxicillin+clavulanic acid (J01CR02),
  amik: amikacin (J01GB06),
diff --git a/docs/reference/first_isolate.html b/docs/reference/first_isolate.html
index 21602bf3..503cd2cc 100644
--- a/docs/reference/first_isolate.html
+++ b/docs/reference/first_isolate.html
@@ -361,11 +361,11 @@ On our website https://msberends.gitla
 library(dplyr)
 # Filter on first isolates:
 septic_patients %>%
-  mutate(first_isolate = first_isolate(.,
+  mutate(first_isolate = first_isolate(.,
                                        col_date = "date",
                                        col_patient_id = "patient_id",
                                        col_mo = "mo")) %>%
-  filter(first_isolate == TRUE)
+  filter(first_isolate == TRUE)
 
 # Which can be shortened to:
 septic_patients %>%
@@ -376,14 +376,14 @@ On our website https://msberends.gitla
 
 # Now let's see if first isolates matter:
 A <- septic_patients %>%
-  group_by(hospital_id) %>%
-  summarise(count = n_rsi(gent),            # gentamicin availability
+  group_by(hospital_id) %>%
+  summarise(count = n_rsi(gent),            # gentamicin availability
             resistance = portion_IR(gent))  # gentamicin resistance
 
 B <- septic_patients %>%
   filter_first_weighted_isolate() %>%       # the 1st isolate filter
-  group_by(hospital_id) %>%
-  summarise(count = n_rsi(gent),            # gentamicin availability
+  group_by(hospital_id) %>%
+  summarise(count = n_rsi(gent),            # gentamicin availability
             resistance = portion_IR(gent))  # gentamicin resistance
 
 # Have a look at A and B.
diff --git a/docs/reference/freq.html b/docs/reference/freq.html
index ab0ffa14..ef11ba9f 100644
--- a/docs/reference/freq.html
+++ b/docs/reference/freq.html
@@ -378,34 +378,34 @@ On our website https://msberends.gitla
 
 # you could also use `select` or `pull` to get your variables
 septic_patients %>%
-  filter(hospital_id == "A") %>%
-  select(mo) %>%
+  filter(hospital_id == "A") %>%
+  select(mo) %>%
   freq()
 
 
 # multiple selected variables will be pasted together
 septic_patients %>%
   left_join_microorganisms %>%
-  filter(hospital_id == "A") %>%
+  filter(hospital_id == "A") %>%
   freq(genus, species)
 
 
 # group a variable and analyse another
 septic_patients %>%
-  group_by(hospital_id) %>%
+  group_by(hospital_id) %>%
   freq(gender)
 
 
 # get top 10 bugs of hospital A as a vector
 septic_patients %>%
-  filter(hospital_id == "A") %>%
+  filter(hospital_id == "A") %>%
   freq(mo) %>%
   top_freq(10)
 
 
 # save frequency table to an object
 years <- septic_patients %>%
-  mutate(year = format(date, "%Y")) %>%
+  mutate(year = format(date, "%Y")) %>%
   freq(year)
 
 
@@ -456,11 +456,11 @@ On our website https://msberends.gitla
 # only get selected columns
 septic_patients %>%
   freq(hospital_id) %>%
-  select(item, percent)
+  select(item, percent)
 
 septic_patients %>%
   freq(hospital_id) %>%
-  select(-count, -cum_count)
+  select(-count, -cum_count)
 
 
 # check differences between frequency tables
diff --git a/docs/reference/ggplot_rsi.html b/docs/reference/ggplot_rsi.html
index 9a14807c..217298c8 100644
--- a/docs/reference/ggplot_rsi.html
+++ b/docs/reference/ggplot_rsi.html
@@ -216,7 +216,7 @@
 
     
      
     
-    
      Use these functions to create bar plots for antimicrobial resistance analysis. All functions rely on internal ggplot functions.
      
+    
      Use these functions to create bar plots for antimicrobial resistance analysis. All functions rely on internal ggplot functions.
      
     
     
      
 
@@ -307,10 +307,10 @@
     
      At default, the names of antibiotics will be shown on the plots using abname. This can be set with the option get_antibiotic_names (a logical value), so change it e.g. to FALSE with options(get_antibiotic_names = FALSE).
      
 
      The functions
      
 geom_rsi will take any variable from the data that has an rsi class (created with as.rsi) using fun (count_df at default, can also be portion_df) and will plot bars with the percentage R, I and S. The default behaviour is to have the bars stacked and to have the different antibiotics on the x axis.
      
-
      facet_rsi creates 2d plots (at default based on S/I/R) using facet_wrap.
      
+
      facet_rsi creates 2d plots (at default based on S/I/R) using facet_wrap.
      
 
      scale_y_percent transforms the y axis to a 0 to 100% range using scale_continuous.
      
 
      scale_rsi_colours sets colours to the bars: green for S, yellow for I and red for R, using scale_brewer.
      
-
      theme_rsi is a ggplot theme with minimal distraction.
      
+
      theme_rsi is a ggplot theme with minimal distraction.
      
 
      labels_rsi_count print datalabels on the bars with percentage and amount of isolates using geom_text
      
 
      ggplot_rsi is a wrapper around all above functions that uses data as first input. This makes it possible to use this function after a pipe (%>%). See Examples.
      
     
@@ -327,12 +327,12 @@ On our website https://msberends.gitla
 library(ggplot2)
 
 # get antimicrobial results for drugs against a UTI:
-ggplot(septic_patients %>% select(amox, nitr, fosf, trim, cipr)) +
+ggplot(septic_patients %>% select(amox, nitr, fosf, trim, cipr)) +
   geom_rsi()
 
 # prettify the plot using some additional functions:
 df <- septic_patients[, c("amox", "nitr", "fosf", "trim", "cipr")]
-ggplot(df) +
+ggplot(df) +
   geom_rsi() +
   scale_y_percent() +
   scale_rsi_colours() +
@@ -341,17 +341,17 @@ On our website https://msberends.gitla
 
 # or better yet, simplify this using the wrapper function - a single command:
 septic_patients %>%
-  select(amox, nitr, fosf, trim, cipr) %>%
+  select(amox, nitr, fosf, trim, cipr) %>%
   ggplot_rsi()
 
 # get only portions and no counts:
 septic_patients %>%
-  select(amox, nitr, fosf, trim, cipr) %>%
+  select(amox, nitr, fosf, trim, cipr) %>%
   ggplot_rsi(fun = portion_df)
 
 # add other ggplot2 parameters as you like:
 septic_patients %>%
-  select(amox, nitr, fosf, trim, cipr) %>%
+  select(amox, nitr, fosf, trim, cipr) %>%
   ggplot_rsi(width = 0.5,
              colour = "black",
              size = 1,
@@ -360,56 +360,56 @@ On our website https://msberends.gitla
 
 # resistance of ciprofloxacine per age group
 septic_patients %>%
-  mutate(first_isolate = first_isolate(.)) %>%
-  filter(first_isolate == TRUE,
+  mutate(first_isolate = first_isolate(.)) %>%
+  filter(first_isolate == TRUE,
          mo == as.mo("E. coli")) %>%
   # `age_group` is also a function of this package:
-  group_by(age_group = age_groups(age)) %>%
-  select(age_group,
+  group_by(age_group = age_groups(age)) %>%
+  select(age_group,
          cipr) %>%
   ggplot_rsi(x = "age_group")
 # }# NOT RUN {
 # for colourblind mode, use divergent colours from the viridis package:
 septic_patients %>%
-  select(amox, nitr, fosf, trim, cipr) %>%
-  ggplot_rsi() + scale_fill_viridis_d()
+  select(amox, nitr, fosf, trim, cipr) %>%
+  ggplot_rsi() + scale_fill_viridis_d()
 
 
 # it also supports groups (don't forget to use the group var on `x` or `facet`):
 septic_patients %>%
-  select(hospital_id, amox, nitr, fosf, trim, cipr) %>%
-  group_by(hospital_id) %>%
+  select(hospital_id, amox, nitr, fosf, trim, cipr) %>%
+  group_by(hospital_id) %>%
   ggplot_rsi(x = hospital_id,
              facet = Antibiotic,
              nrow = 1) +
-  labs(title = "AMR of Anti-UTI Drugs Per Hospital",
+  labs(title = "AMR of Anti-UTI Drugs Per Hospital",
        x = "Hospital")
 
 # genuine analysis: check 2 most prevalent microorganisms
 septic_patients %>%
   # create new bacterial ID's, with all CoNS under the same group (Becker et al.)
-  mutate(mo = as.mo(mo, Becker = TRUE)) %>%
+  mutate(mo = as.mo(mo, Becker = TRUE)) %>%
   # filter on top three bacterial ID's
-  filter(mo %in% top_freq(freq(.$mo), 3)) %>%
+  filter(mo %in% top_freq(freq(.$mo), 3)) %>%
   # determine first isolates
-  mutate(first_isolate = first_isolate(.,
+  mutate(first_isolate = first_isolate(.,
                                        col_date = "date",
                                        col_patient_id = "patient_id",
                                        col_mo = "mo")) %>%
   # filter on first isolates
-  filter(first_isolate == TRUE) %>%
+  filter(first_isolate == TRUE) %>%
   # get short MO names (like "E. coli")
-  mutate(mo = mo_shortname(mo, Becker = TRUE)) %>%
+  mutate(mo = mo_shortname(mo, Becker = TRUE)) %>%
   # select this short name and some antiseptic drugs
-  select(mo, cfur, gent, cipr) %>%
+  select(mo, cfur, gent, cipr) %>%
   # group by MO
-  group_by(mo) %>%
+  group_by(mo) %>%
   # plot the thing, putting MOs on the facet
   ggplot_rsi(x = Antibiotic,
              facet = mo,
              translate_ab = FALSE,
              nrow = 1) +
-  labs(title = "AMR of Top Three Microorganisms In Blood Culture Isolates",
+  labs(title = "AMR of Top Three Microorganisms In Blood Culture Isolates",
        subtitle = "Only First Isolates, CoNS grouped according to Becker et al. (2014)",
        x = "Microorganisms")
 # }
      diff --git a/docs/reference/guess_ab.html b/docs/reference/guess_ab.html new file mode 100644 index 00000000..ced585eb --- /dev/null +++ b/docs/reference/guess_ab.html @@ -0,0 +1,293 @@ + + + + + + + + +Guess antibiotic column — guess_ab • AMR (for R) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
      +
      + + + +
      + +
      +
      +
      +

      Guess antibiotic column

      + + +
      + +
      + +

      This tries to find a column name in a data set based on information from the antibiotics data set.

      + +
      + + 
      guess_ab(tbl = NULL, col = NULL, verbose = FALSE)
      + +

      Arguments

      +
    + + + + + + + + + + + + + +
    tbl

    a data.frame

    col

    a character to look for

    verbose

    a logical to indicate whether additional info should be printed

    + +

    Read more on our website!

    + + +


    +On our website https://msberends.gitlab.io/AMR you can find a omprehensive tutorial about how to conduct AMR analysis and find the complete documentation of all functions, which reads a lot easier than in R.

    + + +
    + + + + + + + + + + + + + + diff --git a/docs/reference/itis.html b/docs/reference/itis.html index 3e2c0333..abe4b60b 100644 --- a/docs/reference/itis.html +++ b/docs/reference/itis.html @@ -240,7 +240,8 @@ On our website https://msberends.gitla 
    # NOT RUN {
 # Get a note when a species was renamed
 mo_shortname("Chlamydia psittaci")
-# Note: 'Chlamydia psittaci' (Page, 1968) was renamed 'Chlamydophila psittaci' (Everett et al., 1999)
+# Note: 'Chlamydia psittaci' (Page, 1968) was renamed 
+#       'Chlamydophila psittaci' (Everett et al., 1999)
 # [1] "C. psittaci"
 
 # Get any property from the entire taxonomic tree for all included species
diff --git a/docs/reference/key_antibiotics.html b/docs/reference/key_antibiotics.html
index 606c08c1..a65d91d2 100644
--- a/docs/reference/key_antibiotics.html
+++ b/docs/reference/key_antibiotics.html
@@ -220,13 +220,17 @@
     
     
 
-    
    key_antibiotics(tbl, col_mo = NULL, universal_1 = "amox",
-  universal_2 = "amcl", universal_3 = "cfur", universal_4 = "pita",
-  universal_5 = "cipr", universal_6 = "trsu", GramPos_1 = "vanc",
-  GramPos_2 = "teic", GramPos_3 = "tetr", GramPos_4 = "eryt",
-  GramPos_5 = "oxac", GramPos_6 = "rifa", GramNeg_1 = "gent",
-  GramNeg_2 = "tobr", GramNeg_3 = "coli", GramNeg_4 = "cfot",
-  GramNeg_5 = "cfta", GramNeg_6 = "mero", warnings = TRUE, ...)
+    
    key_antibiotics(tbl, col_mo = NULL, universal_1 = guess_ab(tbl,
+  "amox"), universal_2 = guess_ab(tbl, "amcl"),
+  universal_3 = guess_ab(tbl, "cfur"), universal_4 = guess_ab(tbl,
+  "pita"), universal_5 = guess_ab(tbl, "cipr"),
+  universal_6 = guess_ab(tbl, "trsu"), GramPos_1 = guess_ab(tbl,
+  "vanc"), GramPos_2 = guess_ab(tbl, "teic"), GramPos_3 = guess_ab(tbl,
+  "tetr"), GramPos_4 = guess_ab(tbl, "eryt"), GramPos_5 = guess_ab(tbl,
+  "oxac"), GramPos_6 = guess_ab(tbl, "rifa"), GramNeg_1 = guess_ab(tbl,
+  "gent"), GramNeg_2 = guess_ab(tbl, "tobr"), GramNeg_3 = guess_ab(tbl,
+  "coli"), GramNeg_4 = guess_ab(tbl, "cfot"), GramNeg_5 = guess_ab(tbl,
+  "cfta"), GramNeg_6 = guess_ab(tbl, "mero"), warnings = TRUE, ...)
 
 key_antibiotics_equal(x, y, type = c("keyantibiotics", "points"),
   ignore_I = TRUE, points_threshold = 2, info = FALSE)
    
@@ -320,8 +324,8 @@ On our website https://msberends.gitla
 library(dplyr)
 # set key antibiotics to a new variable
 my_patients <- septic_patients %>%
-  mutate(keyab = key_antibiotics(.)) %>%
-  mutate(
+  mutate(keyab = key_antibiotics(.)) %>%
+  mutate(
     # now calculate first isolates
     first_regular = first_isolate(., col_keyantibiotics = FALSE),
     # and first WEIGHTED isolates
diff --git a/docs/reference/like.html b/docs/reference/like.html
index c58c5398..9037d65d 100644
--- a/docs/reference/like.html
+++ b/docs/reference/like.html
@@ -288,7 +288,7 @@ On our website https://msberends.gitla
 library(dplyr)
 septic_patients %>%
   left_join_microorganisms() %>%
-  filter(genus %like% '^ent') %>%
+  filter(genus %like% '^ent') %>%
   freq(genus, species)
 # }
    
   
diff --git a/docs/reference/mdro.html b/docs/reference/mdro.html
index 6d5619e7..f6844cd4 100644
--- a/docs/reference/mdro.html
+++ b/docs/reference/mdro.html
@@ -221,21 +221,26 @@
     
 
     
    mdro(tbl, country = NULL, col_mo = NULL, info = TRUE,
-  amcl = "amcl", amik = "amik", amox = "amox", ampi = "ampi",
-  azit = "azit", aztr = "aztr", cefa = "cefa", cfra = "cfra",
-  cfep = "cfep", cfot = "cfot", cfox = "cfox", cfta = "cfta",
-  cftr = "cftr", cfur = "cfur", chlo = "chlo", cipr = "cipr",
-  clar = "clar", clin = "clin", clox = "clox", coli = "coli",
-  czol = "czol", dapt = "dapt", doxy = "doxy", erta = "erta",
-  eryt = "eryt", fosf = "fosf", fusi = "fusi", gent = "gent",
-  imip = "imip", kana = "kana", levo = "levo", linc = "linc",
-  line = "line", mero = "mero", metr = "metr", mino = "mino",
-  moxi = "moxi", nali = "nali", neom = "neom", neti = "neti",
-  nitr = "nitr", novo = "novo", norf = "norf", oflo = "oflo",
-  peni = "peni", pipe = "pipe", pita = "pita", poly = "poly",
-  qida = "qida", rifa = "rifa", roxi = "roxi", siso = "siso",
-  teic = "teic", tetr = "tetr", tica = "tica", tige = "tige",
-  tobr = "tobr", trim = "trim", trsu = "trsu", vanc = "vanc")
+  amcl = guess_ab(), amik = guess_ab(), amox = guess_ab(),
+  ampi = guess_ab(), azit = guess_ab(), aztr = guess_ab(),
+  cefa = guess_ab(), cfra = guess_ab(), cfep = guess_ab(),
+  cfot = guess_ab(), cfox = guess_ab(), cfta = guess_ab(),
+  cftr = guess_ab(), cfur = guess_ab(), chlo = guess_ab(),
+  cipr = guess_ab(), clar = guess_ab(), clin = guess_ab(),
+  clox = guess_ab(), coli = guess_ab(), czol = guess_ab(),
+  dapt = guess_ab(), doxy = guess_ab(), erta = guess_ab(),
+  eryt = guess_ab(), fosf = guess_ab(), fusi = guess_ab(),
+  gent = guess_ab(), imip = guess_ab(), kana = guess_ab(),
+  levo = guess_ab(), linc = guess_ab(), line = guess_ab(),
+  mero = guess_ab(), metr = guess_ab(), mino = guess_ab(),
+  moxi = guess_ab(), nali = guess_ab(), neom = guess_ab(),
+  neti = guess_ab(), nitr = guess_ab(), novo = guess_ab(),
+  norf = guess_ab(), oflo = guess_ab(), peni = guess_ab(),
+  pipe = guess_ab(), pita = guess_ab(), poly = guess_ab(),
+  qida = guess_ab(), rifa = guess_ab(), roxi = guess_ab(),
+  siso = guess_ab(), teic = guess_ab(), tetr = guess_ab(),
+  tica = guess_ab(), tige = guess_ab(), tobr = guess_ab(),
+  trim = guess_ab(), trsu = guess_ab(), vanc = guess_ab())
 
 brmo(..., country = "nl")
 
@@ -519,7 +524,7 @@
     
    Antibiotics
    
 
     
-    
    To define antibiotics column names, input a text (case-insensitive) or use NULL to skip a column (e.g. tica = NULL). Non-existing columns will anyway be skipped with a warning.
    
+    
    To define antibiotics column names, leave as it is to determine it automatically with guess_ab or input a text (case-insensitive) or use NULL to skip a column (e.g. tica = NULL). Non-existing columns will anyway be skipped with a warning.
    
 
    Abbrevations of the column containing antibiotics in the form: abbreviation: generic name (ATC code)
    
 
    amcl: amoxicillin+clavulanic acid (J01CR02),
  amik: amikacin (J01GB06),
@@ -596,7 +601,7 @@ On our website https://msberends.gitla
 library(dplyr)
 
 septic_patients %>%
-  mutate(EUCAST = mdro(.),
+  mutate(EUCAST = mdro(.),
          BRMO = brmo(.))
 # }
    
   
diff --git a/docs/reference/portion.html b/docs/reference/portion.html
index e5ff8a10..f86ad334 100644
--- a/docs/reference/portion.html
+++ b/docs/reference/portion.html
@@ -333,17 +333,17 @@ On our website https://msberends.gitla
 septic_patients %>% portion_SI(amox)
 
 septic_patients %>%
-  group_by(hospital_id) %>%
-  summarise(p = portion_S(cipr),
+  group_by(hospital_id) %>%
+  summarise(p = portion_S(cipr),
             n = n_rsi(cipr)) # n_rsi works like n_distinct in dplyr
 
 septic_patients %>%
-  group_by(hospital_id) %>%
-  summarise(R = portion_R(cipr, as_percent = TRUE),
+  group_by(hospital_id) %>%
+  summarise(R = portion_R(cipr, as_percent = TRUE),
             I = portion_I(cipr, as_percent = TRUE),
             S = portion_S(cipr, as_percent = TRUE),
             n = n_rsi(cipr), # works like n_distinct in dplyr
-            total = n())     # NOT the amount of tested isolates!
+            total = n())     # NOT the amount of tested isolates!
 
 # Calculate co-resistance between amoxicillin/clav acid and gentamicin,
 # so we can see that combination therapy does a lot more than mono therapy:
@@ -358,8 +358,8 @@ On our website https://msberends.gitla
 
 
 septic_patients %>%
-  group_by(hospital_id) %>%
-  summarise(cipro_p = portion_S(cipr, as_percent = TRUE),
+  group_by(hospital_id) %>%
+  summarise(cipro_p = portion_S(cipr, as_percent = TRUE),
             cipro_n = count_all(cipr),
             genta_p = portion_S(gent, as_percent = TRUE),
             genta_n = count_all(gent),
@@ -368,22 +368,22 @@ On our website https://msberends.gitla
 
 # Get portions S/I/R immediately of all rsi columns
 septic_patients %>%
-  select(amox, cipr) %>%
+  select(amox, cipr) %>%
   portion_df(translate = FALSE)
 
 # It also supports grouping variables
 septic_patients %>%
-  select(hospital_id, amox, cipr) %>%
-  group_by(hospital_id) %>%
+  select(hospital_id, amox, cipr) %>%
+  group_by(hospital_id) %>%
   portion_df(translate = FALSE)
 
 
 # }# NOT RUN {
 # calculate current empiric combination therapy of Helicobacter gastritis:
 my_table %>%
-  filter(first_isolate == TRUE,
+  filter(first_isolate == TRUE,
          genus == "Helicobacter") %>%
-  summarise(p = portion_S(amox, metr),  # amoxicillin with metronidazole
+  summarise(p = portion_S(amox, metr),  # amoxicillin with metronidazole
             n = count_all(amox, metr))
 # }
    diff --git a/docs/reference/resistance_predict.html b/docs/reference/resistance_predict.html index 2fc7b71a..57407280 100644 --- a/docs/reference/resistance_predict.html +++ b/docs/reference/resistance_predict.html @@ -311,7 +311,7 @@ On our website https://msberends.gitla # or use dplyr so you can actually read it: library(dplyr) tbl %>% - filter(first_isolate == TRUE, + filter(first_isolate == TRUE, genus == "Haemophilus") %>% resistance_predict(amcl, date) # }# NOT RUN { @@ -322,9 +322,9 @@ On our website https://msberends.gitla # get bacteria properties like genus and species left_join_microorganisms("mo") %>% # calculate first isolates - mutate(first_isolate = first_isolate(.)) %>% + mutate(first_isolate = first_isolate(.)) %>% # filter on first E. coli isolates - filter(genus == "Escherichia", + filter(genus == "Escherichia", species == "coli", first_isolate == TRUE) %>% # predict resistance of cefotaxime for next years @@ -338,27 +338,27 @@ On our website https://msberends.gitla if (!require(ggplot2)) { data <- septic_patients %>% - filter(mo == as.mo("E. coli")) %>% + filter(mo == as.mo("E. coli")) %>% resistance_predict(col_ab = "amox", col_date = "date", info = FALSE, minimum = 15) - ggplot(data, - aes(x = year)) + - geom_col(aes(y = value), + ggplot(data, + aes(x = year)) + + geom_col(aes(y = value), fill = "grey75") + - geom_errorbar(aes(ymin = se_min, + geom_errorbar(aes(ymin = se_min, ymax = se_max), colour = "grey50") + - scale_y_continuous(limits = c(0, 1), + scale_y_continuous(limits = c(0, 1), breaks = seq(0, 1, 0.1), labels = paste0(seq(0, 100, 10), "%")) + - labs(title = expression(paste("Forecast of amoxicillin resistance in ", + labs(title = expression(paste("Forecast of amoxicillin resistance in ", italic("E. coli"))), y = "%IR", x = "Year") + - theme_minimal(base_size = 13) + theme_minimal(base_size = 13) } # } diff --git a/docs/sitemap.xml b/docs/sitemap.xml index 505867c8..6aec9f24 100644 --- a/docs/sitemap.xml +++ b/docs/sitemap.xml @@ -60,6 +60,9 @@ https://msberends.gitlab.io/AMR/reference/ggplot_rsi.html + + https://msberends.gitlab.io/AMR/reference/guess_ab.html + https://msberends.gitlab.io/AMR/reference/itis.html diff --git a/man/itis.Rd b/man/itis.Rd index edfd94c5..15aa9e06 100644 --- a/man/itis.Rd +++ b/man/itis.Rd @@ -25,7 +25,8 @@ On our website \url{https://msberends.gitlab.io/AMR} you can find \href{https:// \examples{ # Get a note when a species was renamed mo_shortname("Chlamydia psittaci") -# Note: 'Chlamydia psittaci' (Page, 1968) was renamed 'Chlamydophila psittaci' (Everett et al., 1999) +# Note: 'Chlamydia psittaci' (Page, 1968) was renamed +# 'Chlamydophila psittaci' (Everett et al., 1999) # [1] "C. psittaci" # Get any property from the entire taxonomic tree for all included species