From fee00582840cb981f9f9c8f2fd092c32f707bb18 Mon Sep 17 00:00:00 2001 From: flakesw <33131088+flakesw@users.noreply.github.com> Date: Wed, 6 Mar 2019 19:45:37 -0300 Subject: [PATCH] Updated some figures Fixed up the import and wrangling of Greenwood data to allow comparisons over time (again). TODO: fix the effects plots --- .Rproj.user/EAEB7255/console06/98DD95A6 | 4 + .Rproj.user/EAEB7255/console06/INDEX001 | 2 +- .Rproj.user/EAEB7255/pcs/source-pane.pper | 2 +- .../EAEB7255/pcs/windowlayoutstate.pper | 2 +- .Rproj.user/EAEB7255/sources/per/t/679490EB | 29 -- .Rproj.user/EAEB7255/sources/per/t/6DD0CFE5 | 29 -- .Rproj.user/EAEB7255/sources/per/t/7EBDE282 | 29 -- .Rproj.user/EAEB7255/sources/per/t/EE7BA85C | 23 - .Rproj.user/EAEB7255/sources/prop/25B4B1DC | 4 + .Rproj.user/EAEB7255/sources/prop/2A13C8B0 | 4 +- .Rproj.user/EAEB7255/sources/prop/2C2B9CE | 2 + .Rproj.user/EAEB7255/sources/prop/5E4621F | 4 + .Rproj.user/EAEB7255/sources/prop/8DF0DCEC | 4 + .Rproj.user/EAEB7255/sources/prop/A1FFFDE6 | 4 +- .Rproj.user/EAEB7255/sources/prop/D455C530 | 4 +- .Rproj.user/EAEB7255/sources/prop/INDEX | 3 + .../17AED2FF-contents} | 0 .../488CD1EA-contents} | 12 +- .../49D1D8FF-contents} | 0 .../71D46E86-contents} | 0 .../9CCF2D15-contents} | 0 .../{per/t/BBCED885 => s-A74A5E15/9E5C163F} | 16 +- .../9E5C163F-contents} | 90 ++-- .../{per/t/F6290AA8 => s-A74A5E15/A8857C5B} | 16 +- .../sources/s-A74A5E15/A8857C5B-contents | 0 .../sources/s-A74A5E15/AD22B2CF-contents | 439 +++++++++++++++++ .../B0ABC46C-contents} | 0 .../sources/s-A74A5E15/C58850AC-contents | 95 ++++ .../sources/s-A74A5E15/C9AC37D6-contents | 404 ++++++++++++++++ .../sources/s-A74A5E15/DC1CB2D9-contents | 397 ++++++++++++++++ .../{per/t/8F5BFB6A => s-A74A5E15/E666EB0A} | 14 +- .../sources/s-A74A5E15/E666EB0A-contents | 95 ++++ .../EAEB7255/sources/s-A74A5E15/F8B392EE | 22 + .../sources/s-A74A5E15/F8B392EE-contents | 447 ++++++++++++++++++ .../EAEB7255/sources/s-A74A5E15/lock_file | 0 .../EAEB7255/viewer-cache/29B3C11D.Rdata | Bin 19424 -> 0 bytes .../EAEB7255/viewer-cache/6F672F8B.Rdata | Bin 2739 -> 0 bytes .../EAEB7255/viewer-cache/71129F7A.Rdata | Bin 13424 -> 0 bytes .../EAEB7255/viewer-cache/EDD72D8A.Rdata | Bin 9616 -> 0 bytes .Rproj.user/shared/notebooks/paths | 3 + Rplots.pdf | Bin 3448 -> 3448 bytes change_in_cover.png | Bin 23470 -> 23584 bytes electivity.png | Bin 36604 -> 27969 bytes outputs/change_in_cover.png | Bin 23470 -> 0 bytes outputs/cheatgrass_change_effect.png | Bin 9335 -> 0 bytes outputs/understory_effects.png | Bin 74415 -> 77983 bytes plot_level_understory.R | 90 ++-- understory_effects_plots.R | 148 +++--- understory_electivity.R | 24 +- 49 files changed, 2166 insertions(+), 295 deletions(-) create mode 100644 .Rproj.user/EAEB7255/console06/98DD95A6 delete mode 100644 .Rproj.user/EAEB7255/sources/per/t/679490EB delete mode 100644 .Rproj.user/EAEB7255/sources/per/t/6DD0CFE5 delete mode 100644 .Rproj.user/EAEB7255/sources/per/t/7EBDE282 delete mode 100644 .Rproj.user/EAEB7255/sources/per/t/EE7BA85C create mode 100644 .Rproj.user/EAEB7255/sources/prop/25B4B1DC create mode 100644 .Rproj.user/EAEB7255/sources/prop/2C2B9CE create mode 100644 .Rproj.user/EAEB7255/sources/prop/5E4621F create mode 100644 .Rproj.user/EAEB7255/sources/prop/8DF0DCEC rename .Rproj.user/EAEB7255/sources/{per/t/679490EB-contents => s-A74A5E15/17AED2FF-contents} (100%) rename .Rproj.user/EAEB7255/sources/{per/t/EE7BA85C-contents => s-A74A5E15/488CD1EA-contents} (99%) rename .Rproj.user/EAEB7255/sources/{per/t/6DD0CFE5-contents => s-A74A5E15/49D1D8FF-contents} (100%) rename .Rproj.user/EAEB7255/sources/{per/t/7EBDE282-contents => s-A74A5E15/71D46E86-contents} (100%) rename .Rproj.user/EAEB7255/sources/{per/t/F6290AA8-contents => s-A74A5E15/9CCF2D15-contents} (100%) rename .Rproj.user/EAEB7255/sources/{per/t/BBCED885 => s-A74A5E15/9E5C163F} (56%) rename .Rproj.user/EAEB7255/sources/{per/t/BBCED885-contents => s-A74A5E15/9E5C163F-contents} (86%) rename .Rproj.user/EAEB7255/sources/{per/t/F6290AA8 => s-A74A5E15/A8857C5B} (67%) create mode 100644 .Rproj.user/EAEB7255/sources/s-A74A5E15/A8857C5B-contents create mode 100644 .Rproj.user/EAEB7255/sources/s-A74A5E15/AD22B2CF-contents rename .Rproj.user/EAEB7255/sources/{per/t/8F5BFB6A-contents => s-A74A5E15/B0ABC46C-contents} (100%) create mode 100644 .Rproj.user/EAEB7255/sources/s-A74A5E15/C58850AC-contents create mode 100644 .Rproj.user/EAEB7255/sources/s-A74A5E15/C9AC37D6-contents create mode 100644 .Rproj.user/EAEB7255/sources/s-A74A5E15/DC1CB2D9-contents rename .Rproj.user/EAEB7255/sources/{per/t/8F5BFB6A => s-A74A5E15/E666EB0A} (63%) create mode 100644 .Rproj.user/EAEB7255/sources/s-A74A5E15/E666EB0A-contents create mode 100644 .Rproj.user/EAEB7255/sources/s-A74A5E15/F8B392EE create mode 100644 .Rproj.user/EAEB7255/sources/s-A74A5E15/F8B392EE-contents create mode 100644 .Rproj.user/EAEB7255/sources/s-A74A5E15/lock_file delete mode 100644 .Rproj.user/EAEB7255/viewer-cache/29B3C11D.Rdata delete mode 100644 .Rproj.user/EAEB7255/viewer-cache/6F672F8B.Rdata delete mode 100644 .Rproj.user/EAEB7255/viewer-cache/71129F7A.Rdata delete mode 100644 .Rproj.user/EAEB7255/viewer-cache/EDD72D8A.Rdata delete mode 100644 outputs/change_in_cover.png delete mode 100644 outputs/cheatgrass_change_effect.png diff --git a/.Rproj.user/EAEB7255/console06/98DD95A6 b/.Rproj.user/EAEB7255/console06/98DD95A6 new file mode 100644 index 0000000..994544e --- /dev/null +++ b/.Rproj.user/EAEB7255/console06/98DD95A6 @@ -0,0 +1,4 @@ +Microsoft Windows [Version 6.1.7601][?25l +Copyright (c) 2009 Microsoft Corporation. All rights reserved. + +C:\Users\Sam\Documents\Research\MS Thesis\Understory>[?25h \ No newline at end of file diff --git a/.Rproj.user/EAEB7255/console06/INDEX001 b/.Rproj.user/EAEB7255/console06/INDEX001 index 0637a08..7b88d0e 100644 --- a/.Rproj.user/EAEB7255/console06/INDEX001 +++ b/.Rproj.user/EAEB7255/console06/INDEX001 @@ -1 +1 @@ -[] \ No newline at end of file +[{"allow_restart":true,"alt_buffer":false,"autoclose":1,"buffered_output":"","caption":"Terminal 1","channel_id":"7526","channel_mode":1,"child_procs":false,"cols":93,"cwd":"","exit_code":15,"handle":"98DD95A6","interaction_mode":2,"max_output_lines":1000,"restarted":false,"rows":48,"shell_type":3,"show_on_output":false,"terminal_sequence":1,"title":"","track_env":false,"zombie":false}] \ No newline at end of file diff --git a/.Rproj.user/EAEB7255/pcs/source-pane.pper b/.Rproj.user/EAEB7255/pcs/source-pane.pper index 1743e40..9efb51b 100644 --- a/.Rproj.user/EAEB7255/pcs/source-pane.pper +++ b/.Rproj.user/EAEB7255/pcs/source-pane.pper @@ -1,3 +1,3 @@ { - "activeTab" : 0 + "activeTab" : -1 } \ No newline at end of file diff --git a/.Rproj.user/EAEB7255/pcs/windowlayoutstate.pper b/.Rproj.user/EAEB7255/pcs/windowlayoutstate.pper index 3745081..48df712 100644 --- a/.Rproj.user/EAEB7255/pcs/windowlayoutstate.pper +++ b/.Rproj.user/EAEB7255/pcs/windowlayoutstate.pper @@ -2,7 +2,7 @@ "left" : { "panelheight" : 779, "splitterpos" : 326, - "topwindowstate" : "NORMAL", + "topwindowstate" : "HIDE", "windowheight" : 817 }, "right" : { diff --git a/.Rproj.user/EAEB7255/sources/per/t/679490EB b/.Rproj.user/EAEB7255/sources/per/t/679490EB deleted file mode 100644 index 8ce3d6b..0000000 --- a/.Rproj.user/EAEB7255/sources/per/t/679490EB +++ /dev/null @@ -1,29 +0,0 @@ -{ - "collab_server" : "", - "contents" : "", - "created" : 1536263599868.000, - "dirty" : false, - "encoding" : "", - "folds" : "", - "hash" : "0", - "id" : "679490EB", - "lastKnownWriteTime" : 7308604914264011873, - "last_content_update" : 1536263599868, - "path" : null, - "project_path" : null, - "properties" : { - "cacheKey" : "29B3C11D", - "caption" : "ms", - "contentUrl" : "grid_resource/gridviewer.html?env=&obj=ms&cache_key=29B3C11D", - "displayedObservations" : "1020", - "environment" : "", - "object" : "ms", - "preview" : "0", - "totalObservations" : "1020", - "variables" : "13" - }, - "relative_order" : 5, - "source_on_save" : false, - "source_window" : "", - "type" : "r_dataframe" -} \ No newline at end of file diff --git a/.Rproj.user/EAEB7255/sources/per/t/6DD0CFE5 b/.Rproj.user/EAEB7255/sources/per/t/6DD0CFE5 deleted file mode 100644 index 9fb9528..0000000 --- a/.Rproj.user/EAEB7255/sources/per/t/6DD0CFE5 +++ /dev/null @@ -1,29 +0,0 @@ -{ - "collab_server" : "", - "contents" : "", - "created" : 1547069427357.000, - "dirty" : false, - "encoding" : "", - "folds" : "", - "hash" : "0", - "id" : "6DD0CFE5", - "lastKnownWriteTime" : 1546898750, - "last_content_update" : 1547069427357, - "path" : null, - "project_path" : null, - "properties" : { - "cacheKey" : "6F672F8B", - "caption" : "plot_daub_cover", - "contentUrl" : "grid_resource/gridviewer.html?env=&obj=plot_daub_cover&cache_key=6F672F8B", - "displayedObservations" : 102, - "environment" : "", - "object" : "plot_daub_cover", - "preview" : 0, - "totalObservations" : 102, - "variables" : 13 - }, - "relative_order" : 9, - "source_on_save" : false, - "source_window" : "", - "type" : "r_dataframe" -} \ No newline at end of file diff --git a/.Rproj.user/EAEB7255/sources/per/t/7EBDE282 b/.Rproj.user/EAEB7255/sources/per/t/7EBDE282 deleted file mode 100644 index 8eeb248..0000000 --- a/.Rproj.user/EAEB7255/sources/per/t/7EBDE282 +++ /dev/null @@ -1,29 +0,0 @@ -{ - "collab_server" : "", - "contents" : "", - "created" : 1536262763531.000, - "dirty" : false, - "encoding" : "", - "folds" : "", - "hash" : "0", - "id" : "7EBDE282", - "lastKnownWriteTime" : 7308604914264011873, - "last_content_update" : 1536262763531, - "path" : null, - "project_path" : null, - "properties" : { - "cacheKey" : "71129F7A", - "caption" : "spp_cov", - "contentUrl" : "grid_resource/gridviewer.html?env=&obj=spp_cov&cache_key=71129F7A", - "displayedObservations" : 2002, - "environment" : "", - "object" : "spp_cov", - "preview" : 0, - "totalObservations" : 2002, - "variables" : 5 - }, - "relative_order" : 4, - "source_on_save" : false, - "source_window" : "", - "type" : "r_dataframe" -} \ No newline at end of file diff --git a/.Rproj.user/EAEB7255/sources/per/t/EE7BA85C b/.Rproj.user/EAEB7255/sources/per/t/EE7BA85C deleted file mode 100644 index 127c787..0000000 --- a/.Rproj.user/EAEB7255/sources/per/t/EE7BA85C +++ /dev/null @@ -1,23 +0,0 @@ -{ - "collab_server" : "", - "contents" : "", - "created" : 1546972070942.000, - "dirty" : false, - "encoding" : "UTF-8", - "folds" : "", - "hash" : "495975393", - "id" : "EE7BA85C", - "lastKnownWriteTime" : 1547068489, - "last_content_update" : 1547068489536, - "path" : "~/Research/MS Thesis/Understory/understory_electivity.R", - "project_path" : "understory_electivity.R", - "properties" : { - "cursorPosition" : "6,18", - "scrollLine" : "0", - "tempName" : "Untitled1" - }, - "relative_order" : 8, - "source_on_save" : false, - "source_window" : "", - "type" : "r_source" -} \ No newline at end of file diff --git a/.Rproj.user/EAEB7255/sources/prop/25B4B1DC b/.Rproj.user/EAEB7255/sources/prop/25B4B1DC new file mode 100644 index 0000000..652161e --- /dev/null +++ b/.Rproj.user/EAEB7255/sources/prop/25B4B1DC @@ -0,0 +1,4 @@ +{ + "cursorPosition" : "36,29", + "scrollLine" : "27" +} \ No newline at end of file diff --git a/.Rproj.user/EAEB7255/sources/prop/2A13C8B0 b/.Rproj.user/EAEB7255/sources/prop/2A13C8B0 index 241bcf3..3dff34d 100644 --- a/.Rproj.user/EAEB7255/sources/prop/2A13C8B0 +++ b/.Rproj.user/EAEB7255/sources/prop/2A13C8B0 @@ -1,4 +1,4 @@ { - "cursorPosition" : "180,52", - "scrollLine" : "162" + "cursorPosition" : "298,47", + "scrollLine" : "286" } \ No newline at end of file diff --git a/.Rproj.user/EAEB7255/sources/prop/2C2B9CE b/.Rproj.user/EAEB7255/sources/prop/2C2B9CE new file mode 100644 index 0000000..7a73a41 --- /dev/null +++ b/.Rproj.user/EAEB7255/sources/prop/2C2B9CE @@ -0,0 +1,2 @@ +{ +} \ No newline at end of file diff --git a/.Rproj.user/EAEB7255/sources/prop/5E4621F b/.Rproj.user/EAEB7255/sources/prop/5E4621F new file mode 100644 index 0000000..652161e --- /dev/null +++ b/.Rproj.user/EAEB7255/sources/prop/5E4621F @@ -0,0 +1,4 @@ +{ + "cursorPosition" : "36,29", + "scrollLine" : "27" +} \ No newline at end of file diff --git a/.Rproj.user/EAEB7255/sources/prop/8DF0DCEC b/.Rproj.user/EAEB7255/sources/prop/8DF0DCEC new file mode 100644 index 0000000..1c98d2e --- /dev/null +++ b/.Rproj.user/EAEB7255/sources/prop/8DF0DCEC @@ -0,0 +1,4 @@ +{ + "cursorPosition" : "13,21", + "scrollLine" : "4" +} \ No newline at end of file diff --git a/.Rproj.user/EAEB7255/sources/prop/A1FFFDE6 b/.Rproj.user/EAEB7255/sources/prop/A1FFFDE6 index fb1ea21..1529b1f 100644 --- a/.Rproj.user/EAEB7255/sources/prop/A1FFFDE6 +++ b/.Rproj.user/EAEB7255/sources/prop/A1FFFDE6 @@ -1,4 +1,4 @@ { - "cursorPosition" : "94,50", - "scrollLine" : "20" + "cursorPosition" : "23,28", + "scrollLine" : "17" } \ No newline at end of file diff --git a/.Rproj.user/EAEB7255/sources/prop/D455C530 b/.Rproj.user/EAEB7255/sources/prop/D455C530 index 245dc77..b709900 100644 --- a/.Rproj.user/EAEB7255/sources/prop/D455C530 +++ b/.Rproj.user/EAEB7255/sources/prop/D455C530 @@ -1,5 +1,5 @@ { - "cursorPosition" : "6,18", - "scrollLine" : "0", + "cursorPosition" : "359,2", + "scrollLine" : "348", "tempName" : "Untitled1" } \ No newline at end of file diff --git a/.Rproj.user/EAEB7255/sources/prop/INDEX b/.Rproj.user/EAEB7255/sources/prop/INDEX index 9399f56..a632a06 100644 --- a/.Rproj.user/EAEB7255/sources/prop/INDEX +++ b/.Rproj.user/EAEB7255/sources/prop/INDEX @@ -15,7 +15,10 @@ C%3A%2FUsers%2FSam%2FGoogle%20Drive%2FThesis%20related%2FUnderstory%2Funderstory C%3A%2FUsers%2FSam%2FGoogle%20Drive%2FThesis%20related%2FUnderstory%2Funderstory_effects_plots.R="5FD4B92F" C%3A%2FUsers%2FSam%2FGoogle%20Drive%2FThesis%20related%2FUnderstory%2Funderstory_electivity.R="16C87132" ~%2FResearch%2FMS%20Thesis%2FUnderstory%2Fplot_level_understory.R="2A13C8B0" +~%2FResearch%2FMS%20Thesis%2FUnderstory%2Fplot_level_understory_082418.R="25B4B1DC" ~%2FResearch%2FMS%20Thesis%2FUnderstory%2Fplot_level_understory_090618.R="B04D5E6E" +~%2FResearch%2FMS%20Thesis%2FUnderstory%2Fplot_level_understory_112817.R="5E4621F" ~%2FResearch%2FMS%20Thesis%2FUnderstory%2Funderstory_data_prep.R="A1FFFDE6" +~%2FResearch%2FMS%20Thesis%2FUnderstory%2Funderstory_effects_plots.R="8DF0DCEC" ~%2FResearch%2FMS%20Thesis%2FUnderstory%2Funderstory_electivity.R="D455C530" ~%2FResearch%2FMS%20Thesis%2FUnderstory%2Funderstory_electivity010819.R="8CD3B36B" diff --git a/.Rproj.user/EAEB7255/sources/per/t/679490EB-contents b/.Rproj.user/EAEB7255/sources/s-A74A5E15/17AED2FF-contents similarity index 100% rename from .Rproj.user/EAEB7255/sources/per/t/679490EB-contents rename to .Rproj.user/EAEB7255/sources/s-A74A5E15/17AED2FF-contents diff --git a/.Rproj.user/EAEB7255/sources/per/t/EE7BA85C-contents b/.Rproj.user/EAEB7255/sources/s-A74A5E15/488CD1EA-contents similarity index 99% rename from .Rproj.user/EAEB7255/sources/per/t/EE7BA85C-contents rename to .Rproj.user/EAEB7255/sources/s-A74A5E15/488CD1EA-contents index 5fc890e..d70bd7e 100644 --- a/.Rproj.user/EAEB7255/sources/per/t/EE7BA85C-contents +++ b/.Rproj.user/EAEB7255/sources/s-A74A5E15/488CD1EA-contents @@ -143,10 +143,10 @@ plots_to_use <- unique(ms$Plot)[plots_to_use_dead & plots_to_use_live] #------------------------------------------------------------------------------ #perform analysis for the four FTs types <- c("All", "Perennial grass", "Cheatgrass", "Perennial forb", "Shrub") - +ntypes <- length(types) #initialize a list of dataframes to catch the electivities at each plot/FT elect_results <- list() -for(i in 1:5){ +for(i in 1:ntypes){ elect_results[[i]] <- data.frame(Plot = numeric(0), Dead = numeric(0), Live = numeric(0), @@ -206,7 +206,7 @@ nit <- 999 #number of monte carlo draws #initialize a list of dataframes to catch the electivities at each plot/FT elect_means <- list() -for(i in 1:5){ +for(i in 1:ntypes){ elect_means[[i]] <- data.frame(Iter = numeric(0), Dead = numeric(0), Live = numeric(0), @@ -279,7 +279,7 @@ for(type in types){ results_boots <- list() -for(i in 1:5){ +for(i in 1:ntypes){ results_boots[[i]] <- data.frame(Dead = numeric(2), Live = numeric(2), Inter = numeric(2), @@ -291,7 +291,7 @@ for(i in 1:5){ names(results_boots) <- types #calculate p-values from distribution of bootstrapped mean electivities -for(i in 1:5){ +for(i in 1:ntypes){ emp_mean <- apply(elect_results[[i]][, 2:7], 2, FUN = function(x){mean(x, na.rm = TRUE)}) pvals <- c(sum(elect_means[[i]][2] > emp_mean[1]), @@ -327,7 +327,7 @@ par(mfrow = c(3,2), mar = c(2,1,1,2), oma = c(2,3,1,0)) -for(i in 1:5){ +for(i in 1:ntypes){ melt_elect <- melt(elect_results[[i]][, 2:4]) plot(melt_elect$value ~ I(as.numeric(melt_elect$variable)+ runif(nrow(melt_elect), -.1, .1 )), diff --git a/.Rproj.user/EAEB7255/sources/per/t/6DD0CFE5-contents b/.Rproj.user/EAEB7255/sources/s-A74A5E15/49D1D8FF-contents similarity index 100% rename from .Rproj.user/EAEB7255/sources/per/t/6DD0CFE5-contents rename to .Rproj.user/EAEB7255/sources/s-A74A5E15/49D1D8FF-contents diff --git a/.Rproj.user/EAEB7255/sources/per/t/7EBDE282-contents b/.Rproj.user/EAEB7255/sources/s-A74A5E15/71D46E86-contents similarity index 100% rename from .Rproj.user/EAEB7255/sources/per/t/7EBDE282-contents rename to .Rproj.user/EAEB7255/sources/s-A74A5E15/71D46E86-contents diff --git a/.Rproj.user/EAEB7255/sources/per/t/F6290AA8-contents b/.Rproj.user/EAEB7255/sources/s-A74A5E15/9CCF2D15-contents similarity index 100% rename from .Rproj.user/EAEB7255/sources/per/t/F6290AA8-contents rename to .Rproj.user/EAEB7255/sources/s-A74A5E15/9CCF2D15-contents diff --git a/.Rproj.user/EAEB7255/sources/per/t/BBCED885 b/.Rproj.user/EAEB7255/sources/s-A74A5E15/9E5C163F similarity index 56% rename from .Rproj.user/EAEB7255/sources/per/t/BBCED885 rename to .Rproj.user/EAEB7255/sources/s-A74A5E15/9E5C163F index 8dd655d..8551ebe 100644 --- a/.Rproj.user/EAEB7255/sources/per/t/BBCED885 +++ b/.Rproj.user/EAEB7255/sources/s-A74A5E15/9E5C163F @@ -1,21 +1,21 @@ { "collab_server" : "", "contents" : "", - "created" : 1547060059118.000, + "created" : 1547225685816.000, "dirty" : false, "encoding" : "UTF-8", "folds" : "", - "hash" : "482206355", - "id" : "BBCED885", - "lastKnownWriteTime" : 1547087115, - "last_content_update" : 1547087115203, + "hash" : "1518548566", + "id" : "9E5C163F", + "lastKnownWriteTime" : 1551912261, + "last_content_update" : 1551912261877, "path" : "~/Research/MS Thesis/Understory/plot_level_understory.R", "project_path" : "plot_level_understory.R", "properties" : { - "cursorPosition" : "180,52", - "scrollLine" : "162" + "cursorPosition" : "298,47", + "scrollLine" : "286" }, - "relative_order" : 8, + "relative_order" : 1, "source_on_save" : false, "source_window" : "", "type" : "r_source" diff --git a/.Rproj.user/EAEB7255/sources/per/t/BBCED885-contents b/.Rproj.user/EAEB7255/sources/s-A74A5E15/9E5C163F-contents similarity index 86% rename from .Rproj.user/EAEB7255/sources/per/t/BBCED885-contents rename to .Rproj.user/EAEB7255/sources/s-A74A5E15/9E5C163F-contents index f691c4c..1fc9220 100644 --- a/.Rproj.user/EAEB7255/sources/per/t/BBCED885-contents +++ b/.Rproj.user/EAEB7255/sources/s-A74A5E15/9E5C163F-contents @@ -11,8 +11,8 @@ library("plyr") setwd("C:/Users/Sam/Documents/Research/MS Thesis/Understory") plot_data <- read.csv("./clean data/plot_data.csv") +greenwood_under <- read.csv("./raw data/Greenwood_Understory_Variables_SF_edits.csv") -# process other files and import #------------------------------------------------------------ # Analysis @@ -22,7 +22,7 @@ plot_data <- read.csv("./clean data/plot_data.csv") #exploration hist(asin(sqrt(plot_data$All/100))) hist(logit(plot_data$All/100 + min(plot_data[plot_data$All != 0, "All"]))) -hist(log(plot_data$All/100 + .01)) +hist(log(plot_data$All/100)) hist(asin(sqrt(plot_data$Cheatgrass/100))) hist(logit(plot_data$Cheatgrass/100 + min(plot_data[plot_data$Cheatgrass != 0, "Cheatgrass"]))) @@ -48,13 +48,32 @@ plot(plot_data$Cheatgrass ~ plot_data$cwd_normal_cum) #--------------------------------------------------------------- #linear mixed effects models for functional groups at plot level #------------------------------------------------------------------- + +## all + +all_plot <- lmer(asin(sqrt(All/100)) ~ scale(Tree_cover) + scale(Delta_pdc)*scale(cwd_normal_cum) + + scale(AWC) + (1|Cluster), data = plot_data) + +all_plot <- lmer(logit(All/100) ~ scale(Tree_cover) + scale(Delta_pdc)*scale(cwd_normal_cum) + + scale(AWC) + (1|Cluster), data = plot_data) + +summary(lm(asin(sqrt(All/100)) ~ scale(Tree_cover) + scale(Delta_pdc)*scale(cwd_normal_cum) + + scale(AWC), data = plot_data)) + +summary(all_plot, ddf = "Kenward-Roger") +r.squaredGLMM(all_plot) +plot(allEffects(all_plot, partial.residuals = TRUE)) +plot(all_plot) +AICc(all_plot) +scatter.smooth(residuals(all_plot) ~ predict(all_plot)) + ## Cheatgrass cheatgrass_plot <- lmer(asin(sqrt(Cheatgrass/100)) ~ scale(Tree_cover) + scale(Delta_pdc)*scale(cwd_normal_cum) + scale(AWC) + (1|Cluster), data = plot_data) -cheatgrass_plot <- lmer(logit(Cheatgrass/100) ~ scale(Tree_cover) + scale(Delta_pdc)*scale(cwd_normal_cum) + - scale(AWC) + (1|Cluster), data = plot_data) +# cheatgrass_plot <- lmer(logit(Cheatgrass/100) ~ scale(Tree_cover) + scale(Delta_pdc)*scale(cwd_normal_cum) + + # scale(AWC) + (1|Cluster), data = plot_data) summary(lm(asin(sqrt(Cheatgrass/100)) ~ scale(Tree_cover) + scale(Delta_pdc)*scale(cwd_normal_cum) + scale(AWC), data = plot_data)) @@ -86,35 +105,40 @@ plot(pgrass_plot) pforb_plot <- lmer(asin(sqrt(Pforb/100)) ~ scale(Tree_cover) + scale(Delta_pdc)*scale(cwd_normal_cum) + scale(AWC) + (1|Cluster), data = plot_data) -summary(lm(asin(sqrt(Pforb/100)) ~ scale(Tree_cover) + scale(Delta_pdc)*scale(cwd_normal_cum) + - scale(AWC), data = plot_data)) - summary(pforb_plot, ddf = "Kenward-Roger") r.squaredGLMM(pforb_plot) plot(allEffects(pforb_plot, partial.residuals = TRUE)) +plot(inv.as(predict(pforb_plot)) ~ I(plot_data$Pforb/100)) +abline(0,1) plot(pforb_plot) ## Shrubs shrub_plot <- lmer(asin(sqrt(Shrub_cover_li)) ~ scale(Tree_cover) + scale(Delta_pdc)*scale(cwd_normal_cum) + scale(AWC) + (1|Cluster), data = plot_data) - -summary(lm(asin(sqrt(Shrub_cover_li)) ~ scale(Tree_cover) + scale(Delta_pdc)*scale(cwd_normal_cum) + - scale(AWC), data = plot_data)) +# shrub_plot <- lmer(log(Shrub_cover_li+.01) ~ scale(Tree_cover) + scale(Delta_pdc)*scale(cwd_normal_cum) + +# scale(AWC) + (1|Cluster), data = plot_data) summary(shrub_plot, ddf = "Kenward-Roger") r.squaredGLMM(shrub_plot) plot(allEffects(shrub_plot, partial.residuals = TRUE)) +plot(inv.as(predict(shrub_plot)) ~ I(plot_data$Shrub_cover_li)) +abline(0,1) plot(shrub_plot) +### Plot regression coefficients +library(coefplot2) +coefplot2(pgrass_plot) +coefplot2(cheatgrass_plot, add = TRUE, spacing = 10) + + + #----------------------------------------------- # Comparison of greenwood and 2015 #----------------------------------------------- -compare <- join(plot_daub_cover, greenwood_under, by = "Plot", type = "inner") -compare <- join(compare, tcover[, c("Plot", "Tree_cover", "Shrub_cover_li")], by = "Plot", type = "inner") -compare <- join(compare, plot_data[, c("Plot", "Dead_ba", "Delta_pdc", "cwd_normal_cum")], by = "Plot") +compare <- join(plot_data, greenwood_under, by = "Plot", type = "inner") #cheatgrass plot(compare$Cheatgrass ~ compare$Cheatgrass.Cover) @@ -159,7 +183,7 @@ mean(compare$Pgrass-compare$Perrenial.Grass.Cover) t.test(compare$Pgrass, compare$Perrenial.Grass.Cover, paired = TRUE, alternative="less") wilcox.test(compare$Pgrass, compare$Perrenial.Grass.Cover, paired = TRUE, alternative="less") -pg_change_lm <- lm(Pgrass - Perrenial.Grass.Cover ~ Delta_pdc*cwd_normal_cum, data= compare[-5,]) +pg_change_lm <- lm(Pgrass - Perrenial.Grass.Cover ~ Delta_pdc*cwd_normal_cum, data= compare) summary(pg_change_lm) ## Perr forb @@ -172,7 +196,7 @@ mean(I(compare$Aforb + compare$Pforb) - compare$Forb.Cover) t.test(I(compare$Aforb + compare$Pforb), compare$Forb.Cover, paired = TRUE, alternative="less") wilcox.test(I(compare$Aforb + compare$Pforb), compare$Forb.Cover, paired = TRUE, alternative="less") -pf_change_lm <- lm(Aforb + Pforb - Forb.Cover ~ Delta_pdc*cwd_normal_cum, data= compare[-5,]) +pf_change_lm <- lm(Aforb + Pforb - Forb.Cover ~ Delta_pdc*cwd_normal_cum, data= compare) summary(pf_change_lm) ## Shrub @@ -187,7 +211,7 @@ t.test(compare$Shrub, compare$Shrub.Cover.Total, paired = TRUE, alternative="les wilcox.test(compare$Shrub, compare$Shrub.Cover.Total, paired = TRUE, alternative="less") hist(compare$Shrub - I(compare$Shrub.Cover.Total)) -s_change_lm <- lm(Shrub - Shrub.Cover.Total ~ Delta_pdc*cwd_normal_cum, data= compare[-5,]) +s_change_lm <- lm(Shrub - Shrub.Cover.Total ~ Delta_pdc*cwd_normal_cum, data= compare) summary(s_change_lm) ###################### @@ -199,7 +223,7 @@ png(filename="change_in_cover.png", type="cairo", units="in", width = 4, - height=6, + height=4, pointsize=12, res=160) @@ -223,6 +247,22 @@ plot(compare$Pgrass ~ compare$Perrenial.Grass.Cover, xlim = c(0,35), ylim = c(0, axis(side = 2, at = c(0,5,15,25,35), tcl = -.24, labels = FALSE) abline(0,1, lty = 2, col = 'grey30') +par(mar = c(2,2,2,1)) +plot(compare$Cheatgrass ~ compare$Cheatgrass.Cover, xlim = c(0, 20), ylim = c(0, 20), + xlab = "", ylab = "", main = "Cheatgrass", xaxt = 'n', yaxt = 'n', + bg='grey60', + col = 'grey30', + pch = 21, + cex = 1.5, + cex.axis = .8, + cex.main = 1.3) + axis(side = 1, at = c(0,5,10,15,20), labels = TRUE) + axis(side = 1, at = c(0,2.5,7.5,12.5,17.5), tcl = -.25, labels = FALSE) + axis(side = 2, at = c(0,5,10,15,20), labels = TRUE) + axis(side = 2, at = c(0,2.5,7.5,12.5,17.5), tcl = -.25, labels = FALSE) + abline(0,1, lty = 2, col = 'grey30') + + par(mar = c(2,2,2,1)) plot(compare$Pforb ~ compare$Forb.Cover, xlim = c(0, 12), ylim = c(0, 12), main = "Perennial Forb", xlab = "", ylab = "", xaxt = 'n', yaxt = 'n', @@ -255,21 +295,7 @@ plot(compare$Shrub ~ compare$Shrub.Cover.Total, xlim = c(0, 30), ylim = c(0,30), abline(0,1, lty = 2, col = 'grey30') -par(mar = c(2,2,2,1)) -plot(compare$Cheatgrass ~ compare$Cheatgrass.Cover, xlim = c(0, 20), ylim = c(0, 20), - xlab = "", ylab = "", main = "Cheatgrass", xaxt = 'n', yaxt = 'n', - bg='grey60', - col = 'grey30', - pch = 21, - cex = 1.5, - cex.axis = .8, - cex.main = 1.3) - axis(side = 1, at = c(0,5,10,15,20), labels = TRUE) - axis(side = 1, at = c(0,2.5,7.5,12.5,17.5), tcl = -.25, labels = FALSE) - axis(side = 2, at = c(0,5,10,15,20), labels = TRUE) - axis(side = 2, at = c(0,2.5,7.5,12.5,17.5), tcl = -.25, labels = FALSE) - abline(0,1, lty = 2, col = 'grey30') - + mtext("2005 Cover (%)", side = 1, outer = TRUE) mtext("2015 Cover (%)", side = 2, outer = TRUE) dev.off() diff --git a/.Rproj.user/EAEB7255/sources/per/t/F6290AA8 b/.Rproj.user/EAEB7255/sources/s-A74A5E15/A8857C5B similarity index 67% rename from .Rproj.user/EAEB7255/sources/per/t/F6290AA8 rename to .Rproj.user/EAEB7255/sources/s-A74A5E15/A8857C5B index be4d563..ff63e6e 100644 --- a/.Rproj.user/EAEB7255/sources/per/t/F6290AA8 +++ b/.Rproj.user/EAEB7255/sources/s-A74A5E15/A8857C5B @@ -1,28 +1,28 @@ { "collab_server" : "", "contents" : "", - "created" : 1536264339225.000, + "created" : 1551911591824.000, "dirty" : false, "encoding" : "", "folds" : "", "hash" : "0", - "id" : "F6290AA8", - "lastKnownWriteTime" : 7308604914264011873, - "last_content_update" : 1536264339225, + "id" : "A8857C5B", + "lastKnownWriteTime" : 1547476559, + "last_content_update" : 1551911591824, "path" : null, "project_path" : null, "properties" : { - "cacheKey" : "EDD72D8A", + "cacheKey" : "14D3D425", "caption" : "plot_data", - "contentUrl" : "grid_resource/gridviewer.html?env=&obj=plot_data&cache_key=EDD72D8A", + "contentUrl" : "grid_resource/gridviewer.html?env=&obj=plot_data&cache_key=14D3D425", "displayedObservations" : 102, "environment" : "", "object" : "plot_data", "preview" : 0, "totalObservations" : 102, - "variables" : 23 + "variables" : 25 }, - "relative_order" : 7, + "relative_order" : 4, "source_on_save" : false, "source_window" : "", "type" : "r_dataframe" diff --git a/.Rproj.user/EAEB7255/sources/s-A74A5E15/A8857C5B-contents b/.Rproj.user/EAEB7255/sources/s-A74A5E15/A8857C5B-contents new file mode 100644 index 0000000..e69de29 diff --git a/.Rproj.user/EAEB7255/sources/s-A74A5E15/AD22B2CF-contents b/.Rproj.user/EAEB7255/sources/s-A74A5E15/AD22B2CF-contents new file mode 100644 index 0000000..d7aa228 --- /dev/null +++ b/.Rproj.user/EAEB7255/sources/s-A74A5E15/AD22B2CF-contents @@ -0,0 +1,439 @@ +## Understory electivity +library(plyr) +library(vioplot) +library(reshape2) +library(multcompView) + +set.seed(16091315) + +daub <- read.csv("./raw data/daub_cover.csv", stringsAsFactors = FALSE) + +#some data proofing + daub <- daub[(daub$Transect %in% c("N", "E", "S", "W")), ] + daub$Plot <- as.character(daub$Plot) + daub[daub$Plot == "NPElectricEel", "Plot"] <- "NPELECTRICEEL" + daub[daub$Plot == "NPElectricEel120", "Plot"] <- "NPELECTRICEEL120" + daub[daub$Plot == "NPElectricEel240", "Plot"] <- "NPELECTRICEEL240" + daub[daub$Plot == "NPElectricEel360", "Plot"] <- "NPELECTRICEEL360" +daub$Midpoint.value <- as.numeric(as.character((daub$Midpoint.value))) +daub$unique_quad <- paste0(daub$Plot, daub$Transect, daub$Meter) +daub[daub$Cover.type == "Perennial forb ", "Cover.type"] <- "Perennial forb" +daub[daub$Cover.type == "Shrub ", "Cover.type"] <- "Shrub" + +species<- read.csv("./raw data/spp_cover2.csv") +species <- species[(species$Transect %in% c("N", "E", "S", "W")), ] +species$unique_quad <- paste0(species$Plot, species$Transect, species$Meter) + +count(species, vars = c("Plot", "Transect")) + +#----------------------------------------------------------------------- +# Calculate mean cover, cover by quadrat, cover by plot +#------------------------------------------------------------------- +# Mean overall cover +length(unique(daub$unique_quad)) +spp_abund <- aggregate(species$Cover / 2040, by = list(species$Species), FUN = sum) +spp_abund <- spp_abund[order(spp_abund[, 1], decreasing = FALSE), ] + + + +#percent of quadrats occupied +quadrat_abund <- as.data.frame(table(species[species$Cover != 0, ]$Species)) +quadrat_abund <- quadrat_abund[order(quadrat_abund[, 1], decreasing = FALSE), ] +quadrat_abund[, 2] <- quadrat_abund[, 2] * 100 / 2040 + + +count <- table(species$Species, species$Plot) +is.not.zero <- function(x){ + if((x) == 0){return(0)} + else{return(1)} +} + +presence <- apply(count, c(1,2), FUN = is.not.zero) +plot_presence <- as.data.frame(rowSums(presence))/102*100 + +spp_abund <- cbind(spp_abund, quadrat_abund[-1, 2], plot_presence[-1, 1]) + +write.csv(spp_abund, "./outputs/species_summary.csv") + + +## generate cover data for different subsets +n_quads_occ <- length(unique(species$unique_quad)) #number of quadrat-by-group records + +spp_cov <- data.frame(unique_quad = unique(species$unique_quad), + poasec = numeric(n_quads_occ), + othergrass = numeric(n_quads_occ), + phlhoo = numeric(n_quads_occ), + otherforb = numeric(n_quads_occ)) + + +for(i in 1:n_quads_occ){ + spp_cov$poasec[i] <- ifelse(species[species$unique_quad == spp_cov$unique_quad[i], ]$Species == "POASEC", + species[species$unique_quad == spp_cov$unique_quad[i] & species$Species == "POASEC", ]$Cover, 0) + + spp_cov$othergrass[i] <- ifelse(species[species$unique_quad == spp_cov$unique_quad[i], ]$Species %in% c("PSESPI", "LEYCIN", "ELYELY", "STITHU"), + sum(species[species$unique_quad == spp_cov$unique_quad[i] + & species$Species %in% c("PSESPI", "LEYCIN", "ELYELY", "STITHU"), ]$Cover), 0) + + spp_cov$phlhoo[i] <- ifelse(species[species$unique_quad == spp_cov$unique_quad[i], ]$Species == "PHLHOO", + species[species$unique_quad == spp_cov$unique_quad[i] & species$Species == "PHLHOO", ]$Cover, 0) + + spp_cov$otherforb[i] <- ifelse(species[species$unique_quad == spp_cov$unique_quad[i], ]$Species %in% c("CREACA", "CREACU", "STEACA", "ERICAE", "LEPPUN", "ERIUMB", "AREACU","LESKIN","GALAPA","ASTPUR","BALSAG","CRYFLA","ERIMIC","MINKIN","ASTOOP","OPUPOL","ARAHOL","ANTDIM","BOEHOL"), + sum(species[species$unique_quad == spp_cov$unique_quad[i] + & species$Species %in% c("CREACA", "CREACU", "STEACA", "ERICAE", "LEPPUN", "ERIUMB", "AREACU","LESKIN","GALAPA","ASTPUR","BALSAG","CRYFLA","ERIMIC","MINKIN","ASTOOP","OPUPOL","ARAHOL","ANTDIM","BOEHOL"), ]$Cover), 0) +} + +#---------------------------------------------------------------------------- + +# import and recode microsite data +ms <- read.csv("./raw data/microsite.csv") +ms$Microsite <- toupper(ms$Microsite) +ms$ms <- ifelse(ms$Microsite %in% c("PI", "JI", "CI", "PO", "JO", "CO"), "Live", + # ifelse(ms$Microsite %in% c("PO", "JO", "CO"), "Live Outer", + ifelse(ms$Microsite %in% c("PI(S)", "PO(S)", "JI(S)", "JO(S)", "CI(S)", "CO(S)", "LOG"), "Dead", + # ifelse(ms$Microsite =="LOG", "Log", + ifelse(ms$Microsite == "I", "Inter", NA)))#)) +ms[ms$Transect == "e", "Transect"] <- "E" +ms[ms$Transect == "s", "Transect"] <- "S" +ms[ms$Transect == "w", "Transect"] <- "W" +ms[ms$Transect == "n", "Transect"] <- "N" + +ms$Plot <- as.character(ms$Plot) + +ms <- ms[(ms$Transect %in% c("N", "S", "E", "W")), ] + +ms[ms$Plot == "NPElectricEel120", "Plot"] <- "NPELECTRICEEL120" + + +ms$unique_quad <- paste0(ms$Plot, ms$Transect, ms$Meter) + +#get total cover for each plot +total_cover <- aggregate(daub$Midpoint.value, by = list(daub$Plot, daub$Cover.type), FUN = sum) + +## select which plots have enough microsites of each type +# this is a real friggin mess but it pulls out the plots which have +# at least n_plots dead and at least n_plots live ms +plots_to_use_dead <- NA +plots_to_use_live <- NA +n_plots <- 1 + +for(i in 1:length(unique(ms$Plot))){ + table <- table(ms[ms$Plot == unique(ms$Plot)[i], ]$ms) + + if("Dead" %in% names(table)){ + plots_to_use_dead[i] <- table["Dead"] + } else{ + plots_to_use_dead[i] <- 0 + } + + if("Live" %in% names(table)){ + plots_to_use_live[i] <- table["Live"] + } else{ + plots_to_use_live[i] <- 0 + } +} + +plots_to_use_dead <- (plots_to_use_dead >= n_plots) +plots_to_use_live <- (plots_to_use_live >= n_plots) + +plots_to_use <- unique(ms$Plot)[plots_to_use_dead & plots_to_use_live] + + +#------------------------------------------------------------------------------ +# Calculate test and randomized distributions +#------------------------------------------------------------------------------ +#perform analysis for the four FTs +types <- c("Perennial grass", "Cheatgrass", "Perennial forb", "Shrub") +ntypes <- length(types) +#initialize a list of dataframes to catch the electivities at each plot/FT +elect_results <- list() +for(i in 1:ntypes){ + elect_results[[i]] <- data.frame(Plot = numeric(0), + Dead = numeric(0), + Live = numeric(0), + Inter = numeric(0), + DL = numeric(0), + DI = numeric(0), + LI = numeric(0)) +} +names(elect_results) <- types + + +for(type in types){ + + for (i in 1:length(plots_to_use)){ + + if(type == "All"){ + daub_cov <- daub[daub$Plot == as.character(plots_to_use[i]), ] + daub_cov <- daub_cov[daub_cov$Cover.type %in% c("Cheatgrass", "Other Ann Grass", + "Perennial grass", "Annual forb", "Perennial forb", "Shrub"), ] + daub_cov_2 <- aggregate(daub_cov$Midpoint.value, by = list(daub_cov$unique_quad), FUN = sum) + names(daub_cov_2) <- c("unique_quad", "Midpoint.value") + daub_cov <- join(daub_cov_2, ms[, c("unique_quad", "ms")], by = "unique_quad", type = "inner") + }else{ + daub_cov <- daub[daub$Cover.type == type & daub$Plot == as.character(plots_to_use[i]), ] + daub_cov <- join(daub_cov, ms[, c("unique_quad", "ms")], by = "unique_quad", type = "inner") + + } + + daub_cov$prop_cov <- daub_cov$Midpoint.value / sum(daub_cov$Midpoint.value) + + cov <- aggregate(daub_cov[, "prop_cov"], by = list(daub_cov$ms), FUN = sum) + + prev <- table(daub_cov$ms)/20 + + #this is a mess because tables are hard to use. There's definitely a better way to do this + elect <- data.frame(Plot = plots_to_use[i], + Dead = (cov[cov$Group.1 == "Dead",2] - prev[which(names(prev) == "Dead")]) / + (cov[cov$Group.1 == "Dead", 2] + prev[which(names(prev) == "Dead")]), + Live = (cov[cov$Group.1 == "Live",2] - prev[which(names(prev) == "Live")]) / + (cov[cov$Group.1 == "Live",2] + prev[which(names(prev) == "Live")]), + Inter = (cov[cov$Group.1 == "Inter",2] - prev[which(names(prev) == "Inter")]) / + (cov[cov$Group.1 == "Inter",2] + prev[which(names(prev) == "Inter")])) + elect$DL = elect$Dead - elect$Live + elect$DI = elect$Dead - elect$Inter + elect$LI = elect$Live - elect$Inter + + elect_results[[type]] <- rbind(elect_results[[type]], elect) + } +} + +saveRDS(elect_results, paste0("./outputs/results_elect_", n_plots, "dead.rds")) +# elect_results <- readRDS("./outputs/results_elect_1dead.rds") +#------------------------------------------------------------------------------ +#Calculate monte carlo means +#------------------------------------------------------------------------------ +nit <- 999 #number of monte carlo draws + +#initialize a list of dataframes to catch the electivities at each plot/FT +elect_means <- list() +for(i in 1:ntypes){ + elect_means[[i]] <- data.frame(Iter = numeric(0), + Dead = numeric(0), + Live = numeric(0), + Inter = numeric(0), + DL = numeric(0), + DI = numeric(0), + LI = numeric(0)) +} +names(elect_means) <- types + +system.time(#takes about a half hour + +for(type in types){ + + plot_to_use_type <- subset(elect_results[[type]], !is.na(Dead))$Plot + + for(j in 1:nit){ + + elect_rand <- data.frame(Plot = character(0), + Dead = numeric(0), + Live = numeric(0), + Inter = numeric(0), + DL = numeric(0), + DI = numeric(0), + DL = numeric(0)) + + for (plot_use in plot_to_use_type){ + if(type == "All"){ + daub_cov <- daub[daub$Plot == as.character(plot_use), ] + daub_cov <- daub_cov[daub_cov$Cover.type %in% c("Cheatgrass", "Other Ann Grass", + "Perennial grass", "Annual forb", "Perennial forb", "Shrub"), ] + daub_cov_2 <- aggregate(daub_cov$Midpoint.value, by = list(daub_cov$unique_quad), FUN = sum) + names(daub_cov_2) <- c("unique_quad", "Midpoint.value") + daub_cov <- join(daub_cov_2, ms[, c("unique_quad", "ms")], by = "unique_quad", type = "inner") + }else{ + daub_cov <- daub[daub$Cover.type == type & daub$Plot == as.character(plot_use), ] + daub_cov <- join(daub_cov, ms[, c("unique_quad", "ms")], by = "unique_quad", type = "inner") + + } + + daub_cov$prop_cov <- daub_cov$Midpoint.value / sum(daub_cov$Midpoint.value) + daub_cov$prop_cov_ran <- sample(daub_cov$prop_cov, size = 20, replace = FALSE) + + cov <- aggregate(daub_cov[, "prop_cov_ran"], by = list(daub_cov$ms), FUN = sum) + prev <- table(daub_cov$ms)/20 + + elect <- data.frame(Plot = plot_use, + Dead = (cov[cov$Group.1 == "Dead",2] - prev[which(names(prev) == "Dead")]) / + (cov[cov$Group.1 == "Dead", 2] + prev[which(names(prev) == "Dead")]), + Live = (cov[cov$Group.1 == "Live",2] - prev[which(names(prev) == "Live")]) / + (cov[cov$Group.1 == "Live",2] + prev[which(names(prev) == "Live")]), + Inter = (cov[cov$Group.1 == "Inter",2] - prev[which(names(prev) == "Inter")]) / + (cov[cov$Group.1 == "Inter",2] + prev[which(names(prev) == "Inter")])) + elect$DL = elect$Dead - elect$Live + elect$DI = elect$Dead - elect$Inter + elect$LI = elect$Live - elect$Inter + + elect_rand <- rbind(elect_rand, elect) + } + + means <- apply(elect_rand[, c(2:7)], 2, FUN = function(x){mean(x, na.rm = TRUE)}) + elect_means[[type]][j, 1] <- j + elect_means[[type]][j, 2:7] <- means + + + } + +} +) + + +results_boots <- list() +for(i in 1:ntypes){ + results_boots[[i]] <- data.frame(Dead = numeric(2), + Live = numeric(2), + Inter = numeric(2), + DL = numeric(2), + DI = numeric(2), + LI = numeric(2)) + rownames(results_boots[[i]]) <- c("Empirical", "N_boots_greater") +} +names(results_boots) <- types + +#calculate p-values from distribution of bootstrapped mean electivities +for(i in 1:ntypes){ +emp_mean <- apply(elect_results[[i]][, 2:7], 2, FUN = function(x){mean(x, na.rm = TRUE)}) + +pvals <- c(sum(elect_means[[i]][2] > emp_mean[1]), + sum(elect_means[[i]][3] > emp_mean[2]), + sum(elect_means[[i]][4] > emp_mean[3]), + sum(elect_means[[i]][5] > emp_mean[4]), + sum(elect_means[[i]][6] > emp_mean[5]), + sum(elect_means[[i]][7] > emp_mean[6])) + +#flip around large p-values to make them small p-values for the left tail +pvals <- ifelse(pvals > (nit + 1)/2, (nit + 1 - pvals)/(nit + 1), pvals/(nit + 1)) + +results_boots[[i]][1, ] <- emp_mean +results_boots[[i]][2, ] <- pvals +} + +saveRDS(results_boots, paste0("./outputs/results_boots_", n_plots, "dead.rds")) + +# results_boots <- readRDS("./outputs/results_boots_1dead.rds") +#----------------------------------------------------------------------------------------------- +# Plot of electivity for each FT +#----------------------------------------------------------------------------------------------- + +png(filename="electivity.png", + type="cairo", + units="in", + width = 4, + height=4, + pointsize=10, + res=160) + +par(mfrow = c(2,2), + mar = c(2,1,1,2), + oma = c(2,3,1,0)) + +for(i in 1:ntypes){ + + melt_elect <- melt(elect_results[[i]][, 2:4]) + plot(melt_elect$value ~ I(as.numeric(melt_elect$variable)+ runif(nrow(melt_elect), -.1, .1 )), + ylim = c(-1,1), + xlim = c(.7, 3.3), + pch = 21, + bg = "grey", + xaxt = "n") + pvals <- results_boots[[i]][2, ] + abline(h = 0) + + means <- aggregate(melt_elect$value, by = list(melt_elect$variable), FUN = function(x){mean(x, na.rm = TRUE)}) + + segments(x0 = c(0.9, 1.9, 2.9), y0 = means$x, x1 = c(1.1, 2.1, 3.1), lwd = 3) + + + # segments(x0 = 1, x1 = 2, y0 = melt_elect[melt_elect$variable == "Dead", "value"], + # y1 = melt_elect[melt_elect$variable == "Live", "value"]) + # + # segments(x0 = 2, x1 = 3, y0 = melt_elect[melt_elect$variable == "Live", "value"], + # y1 = melt_elect[melt_elect$variable == "Inter", "value"]) + + if(i %in% c(1,2)){ + axis(1, at = c(1,2,3), labels = FALSE) + } + + if(i %in% c(3,4)){ + axis(1, at = c(1,2,3), labels = c("Dead", "Live", "Interspace")) + } + + text(x = c(1,2,3), y = 0.9, labels = pvals[2:4]) + mtext(text = types[i], outer = FALSE, side = 3, line = 0.3) + mtext(text = paste0("(", letters[i], ")"), outer = FALSE, side = 3, at = 0.5, line = 0.3) + mtext(text = "Electivity", outer = TRUE, side = 2, line = 1.5) + + +} + +dev.off() +# +# #----------------------------------------------------------------------------------------------- +# # For whole study area +# #----------------------------------------------------------------------------------------------- +# all_merged <- join(daub, ms, by = "unique_quad", type = "inner") +# +# daub$unique_quad +# ms$unique_quad +# +# +# all_plots_prev <- table(all_merged$ms) +# all_plots_prev <- all_plots_prev / sum(all_plots_prev) +# +# all_plots_cover <- aggregate(all_merged$Midpoint.value, by = list(all_merged$Cover.type, all_merged$ms), FUN = sum) +# all_plots_cover <- all_plots_cover[all_plots_cover$Group.1 %in% c("Perennial grass", "Perennial forb ", "Shrub ", "Cheatgrass"), ] +# +# for (i in 1:4){ # standardized cover so it adds to 1 for each functional type +# types <- c("Cheatgrass", "Perennial forb ", "Perennial grass", "Shrub ") +# all_plots_cover[all_plots_cover$Group.1 == types[i], "x"] <- all_plots_cover[all_plots_cover$Group.1 == types[i], "x"] / +# sum(all_plots_cover[all_plots_cover$Group.1 == types[i], "x"]) +# } +# +# +# +# all_plots_cover <- dcast(all_plots_cover, Group.1 ~ Group.2) #reshapes the table +# +# all_elect <- data.frame(type = c("Cheatgrass", "Perennial forb", "Perennial grass", "Shrub"), +# Dead = numeric(4), +# Inter = numeric(4), +# LiveInner = numeric(4), +# LiveOuter = numeric(4), +# Log = numeric(4)) +# +# for (i in 2:6){ #calculate electivity +# for (j in 1:4){ +# all_elect[j, i] <- (all_plots_cover[j,i] - all_plots_prev[i - 1]) / (all_plots_cover[j,i] + all_plots_prev[i - 1]) +# } +# } +# +# +# #-------------------------------------------------------------------- +# +# spp_merged <- join(spp_cov, ms, by = "unique_quad", type = "inner") +# head(spp_merged) +# +# +# spp_plots_prev <- table(spp_merged$ms) +# spp_plots_prev <- spp_plots_prev / sum(spp_plots_prev) +# +# spp_merged$poasec <- spp_merged$poasec / sum(spp_merged$poasec) +# spp_merged$othergrass <- spp_merged$othergrass / sum(spp_merged$othergrass) +# spp_merged$phlhoo <- spp_merged$phlhoo / sum(spp_merged$phlhoo) +# spp_merged$otherforb <- spp_merged$otherforb / sum(spp_merged$otherforb) +# +# spp_ag <- aggregate(spp_merged[, c("poasec", "othergrass", "phlhoo", "otherforb")], by = list(spp_merged$ms), FUN = sum) +# +# +# spp_elect <- data.frame(type = c("POASEC", "Other Perr Grass", "PHLHOO", "Other Forb"), +# Dead = numeric(4), +# Inter = numeric(4), +# LiveInner = numeric(4), +# LiveOuter = numeric(4), +# Log = numeric(4)) +# +# for (i in 1:5){ #calculate electivity +# for (j in 1:4){ +# spp_elect[j, i+1] <- (unname(spp_ag[i,j + 1]) - unname(all_plots_prev[i])) / (unname(spp_ag[i,j + 1]) + unname(all_plots_prev[i])) +# } +# } +# diff --git a/.Rproj.user/EAEB7255/sources/per/t/8F5BFB6A-contents b/.Rproj.user/EAEB7255/sources/s-A74A5E15/B0ABC46C-contents similarity index 100% rename from .Rproj.user/EAEB7255/sources/per/t/8F5BFB6A-contents rename to .Rproj.user/EAEB7255/sources/s-A74A5E15/B0ABC46C-contents diff --git a/.Rproj.user/EAEB7255/sources/s-A74A5E15/C58850AC-contents b/.Rproj.user/EAEB7255/sources/s-A74A5E15/C58850AC-contents new file mode 100644 index 0000000..1630074 --- /dev/null +++ b/.Rproj.user/EAEB7255/sources/s-A74A5E15/C58850AC-contents @@ -0,0 +1,95 @@ +##Understory data formatting +## +library("reshape2") +library("plyr") +library("effects") + + +daub <- read.csv("./raw data/daub_cover.csv", stringsAsFactors = FALSE) + +#some data proofing +daub <- daub[(daub$Transect %in% c("N", "E", "S", "W")), ] +daub$Plot <- as.character(daub$Plot) +daub[daub$Plot == "NPElectricEel", "Plot"] <- "NPELECTRICEEL" +daub[daub$Plot == "NPElectricEel120", "Plot"] <- "NPELECTRICEEL120" +daub[daub$Plot == "NPElectricEel240", "Plot"] <- "NPELECTRICEEL240" +daub[daub$Plot == "NPElectricEel360", "Plot"] <- "NPELECTRICEEL360" +daub$Midpoint.value <- as.numeric(as.character((daub$Midpoint.value))) +daub$unique_quad <- paste0(daub$Plot, daub$Transect, daub$Meter) +daub[daub$Cover.type == "Perennial forb ", "Cover.type"] <- "Perennial forb" +daub[daub$Cover.type == "Shrub ", "Cover.type"] <- "Shrub" + +trees <- read.csv("./raw data/trees_updated_with_logs_041716.csv") +tree_pdc <- read.csv("./raw data/all_trees_with_delta_and_ENN_041916.csv") +greenwood_under <- read.csv("./raw data/Greenwood_Understory_Variables_SF_edits.csv") +tcover <- read.csv("./raw data/tree_and_shrub_cover_020815.csv") + names(tcover)[3] <- "Shrub_cover_li" +source("./calculate_awc.R") +soil <- calculate_awc(soil_raw = "./raw data/soils_missing_imputed_012016.csv") +clim <- read.csv("./raw data/ALL_climate_variables.csv") + names(clim)[2] <- "Plot" +other_vars <- read.csv("./raw data/all_vars_EXPORT.csv") + + +#remaking data into plot average cover +plot_daub_cover <- dcast(daub, Plot ~ Cover.type, value.var = "Midpoint.value", fun.aggregate = mean) +names(plot_daub_cover) <- c("Plot", "Aforb", "Bg", "Cheatgrass", "Crust", "Gravel", "Litter", + "Agrass", "Pforb", "Pgrass", "Rock", "Shrub") +plot_daub_cover$All <- plot_daub_cover$Aforb + plot_daub_cover$Cheatgrass + plot_daub_cover$Agrass + plot_daub_cover$Pforb + + plot_daub_cover$Pgrass + plot_daub_cover$Shrub + +#------------------------------------------------------------- +#Create tree data plot-level + +#impute meanas for missing values +for (i in which(sapply(trees, is.numeric))) { + for (j in which(is.na(trees[, i]))) { + trees[j, i] <- mean(trees[trees[, "Plot"] == trees[j, "Plot"], i], na.rm = TRUE) + } +} + +plot_trees <- data.frame(Plot = character(102), + Live_ba = numeric(102), + Dead_ba = numeric(102), + Total_ba = numeric(102), + Dead_rat = numeric(102), + Delta_pdc = numeric(102)) + +plot_trees$Plot <- as.character(unique(plot_daub_cover$Plot)) + +for(i in (1:nrow(plot_trees))){ + plot_trees$Live_ba[i] <- sum(trees[trees$Live == "Y" & trees$Plot == as.character(plot_trees$Plot[i]), ]$BA_cm, + na.rm = TRUE) + plot_trees$Dead_ba[i] <- sum(trees[trees$Live == "N" & trees$Plot == as.character(plot_trees$Plot[i]), ]$BA_cm, + na.rm = TRUE) + plot_trees$Total_ba[i] <- sum(trees[trees$Plot == as.character(plot_trees$Plot[i]), ]$BA_cm, na.rm = TRUE) + plot_trees$Dead_rat[i] <- plot_trees$Dead_ba[i] / plot_trees$Total_ba[i] + plot_trees$Delta_pdc[i] <- weighted.mean(tree_pdc[tree_pdc$Plot == as.character(plot_trees$Plot[i]), "Delta_pdc"], + tree_pdc[tree_pdc$Plot == as.character(plot_trees$Plot[i]), "BA_cm"]) +} + + +#----------------------------------------------- +# Plot-level cover for everything and also predictor variables + +#fill in any NAs + +plot_data <- join(plot_daub_cover, plot_trees, by = c("Plot")) +plot_data <- join(plot_data, clim[, c("Plot", "cwd_normal_cum")], by = "Plot") +plot_data <- join(plot_data, soil[, c("Plot", "AWC")], by = "Plot") +plot_data <- join(plot_data, tcover[, c("Plot", "Tree_cover", "Shrub_cover_li")], by = "Plot") +plot_data <- join(plot_data, other_vars[, c("Plot", "Cluster", "Avg_depth")], by = "Plot") + + +for (i in which(sapply(plot_data, is.numeric))) { + for (j in which(is.na(plot_data[, i]))) { + plot_data[j, i] <- mean(plot_data[, i], na.rm = TRUE) + } +} + +levels(plot_data$Cluster) <- c(levels(plot_data$Cluster), "NPELECTRICEEL") +plot_data[(plot_data$Plot %in% c("NPELECTRICEEL", "NPELECTRICEEL120", + "NPELECTRICEEL240", "NPELECTRICEEL360")), "Cluster"] <- "NPELECTRICEEL" + + +write.csv(plot_data, "./clean data/plot_data.csv") \ No newline at end of file diff --git a/.Rproj.user/EAEB7255/sources/s-A74A5E15/C9AC37D6-contents b/.Rproj.user/EAEB7255/sources/s-A74A5E15/C9AC37D6-contents new file mode 100644 index 0000000..321e94b --- /dev/null +++ b/.Rproj.user/EAEB7255/sources/s-A74A5E15/C9AC37D6-contents @@ -0,0 +1,404 @@ +library("MuMIn") +library("lme4") +library("car") +library("glmmADMB") +library("effects") +library("plyr") +library("lmerTest") +library("vegan") +library("reshape2") +library("plyr") + +setwd("C:/Users/Sam/Google Drive/Projects/MS Thesis/Understory") + +#-------------------------------------------------------- +##Understory data formatting +#-------------------------------------------------------- + + +daub <- read.csv("./Raw data/daub_cover.csv") + daub$Plot <- as.character(daub$Plot) + daub[daub$Plot == "SS2556120", "Plot"] <- "SS256120" + daub$Midpoint.value <- as.numeric(as.character((daub$Midpoint.value))) +trees <- read.csv("./Raw data/trees_updated_with_logs_041716.csv") +tree_pdc <- read.csv("./Raw data/all_trees_with_delta_and_ENN_041916.csv") +greenwood_under <- read.csv("./Raw data/Greenwood_Understory_Variables_SF_edits.csv") +tcover <- read.csv("./Raw data/tree_and_shrub_cover_020815.csv") +names(tcover)[3] <- "Shrub_cover_li" +source("calculate_awc.R") +soil <- calculate_awc("./Raw data/soils_missing_imputed_012016.csv") +clim <- read.csv("./Raw data/ALL_climate_variables.csv") +names(clim)[2] <- "Plot" +other_vars <- read.csv("./Raw data/all_vars_EXPORT.csv") +map_mat <- read.csv("./Raw data/map_mat_normals.csv") +names(map_mat)[2] <- "Plot" + + +#remaking data into plot average cover +plot_daub_cover <- dcast(daub, Plot ~ Cover.type, value.var = "Midpoint.value", fun.aggregate = mean) +names(plot_daub_cover) <- c("Plot", "Aforb", "Bg", "Cheatgrass", "Crust", "Gravel", "Litter", + "Agrass", "Pforb", "Pgrass", "Rock", "Shrub") + + +#------------------------------------------------------------- +#Create tree data plot-level + +#impute meanas for missing values +for (i in which(sapply(trees, is.numeric))) { + for (j in which(is.na(trees[, i]))) { + trees[j, i] <- mean(trees[trees[, "Plot"] == trees[j, "Plot"], i], na.rm = TRUE) + } +} + +plot_trees <- data.frame(Plot = character(102), + Live_ba = numeric(102), + Dead_ba = numeric(102), + Total_ba = numeric(102), + Dead_rat = numeric(102), + Delta_pdc = numeric(102)) + +plot_trees$Plot <- as.character(unique(plot_daub_cover$Plot)) + +for(i in (1:nrow(plot_trees))){ + plot_trees$Live_ba[i] <- sum(trees[trees$Live == "Y" & trees$Plot == as.character(plot_trees$Plot[i]), ]$BA_cm, + na.rm = TRUE) + plot_trees$Dead_ba[i] <- sum(trees[trees$Live == "N" & trees$Plot == as.character(plot_trees$Plot[i]), ]$BA_cm, + na.rm = TRUE) + plot_trees$Total_ba[i] <- sum(trees[trees$Plot == as.character(plot_trees$Plot[i]), ]$BA_cm, na.rm = TRUE) + plot_trees$Dead_rat[i] <- plot_trees$Dead_ba[i] / plot_trees$Total_ba[i] + plot_trees$Delta_pdc[i] <- weighted.mean(tree_pdc[tree_pdc$Plot == as.character(plot_trees$Plot[i]), "Delta_pdc"], + tree_pdc[tree_pdc$Plot == as.character(plot_trees$Plot[i]), "BA_cm"]) +} + +#----------------------------------------------- +# Plot-level cover for everything and also predictor variables + +#fill in any NAs + +plot_data <- join(plot_daub_cover, plot_trees, by = c("Plot")) +plot_data <- join(plot_data, clim[, c("Plot", "cwd_normal_cum", "avg_ann_ppt")], by = "Plot") +plot_data <- join(plot_data, soil[, c("Plot", "AWC")], by = "Plot") +plot_data <- join(plot_data, tcover[, c("Plot", "Tree_cover", "Shrub_cover_li")], by = "Plot") +plot_data <- join(plot_data, other_vars[, c("Plot", "Cluster", "Avg_depth", "Elev", "Slope", "Swness")], by = "Plot") +plot_data <- join(plot_data, map_mat[, c("Plot", "tmean", "ppt")], by = "Plot") + +for (i in which(sapply(plot_data, is.numeric))) { + for (j in which(is.na(plot_data[, i]))) { + plot_data[j, i] <- mean(plot_data[, i], na.rm = TRUE) + } +} + +#------------------------------------------------------------ +# Analysis +#------------------------------------------------------------ +# +# plot_data <- plot_data[!(plot_data$Plot %in% c("NPELECTRICEEL", "NPELECTRICEEL120", +# "NPELECTRICEEL240", "NPELECTRICEEL360")), ] +# plot_data$Cluster <- droplevels(plot_data$Cluster) + +#exploration +hist(asin(sqrt(plot_data$Cheatgrass/100))) +hist(log(plot_data$Cheatgrass/100 + .01)) + +nrow(plot_data[plot_data$Cheatgrass != 0, ]) + +hist(asin(sqrt(plot_data$Pgrass/100))) +nrow(plot_data[plot_data$Pgrass != 0, ]) + +hist(asin(sqrt(plot_data$Pforb/100))) +nrow(plot_data[plot_data$Pforb != 0, ]) + +hist(asin(sqrt(plot_data$Shrub_cover_li))) +nrow(plot_data[plot_data$Shrub_cover_li != 0, ]) + +plot(plot_data$Cheatgrass ~ plot_data$cwd_normal_cum) + + +#--------------------------------------------------------------- +#linear mixed effects models for functional groups at plot level +#------------------------------------------------------------------- + +## Cheatgrass + +cheatgrass_plot <- lmer(log(Cheatgrass/100 + .01) ~ scale(Tree_cover) + scale(Dead_ba)*scale(cwd_normal_cum) + + scale(AWC) + scale(Avg_depth) + scale(Dead_ba)*scale(cwd_normal_cum) + (1|Cluster), data = plot_data, + na.action = na.omit) +summary(cheatgrass_plot, ddf = "Kenward-Roger") +r.squaredGLMM(cheatgrass_plot) +plot(allEffects(cheatgrass_plot, partial.residuals = TRUE)) +plot(cheatgrass_plot) +AICc(cheatgrass_plot) +scatter.smooth(residuals(cheatgrass_plot) ~ predict(cheatgrass_plot)) + +cgrass_set <- dredge(cheatgrass_plot) +head(cgrass_set) + +cg_model <- lmer(log(Cheatgrass/100 + .01) ~ scale(Delta_pdc)*scale(cwd_normal_cum) + (1|Cluster), data = plot_data, + na.action = na.fail) +summary(cg_model, ddf = "Kenward-Roger") +r.squaredGLMM(cg_model) + +## Perr grass + +pgrass_plot <- lmer(log(Pgrass/100+.01) ~ scale(Tree_cover) + scale(Dead_ba)*scale(Tree_cover) + scale(Delta_pdc)*scale(cwd_normal_cum) + + scale(AWC) + scale(Avg_depth) + scale(Dead_ba)*scale(cwd_normal_cum) + scale(Dead_rat) + (1|Cluster), data = plot_data, + na.action = na.omit) +summary(pgrass_plot, ddf = "Kenward-Roger") +r.squaredGLMM(pgrass_plot) +plot(allEffects(pgrass_plot, partial.residuals = TRUE)) +plot(pgrass_plot) + +pgrass_set <- dredge(pgrass_plot) +head(pgrass_set) + +pg_model <- lmer(log(Pgrass/100) ~ (1|Cluster), data = plot_data, na.action = na.fail) +summary(pg_model) +r.squaredGLMM(pg_model) + +## Perr forbs + +pforb_plot <- lmer(log(Pforb/100+.01) ~ scale(Tree_cover) + scale(Delta_pdc)*scale(cwd_normal_cum) + + scale(AWC) + scale(Avg_depth) + scale(Dead_ba)*scale(cwd_normal_cum) + (1|Cluster), data = plot_data, + na.action = na.fail) +summary(pforb_plot, ddf = "Kenward-Roger") +r.squaredGLMM(pforb_plot) +plot(allEffects(pforb_plot, partial.residuals = TRUE)) +plot(pforb_plot) + +pforb_set <- dredge(pforb_plot) +head(pforb_set) + +pf_model <- lmer(log(Pforb/100 +.01) ~ (1|Cluster), data = plot_data, na.action = na.fail) +summary(pf_model) +r.squaredGLMM(pf_model) + +## Shrubs +shrub_plot <- lmer(log(Shrub_cover_li + .01) ~ scale(Tree_cover) + scale(Delta_pdc)*scale(Tree_cover) + scale(Delta_pdc)*scale(cwd_normal_cum) + + scale(AWC) + scale(Avg_depth) + scale(Dead_ba)*scale(cwd_normal_cum) + (1|Cluster), data = plot_data, + na.action = na.fail) +summary(shrub_plot, ddf = "Kenward-Roger") +r.squaredGLMM(shrub_plot) +plot(allEffects(shrub_plot, partial.residuals = TRUE)) +plot(shrub_plot) + +shrub_set <- dredge(shrub_plot) +head(shrub_set) + +shrub_model<- lmer(log(Shrub_cover_li + .01) ~ scale(Tree_cover) + (1|Cluster), data = plot_data, + na.action = na.fail) +summary(shrub_model) +r.squaredGLMM(shrub_model) +plot(allEffects(shrub_model, partial.residuals = TRUE)) + +#----------------------------------------------- +# Comparison of greenwood and 2015 +#----------------------------------------------- +compare <- join(plot_daub_cover, greenwood_under, by = "Plot", type = "inner") +compare <- join(compare, tcover[, c("Plot", "Tree_cover", "Shrub_cover_li")], by = "Plot", type = "inner") +compare <- join(compare, plot_data[, c("Plot", "Dead_ba", "Delta_pdc", "cwd_normal_cum")], by = "Plot") + +#cheatgrass +plot(compare$Cheatgrass ~ compare$Cheatgrass.Cover) +summary(lm(compare$Cheatgrass ~ compare$Cheatgrass.Cover)) +cor.test(compare$Cheatgrass, compare$Cheatgrass.Cover, + method = c("spearman"), exact = FALSE) +boxplot(compare$Cheatgrass, compare$Cheatgrass.Cover) +mean(compare$Cheatgrass-compare$Cheatgrass.Cover) +wilcox.test(compare$Cheatgrass, compare$Cheatgrass.Cover, paired = TRUE, alternative="greater") +t.test(compare$Cheatgrass, compare$Cheatgrass.Cover, paired = TRUE, alternative="greater") + +cor.test(compare$Cheatgrass - compare$Cheatgrass.Cover, compare$cwd_normal_cum, method = "pearson", + alternative = "two.sided", exact = FALSE) + +#linear model of log change ~ delta pdc and cwd +compare$log_cg_change <- log(I(compare$Cheatgrass/100 - compare$Cheatgrass.Cover/100 - min(compare$Cheatgrass/100 - compare$Cheatgrass.Cover/100) + .01)) +cg_change_lm <- lm(log_cg_change ~ Delta_pdc*cwd_normal_cum, data= compare) + +summary(cg_change_lm) +plot(cg_change_lm) +plot(allEffects(cg_change_lm)) + + +#seeing how far out these outliers are +sd(compare$log_cg_change[-c(5,10)]) +mean(compare$log_cg_change[-c(5,10)]) +(compare$log_cg_change[c(5)] - 1.72) / .18 +(compare$log_cg_change[c(10)] - 1.72) / .18 + + +summary(cg_change_lm) +plot(cg_change_lm) +plot(allEffects(cg_change_lm, partial.residuals = TRUE)) + +#Perr grass +plot(compare$Pgrass ~ compare$Perrenial.Grass.Cover) +summary(lm(compare$Pgrass ~ compare$Perrenial.Grass.Cover + 0)) +cor.test(compare$Pgrass, compare$Perrenial.Grass.Cover, + method = c("spearman"), exact = FALSE) +boxplot(log(compare$Pgrass/compare$Perrenial.Grass.Cover)) +mean(compare$Pgrass-compare$Perrenial.Grass.Cover) +t.test(compare$Pgrass, compare$Perrenial.Grass.Cover, paired = TRUE, alternative="less") +wilcox.test(compare$Pgrass, compare$Perrenial.Grass.Cover, paired = TRUE, alternative="less") + +pg_change_lm <- lm(Pgrass - Perrenial.Grass.Cover ~ Delta_pdc*cwd_normal_cum, data= compare[-5,]) +summary(pg_change_lm) + +## Perr forb +plot(I(compare$Aforb + compare$Pforb) ~ compare$Forb.Cover) +summary(lm(I(compare$Aforb + compare$Pforb) ~ compare$Forb.Cover + 0)) +cor.test(I(compare$Aforb + compare$Pforb), compare$Forb.Cover, + method = c("spearman"), exact = FALSE) +boxplot(I(compare$Aforb + compare$Pforb) - compare$Forb.Cover) +mean(I(compare$Aforb + compare$Pforb) - compare$Forb.Cover) +t.test(I(compare$Aforb + compare$Pforb), compare$Forb.Cover, paired = TRUE, alternative="less") +wilcox.test(I(compare$Aforb + compare$Pforb), compare$Forb.Cover, paired = TRUE, alternative="less") + +pf_change_lm <- lm(Aforb + Pforb - Forb.Cover ~ Delta_pdc*cwd_normal_cum, data= compare[-5,]) +summary(pf_change_lm) + +## Shrub +plot(compare$Shrub ~ I(compare$Shrub.Cover.Total)) + abline(0,1) +summary(lm(compare$Shrub ~ I(compare$Shrub.Cover.Total) + 0)) +cor.test(compare$Shrub, compare$Shrub.Cover.Total, + method = c("spearman"), exact = FALSE) +boxplot(compare$Shrub - compare$Shrub.Cover.Total) +mean(compare$Shrub - compare$Shrub.Cover.Total) +t.test(compare$Shrub, compare$Shrub.Cover.Total, paired = TRUE, alternative="less") +wilcox.test(compare$Shrub, compare$Shrub.Cover.Total, paired = TRUE, alternative="less") +hist(compare$Shrub - I(compare$Shrub.Cover.Total)) + +s_change_lm <- lm(Shrub - Shrub.Cover.Total ~ Delta_pdc*cwd_normal_cum, data= compare[-5,]) +summary(s_change_lm) + +###################### +# Plot of comparisons between 2005 and 2015 +###################### +opar <- par(no.readonly = TRUE) + +png(filename="change_in_cover.png", + type="cairo", + units="in", + width = 4, + height=4, + pointsize=12, + res=160) + +layout(matrix(c(1,2,3,4), nrow = 2, ncol = 2, byrow = TRUE)) + +par(oma = c(2,2,0,0), family = "serif", bty = 'n') + + +par(mar = c(2,2,2,1)) +plot(compare$Pgrass ~ compare$Perrenial.Grass.Cover, xlim = c(0,35), ylim = c(0, 35), + xlab = "", ylab = "", main = "Perennial Grass", xaxt = 'n', yaxt = 'n', + bg='grey60', + col = 'grey30', + pch = 21, + cex = 1.5, + cex.axis = .8, + cex.main = 1.3) + axis(side = 1, at = c(0,10,20,30), labels = TRUE) + axis(side = 1, at = c(0,5,15,25,35), tcl = -.24, labels = FALSE) + axis(side = 2, at = c(0,10,20,30), labels = TRUE) + axis(side = 2, at = c(0,5,15,25,35), tcl = -.24, labels = FALSE) + abline(0,1, lty = 2, col = 'grey30') + +par(mar = c(2,2,2,1)) +plot(compare$Pforb ~ compare$Forb.Cover, xlim = c(0, 12), ylim = c(0, 12), + main = "Perennial Forb", xlab = "", ylab = "", xaxt = 'n', yaxt = 'n', + bg='grey60', + col = 'grey30', + pch = 21, + cex = 1.5, + cex.axis = .8, + cex.main = 1.3) + axis(side = 1, at = c(0,4,8,12), labels = TRUE) + axis(side = 1, at = c(0,2,6,10), tcl = -.25, labels = FALSE) + axis(side = 2, at = c(0,4,8,12), labels = TRUE) + axis(side = 2, at = c(0,2,6,10), tcl = -.25, labels = FALSE) + abline(0,1, lty = 2, col = 'grey30') + + +par(mar = c(2,2,2,1)) +plot(compare$Shrub ~ compare$Shrub.Cover.Total, xlim = c(0, 30), ylim = c(0,30), + xlab = "", ylab = "", main = "Shrub",xaxt = 'n', yaxt = 'n', + bg='grey60', + col = 'grey30', + pch = 21, + cex = 1.5, + cex.axis = .8, + cex.main = 1.3) + axis(side = 1, at = c(0,10,20,30), labels = TRUE) + axis(side = 1, at = c(0,5,15,25), tcl = -.25, labels = FALSE) + axis(side = 2, at = c(0,10,20,30), labels = TRUE) + axis(side = 2, at = c(0,5,15,25), tcl = -.25, labels = FALSE) + abline(0,1, lty = 2, col = 'grey30') + + +par(mar = c(2,2,2,1)) +plot(compare$Cheatgrass ~ compare$Cheatgrass.Cover, xlim = c(0, 20), ylim = c(0, 20), + xlab = "", ylab = "", main = "Cheatgrass", xaxt = 'n', yaxt = 'n', + bg='grey60', + col = 'grey30', + pch = 21, + cex = 1.5, + cex.axis = .8, + cex.main = 1.3) + axis(side = 1, at = c(0,5,10,15,20), labels = TRUE) + axis(side = 1, at = c(0,2.5,7.5,12.5,17.5), tcl = -.25, labels = FALSE) + axis(side = 2, at = c(0,5,10,15,20), labels = TRUE) + axis(side = 2, at = c(0,2.5,7.5,12.5,17.5), tcl = -.25, labels = FALSE) + abline(0,1, lty = 2, col = 'grey30') + +mtext("2005 Cover (%)", side = 1, outer = TRUE) +mtext("2015 Cover (%)", side = 2, outer = TRUE) +dev.off() + +par(opar) + +#---------------------------------------- +# Ordination analysis +#---------------------------------------- +raw_cover <- read.csv("./Raw data/spp_cover2.csv") #spp_cover2 has unknowns filled with "unknown" +raw_cover <- raw_cover[raw_cover$Transect %in% c("E", "N", "S", "W"), ] #take out the "bonus" quadrats + +spp_summary <- read.csv("./Raw data/species_summary.csv") +spp_priority <- spp_summary[order(spp_summary[, "x"], decreasing = TRUE), ] + +species_list <- unique(raw_cover$Species) +plot_list <- unique(raw_cover$Plot)[order(unique(raw_cover$Plot))] + +spp_matrix <- matrix(ncol = length(species_list), nrow = length(plot_list)) +row.names(spp_matrix) <- plot_list +colnames(spp_matrix) <- species_list + +env_data <- plot_data[, c("cwd_normal_cum", "Delta_pdc", "AWC", "Live_ba", + "Dead_ba", "Avg_depth", "Elev", "Slope", "Swness", + "tmean", "ppt")] + + +for(i in 1:nrow(spp_matrix)){ + for(j in 1:ncol(spp_matrix)){ + + present <- species_list[j] %in% raw_cover[raw_cover$Plot == plot_list[i], "Species"] + if(present){ + plot_cover <- raw_cover[raw_cover$Plot == plot_list[i] & raw_cover$Species == species_list[j], ] + spp_matrix[i, j] <- sum(plot_cover$Cover) / 20 / 100 + } else{ + spp_matrix[i, j] <- 0 + } + + + } +} + + +nmds_test <- metaMDS(spp_matrix, try = 50) +nmds_test +plot(nmds_test, display = "species") +# text(nmds_test, display = "species") +orditorp(nmds_test, display = "species", priority = spp_priority$Group.1, + col = "forestgreen", pch = 2, cex = 1, air = 0.3) + +plot(envfit(nmds_test, env_data, labels = list(vectors = names(env_data)))) diff --git a/.Rproj.user/EAEB7255/sources/s-A74A5E15/DC1CB2D9-contents b/.Rproj.user/EAEB7255/sources/s-A74A5E15/DC1CB2D9-contents new file mode 100644 index 0000000..6b8e6c7 --- /dev/null +++ b/.Rproj.user/EAEB7255/sources/s-A74A5E15/DC1CB2D9-contents @@ -0,0 +1,397 @@ +library("MuMIn") +library("lme4") +library("car") +library("glmmADMB") +library("effects") +library("plyr") +library("lmerTest") +library("vegan") +library("reshape2") +library("plyr") + +setwd("C:/Users/Sam/Google Drive/Projects/MS Thesis/Understory") + +#-------------------------------------------------------- +##Understory data formatting +#-------------------------------------------------------- + + +daub <- read.csv("./Raw data/daub_cover.csv") + daub$Plot <- as.character(daub$Plot) + daub[daub$Plot == "SS2556120", "Plot"] <- "SS256120" + daub$Midpoint.value <- as.numeric(as.character((daub$Midpoint.value))) +trees <- read.csv("./Raw data/trees_updated_with_logs_041716.csv") +tree_pdc <- read.csv("./Raw data/all_trees_with_delta_and_ENN_041916.csv") +greenwood_under <- read.csv("./Raw data/Greenwood_Understory_Variables_SF_edits.csv") +tcover <- read.csv("./Raw data/tree_and_shrub_cover_020815.csv") +names(tcover)[3] <- "Shrub_cover_li" +source("calculate_awc.R") +soil <- calculate_awc("./Raw data/soils_missing_imputed_012016.csv") +clim <- read.csv("./Raw data/ALL_climate_variables.csv") +names(clim)[2] <- "Plot" +other_vars <- read.csv("./Raw data/all_vars_EXPORT.csv") +map_mat <- read.csv("./Raw data/map_mat_normals.csv") +names(map_mat)[2] <- "Plot" + + +#remaking data into plot average cover +plot_daub_cover <- dcast(daub, Plot ~ Cover.type, value.var = "Midpoint.value", fun.aggregate = mean) +names(plot_daub_cover) <- c("Plot", "Aforb", "Bg", "Cheatgrass", "Crust", "Gravel", "Litter", + "Agrass", "Pforb", "Pgrass", "Rock", "Shrub") + + +#------------------------------------------------------------- +#Create tree data plot-level + +#impute meanas for missing values +for (i in which(sapply(trees, is.numeric))) { + for (j in which(is.na(trees[, i]))) { + trees[j, i] <- mean(trees[trees[, "Plot"] == trees[j, "Plot"], i], na.rm = TRUE) + } +} + +plot_trees <- data.frame(Plot = character(102), + Live_ba = numeric(102), + Dead_ba = numeric(102), + Total_ba = numeric(102), + Dead_rat = numeric(102), + Delta_pdc = numeric(102)) + +plot_trees$Plot <- as.character(unique(plot_daub_cover$Plot)) + +for(i in (1:nrow(plot_trees))){ + plot_trees$Live_ba[i] <- sum(trees[trees$Live == "Y" & trees$Plot == as.character(plot_trees$Plot[i]), ]$BA_cm, + na.rm = TRUE) + plot_trees$Dead_ba[i] <- sum(trees[trees$Live == "N" & trees$Plot == as.character(plot_trees$Plot[i]), ]$BA_cm, + na.rm = TRUE) + plot_trees$Total_ba[i] <- sum(trees[trees$Plot == as.character(plot_trees$Plot[i]), ]$BA_cm, na.rm = TRUE) + plot_trees$Dead_rat[i] <- plot_trees$Dead_ba[i] / plot_trees$Total_ba[i] + plot_trees$Delta_pdc[i] <- weighted.mean(tree_pdc[tree_pdc$Plot == as.character(plot_trees$Plot[i]), "Delta_pdc"], + tree_pdc[tree_pdc$Plot == as.character(plot_trees$Plot[i]), "BA_cm"]) +} + +#----------------------------------------------- +# Plot-level cover for everything and also predictor variables + +#fill in any NAs + +plot_data <- join(plot_daub_cover, plot_trees, by = c("Plot")) +plot_data <- join(plot_data, clim[, c("Plot", "cwd_normal_cum", "avg_ann_ppt")], by = "Plot") +plot_data <- join(plot_data, soil[, c("Plot", "AWC")], by = "Plot") +plot_data <- join(plot_data, tcover[, c("Plot", "Tree_cover", "Shrub_cover_li")], by = "Plot") +plot_data <- join(plot_data, other_vars[, c("Plot", "Cluster", "Avg_depth", "Elev", "Slope", "Swness")], by = "Plot") +plot_data <- join(plot_data, map_mat[, c("Plot", "tmean", "ppt")], by = "Plot") + +for (i in which(sapply(plot_data, is.numeric))) { + for (j in which(is.na(plot_data[, i]))) { + plot_data[j, i] <- mean(plot_data[, i], na.rm = TRUE) + } +} + +#------------------------------------------------------------ +# Analysis +#------------------------------------------------------------ +# +levels(plot_data$Cluster) <- c(levels(plot_data$Cluster), "NPELECTRICEEL") +plot_data[(plot_data$Plot %in% c("NPELECTRICEEL", "NPELECTRICEEL120", + "NPELECTRICEEL240", "NPELECTRICEEL360")), "Cluster"] <- "NPELECTRICEEL" + + +#exploration +hist(asin(sqrt(plot_data$Cheatgrass/100))) +hist(logit(plot_data$Cheatgrass/100 + min(plot_data[plot_data$Cheatgrass != 0, "Cheatgrass"]))) +hist(log(plot_data$Cheatgrass/100 + .01)) + +nrow(plot_data[plot_data$Cheatgrass != 0, ]) + +hist(asin(sqrt(plot_data$Pgrass/100))) +hist(logit(plot_data$Pgrass/100)) +nrow(plot_data[plot_data$Pgrass != 0, ]) + +hist(asin(sqrt(plot_data$Pforb/100))) +hist(logit(plot_data$Pforb/100)) +nrow(plot_data[plot_data$Pforb != 0, ]) + +hist(asin(sqrt(plot_data$Shrub_cover_li))) +hist(logit(plot_data$Shrub_cover_li)) +nrow(plot_data[plot_data$Shrub_cover_li != 0, ]) + +plot(plot_data$Cheatgrass ~ plot_data$cwd_normal_cum) + + +#--------------------------------------------------------------- +#linear mixed effects models for functional groups at plot level +#------------------------------------------------------------------- +## Cheatgrass + +cheatgrass_plot <- lmer(asin(sqrt(Cheatgrass/100)) ~ scale(Tree_cover) + scale(Delta_pdc)*scale(cwd_normal_cum) + + scale(AWC) + (1|Cluster), data = plot_data) + +cheatgrass_plot <- lmer(logit(Cheatgrass/100) ~ scale(Tree_cover) + scale(Delta_pdc)*scale(cwd_normal_cum) + + scale(AWC) + (1|Cluster), data = plot_data) + +summary(lm(asin(sqrt(Cheatgrass/100)) ~ scale(Tree_cover) + scale(Delta_pdc)*scale(cwd_normal_cum) + + scale(AWC), data = plot_data)) + +summary(cheatgrass_plot, ddf = "Kenward-Roger") +r.squaredGLMM(cheatgrass_plot) +plot(allEffects(cheatgrass_plot, partial.residuals = TRUE)) +plot(cheatgrass_plot) +AICc(cheatgrass_plot) +scatter.smooth(residuals(cheatgrass_plot) ~ predict(cheatgrass_plot)) + +leveneTest(residuals(cheatgrass_plot) ~ plot_data$Cheatgrass) + +## Perr grass + +pgrass_plot <- lmer(asin(sqrt(Pgrass/100)) ~ scale(Tree_cover) + scale(Delta_pdc)*scale(cwd_normal_cum) + + scale(AWC) + (1|Cluster), data = plot_data) + +summary(lm(asin(sqrt(Pgrass/100)) ~ scale(Tree_cover) + scale(Delta_pdc)*scale(cwd_normal_cum) + + scale(AWC), data = plot_data)) + +summary(pgrass_plot, ddf = "Kenward-Roger") +r.squaredGLMM(pgrass_plot) +plot(allEffects(pgrass_plot, partial.residuals = TRUE)) +plot(pgrass_plot) + +## Perr forbs + +pforb_plot <- lmer(asin(sqrt(Pforb/100)) ~ scale(Tree_cover) + scale(Delta_pdc)*scale(cwd_normal_cum) + + scale(AWC) + (1|Cluster), data = plot_data) + +summary(lm(asin(sqrt(Pforb/100)) ~ scale(Tree_cover) + scale(Delta_pdc)*scale(cwd_normal_cum) + + scale(AWC), data = plot_data)) + + +summary(pforb_plot, ddf = "Kenward-Roger") +r.squaredGLMM(pforb_plot) +plot(allEffects(pforb_plot, partial.residuals = TRUE)) +plot(pforb_plot) + + +## Shrubs +shrub_plot <- lmer(asin(sqrt(Shrub_cover_li)) ~ scale(Tree_cover) + scale(Delta_pdc)*scale(cwd_normal_cum) + + scale(AWC) + (1|Cluster), data = plot_data) + +summary(lm(asin(sqrt(Shrub_cover_li)) ~ scale(Tree_cover) + scale(Delta_pdc)*scale(cwd_normal_cum) + + scale(AWC), data = plot_data)) + +summary(shrub_plot, ddf = "Kenward-Roger") +r.squaredGLMM(shrub_plot) +plot(allEffects(shrub_plot, partial.residuals = TRUE)) +plot(shrub_plot) + + +#----------------------------------------------- +# Comparison of greenwood and 2015 +#----------------------------------------------- +compare <- join(plot_daub_cover, greenwood_under, by = "Plot", type = "inner") +compare <- join(compare, tcover[, c("Plot", "Tree_cover", "Shrub_cover_li")], by = "Plot", type = "inner") +compare <- join(compare, plot_data[, c("Plot", "Dead_ba", "Delta_pdc", "cwd_normal_cum")], by = "Plot") + +#cheatgrass +plot(compare$Cheatgrass ~ compare$Cheatgrass.Cover) +summary(lm(compare$Cheatgrass ~ compare$Cheatgrass.Cover)) +cor.test(compare$Cheatgrass, compare$Cheatgrass.Cover, + method = c("spearman"), exact = FALSE) +boxplot(compare$Cheatgrass, compare$Cheatgrass.Cover) +mean(compare$Cheatgrass-compare$Cheatgrass.Cover) +wilcox.test(compare$Cheatgrass, compare$Cheatgrass.Cover, paired = TRUE, alternative="greater") +t.test(compare$Cheatgrass, compare$Cheatgrass.Cover, paired = TRUE, alternative="greater") + +cor.test(compare$Cheatgrass - compare$Cheatgrass.Cover, compare$cwd_normal_cum, method = "pearson", + alternative = "two.sided", exact = FALSE) + +#linear model of log change ~ delta pdc and cwd +compare$log_cg_change <- log(I(compare$Cheatgrass/100 - compare$Cheatgrass.Cover/100 - min(compare$Cheatgrass/100 - compare$Cheatgrass.Cover/100) + .01)) +cg_change_lm <- lm(log_cg_change ~ Delta_pdc*cwd_normal_cum, data= compare) + +summary(cg_change_lm) +plot(cg_change_lm) +plot(allEffects(cg_change_lm)) + + +#seeing how far out these outliers are +sd(compare$log_cg_change[-c(5,10)]) +mean(compare$log_cg_change[-c(5,10)]) +(compare$log_cg_change[c(5)] - 1.72) / .18 +(compare$log_cg_change[c(10)] - 1.72) / .18 + + +summary(cg_change_lm) +plot(cg_change_lm) +plot(allEffects(cg_change_lm, partial.residuals = TRUE)) + +#Perr grass +plot(compare$Pgrass ~ compare$Perrenial.Grass.Cover) +summary(lm(compare$Pgrass ~ compare$Perrenial.Grass.Cover + 0)) +cor.test(compare$Pgrass, compare$Perrenial.Grass.Cover, + method = c("spearman"), exact = FALSE) +boxplot(log(compare$Pgrass/compare$Perrenial.Grass.Cover)) +mean(compare$Pgrass-compare$Perrenial.Grass.Cover) +t.test(compare$Pgrass, compare$Perrenial.Grass.Cover, paired = TRUE, alternative="less") +wilcox.test(compare$Pgrass, compare$Perrenial.Grass.Cover, paired = TRUE, alternative="less") + +pg_change_lm <- lm(Pgrass - Perrenial.Grass.Cover ~ Delta_pdc*cwd_normal_cum, data= compare[-5,]) +summary(pg_change_lm) + +## Perr forb +plot(I(compare$Aforb + compare$Pforb) ~ compare$Forb.Cover) +summary(lm(I(compare$Aforb + compare$Pforb) ~ compare$Forb.Cover + 0)) +cor.test(I(compare$Aforb + compare$Pforb), compare$Forb.Cover, + method = c("spearman"), exact = FALSE) +boxplot(I(compare$Aforb + compare$Pforb) - compare$Forb.Cover) +mean(I(compare$Aforb + compare$Pforb) - compare$Forb.Cover) +t.test(I(compare$Aforb + compare$Pforb), compare$Forb.Cover, paired = TRUE, alternative="less") +wilcox.test(I(compare$Aforb + compare$Pforb), compare$Forb.Cover, paired = TRUE, alternative="less") + +pf_change_lm <- lm(Aforb + Pforb - Forb.Cover ~ Delta_pdc*cwd_normal_cum, data= compare[-5,]) +summary(pf_change_lm) + +## Shrub +plot(compare$Shrub ~ I(compare$Shrub.Cover.Total)) + abline(0,1) +summary(lm(compare$Shrub ~ I(compare$Shrub.Cover.Total) + 0)) +cor.test(compare$Shrub, compare$Shrub.Cover.Total, + method = c("spearman"), exact = FALSE) +boxplot(compare$Shrub - compare$Shrub.Cover.Total) +mean(compare$Shrub - compare$Shrub.Cover.Total) +t.test(compare$Shrub, compare$Shrub.Cover.Total, paired = TRUE, alternative="less") +wilcox.test(compare$Shrub, compare$Shrub.Cover.Total, paired = TRUE, alternative="less") +hist(compare$Shrub - I(compare$Shrub.Cover.Total)) + +s_change_lm <- lm(Shrub - Shrub.Cover.Total ~ Delta_pdc*cwd_normal_cum, data= compare[-5,]) +summary(s_change_lm) + +###################### +# Plot of comparisons between 2005 and 2015 +###################### +opar <- par(no.readonly = TRUE) + +png(filename="change_in_cover.png", + type="cairo", + units="in", + width = 4, + height=4, + pointsize=12, + res=160) + +layout(matrix(c(1,2,3,4), nrow = 2, ncol = 2, byrow = TRUE)) + +par(oma = c(2,2,0,0), family = "serif", bty = 'n') + + +par(mar = c(2,2,2,1)) +plot(compare$Pgrass ~ compare$Perrenial.Grass.Cover, xlim = c(0,35), ylim = c(0, 35), + xlab = "", ylab = "", main = "Perennial Grass", xaxt = 'n', yaxt = 'n', + bg='grey60', + col = 'grey30', + pch = 21, + cex = 1.5, + cex.axis = .8, + cex.main = 1.3) + axis(side = 1, at = c(0,10,20,30), labels = TRUE) + axis(side = 1, at = c(0,5,15,25,35), tcl = -.24, labels = FALSE) + axis(side = 2, at = c(0,10,20,30), labels = TRUE) + axis(side = 2, at = c(0,5,15,25,35), tcl = -.24, labels = FALSE) + abline(0,1, lty = 2, col = 'grey30') + +par(mar = c(2,2,2,1)) +plot(compare$Pforb ~ compare$Forb.Cover, xlim = c(0, 12), ylim = c(0, 12), + main = "Perennial Forb", xlab = "", ylab = "", xaxt = 'n', yaxt = 'n', + bg='grey60', + col = 'grey30', + pch = 21, + cex = 1.5, + cex.axis = .8, + cex.main = 1.3) + axis(side = 1, at = c(0,4,8,12), labels = TRUE) + axis(side = 1, at = c(0,2,6,10), tcl = -.25, labels = FALSE) + axis(side = 2, at = c(0,4,8,12), labels = TRUE) + axis(side = 2, at = c(0,2,6,10), tcl = -.25, labels = FALSE) + abline(0,1, lty = 2, col = 'grey30') + + +par(mar = c(2,2,2,1)) +plot(compare$Shrub ~ compare$Shrub.Cover.Total, xlim = c(0, 30), ylim = c(0,30), + xlab = "", ylab = "", main = "Shrub",xaxt = 'n', yaxt = 'n', + bg='grey60', + col = 'grey30', + pch = 21, + cex = 1.5, + cex.axis = .8, + cex.main = 1.3) + axis(side = 1, at = c(0,10,20,30), labels = TRUE) + axis(side = 1, at = c(0,5,15,25), tcl = -.25, labels = FALSE) + axis(side = 2, at = c(0,10,20,30), labels = TRUE) + axis(side = 2, at = c(0,5,15,25), tcl = -.25, labels = FALSE) + abline(0,1, lty = 2, col = 'grey30') + + +par(mar = c(2,2,2,1)) +plot(compare$Cheatgrass ~ compare$Cheatgrass.Cover, xlim = c(0, 20), ylim = c(0, 20), + xlab = "", ylab = "", main = "Cheatgrass", xaxt = 'n', yaxt = 'n', + bg='grey60', + col = 'grey30', + pch = 21, + cex = 1.5, + cex.axis = .8, + cex.main = 1.3) + axis(side = 1, at = c(0,5,10,15,20), labels = TRUE) + axis(side = 1, at = c(0,2.5,7.5,12.5,17.5), tcl = -.25, labels = FALSE) + axis(side = 2, at = c(0,5,10,15,20), labels = TRUE) + axis(side = 2, at = c(0,2.5,7.5,12.5,17.5), tcl = -.25, labels = FALSE) + abline(0,1, lty = 2, col = 'grey30') + +mtext("2005 Cover (%)", side = 1, outer = TRUE) +mtext("2015 Cover (%)", side = 2, outer = TRUE) +dev.off() + +par(opar) + +#---------------------------------------- +# Ordination analysis +#---------------------------------------- +raw_cover <- read.csv("./Raw data/spp_cover2.csv") #spp_cover2 has unknowns filled with "unknown" +raw_cover <- raw_cover[raw_cover$Transect %in% c("E", "N", "S", "W"), ] #take out the "bonus" quadrats + +spp_summary <- read.csv("./Raw data/species_summary.csv") +spp_priority <- spp_summary[order(spp_summary[, "x"], decreasing = TRUE), ] + +species_list <- unique(raw_cover$Species) +plot_list <- unique(raw_cover$Plot)[order(unique(raw_cover$Plot))] + +spp_matrix <- matrix(ncol = length(species_list), nrow = length(plot_list)) +row.names(spp_matrix) <- plot_list +colnames(spp_matrix) <- species_list + +env_data <- plot_data[, c("cwd_normal_cum", "Delta_pdc", "AWC", "Live_ba", + "Dead_ba", "Avg_depth", "Elev", "Slope", "Swness", + "tmean", "ppt")] + + +for(i in 1:nrow(spp_matrix)){ + for(j in 1:ncol(spp_matrix)){ + + present <- species_list[j] %in% raw_cover[raw_cover$Plot == plot_list[i], "Species"] + if(present){ + plot_cover <- raw_cover[raw_cover$Plot == plot_list[i] & raw_cover$Species == species_list[j], ] + spp_matrix[i, j] <- sum(plot_cover$Cover) / 20 / 100 + } else{ + spp_matrix[i, j] <- 0 + } + + + } +} + + +nmds_test <- metaMDS(spp_matrix, try = 50) +nmds_test +plot(nmds_test, display = "species") +# text(nmds_test, display = "species") +orditorp(nmds_test, display = "species", priority = spp_priority$Group.1, + col = "forestgreen", pch = 2, cex = 1, air = 0.3) + +plot(envfit(nmds_test, env_data, labels = list(vectors = names(env_data)))) diff --git a/.Rproj.user/EAEB7255/sources/per/t/8F5BFB6A b/.Rproj.user/EAEB7255/sources/s-A74A5E15/E666EB0A similarity index 63% rename from .Rproj.user/EAEB7255/sources/per/t/8F5BFB6A rename to .Rproj.user/EAEB7255/sources/s-A74A5E15/E666EB0A index 929d756..8f99c7a 100644 --- a/.Rproj.user/EAEB7255/sources/per/t/8F5BFB6A +++ b/.Rproj.user/EAEB7255/sources/s-A74A5E15/E666EB0A @@ -1,21 +1,21 @@ { "collab_server" : "", "contents" : "", - "created" : 1536264244143.000, + "created" : 1551911553391.000, "dirty" : false, "encoding" : "UTF-8", "folds" : "", - "hash" : "1779826032", - "id" : "8F5BFB6A", + "hash" : "0", + "id" : "E666EB0A", "lastKnownWriteTime" : 1547069446, - "last_content_update" : 1547069446252, + "last_content_update" : 1547069446, "path" : "~/Research/MS Thesis/Understory/understory_data_prep.R", "project_path" : "understory_data_prep.R", "properties" : { - "cursorPosition" : "94,50", - "scrollLine" : "20" + "cursorPosition" : "23,28", + "scrollLine" : "17" }, - "relative_order" : 6, + "relative_order" : 3, "source_on_save" : false, "source_window" : "", "type" : "r_source" diff --git a/.Rproj.user/EAEB7255/sources/s-A74A5E15/E666EB0A-contents b/.Rproj.user/EAEB7255/sources/s-A74A5E15/E666EB0A-contents new file mode 100644 index 0000000..1630074 --- /dev/null +++ b/.Rproj.user/EAEB7255/sources/s-A74A5E15/E666EB0A-contents @@ -0,0 +1,95 @@ +##Understory data formatting +## +library("reshape2") +library("plyr") +library("effects") + + +daub <- read.csv("./raw data/daub_cover.csv", stringsAsFactors = FALSE) + +#some data proofing +daub <- daub[(daub$Transect %in% c("N", "E", "S", "W")), ] +daub$Plot <- as.character(daub$Plot) +daub[daub$Plot == "NPElectricEel", "Plot"] <- "NPELECTRICEEL" +daub[daub$Plot == "NPElectricEel120", "Plot"] <- "NPELECTRICEEL120" +daub[daub$Plot == "NPElectricEel240", "Plot"] <- "NPELECTRICEEL240" +daub[daub$Plot == "NPElectricEel360", "Plot"] <- "NPELECTRICEEL360" +daub$Midpoint.value <- as.numeric(as.character((daub$Midpoint.value))) +daub$unique_quad <- paste0(daub$Plot, daub$Transect, daub$Meter) +daub[daub$Cover.type == "Perennial forb ", "Cover.type"] <- "Perennial forb" +daub[daub$Cover.type == "Shrub ", "Cover.type"] <- "Shrub" + +trees <- read.csv("./raw data/trees_updated_with_logs_041716.csv") +tree_pdc <- read.csv("./raw data/all_trees_with_delta_and_ENN_041916.csv") +greenwood_under <- read.csv("./raw data/Greenwood_Understory_Variables_SF_edits.csv") +tcover <- read.csv("./raw data/tree_and_shrub_cover_020815.csv") + names(tcover)[3] <- "Shrub_cover_li" +source("./calculate_awc.R") +soil <- calculate_awc(soil_raw = "./raw data/soils_missing_imputed_012016.csv") +clim <- read.csv("./raw data/ALL_climate_variables.csv") + names(clim)[2] <- "Plot" +other_vars <- read.csv("./raw data/all_vars_EXPORT.csv") + + +#remaking data into plot average cover +plot_daub_cover <- dcast(daub, Plot ~ Cover.type, value.var = "Midpoint.value", fun.aggregate = mean) +names(plot_daub_cover) <- c("Plot", "Aforb", "Bg", "Cheatgrass", "Crust", "Gravel", "Litter", + "Agrass", "Pforb", "Pgrass", "Rock", "Shrub") +plot_daub_cover$All <- plot_daub_cover$Aforb + plot_daub_cover$Cheatgrass + plot_daub_cover$Agrass + plot_daub_cover$Pforb + + plot_daub_cover$Pgrass + plot_daub_cover$Shrub + +#------------------------------------------------------------- +#Create tree data plot-level + +#impute meanas for missing values +for (i in which(sapply(trees, is.numeric))) { + for (j in which(is.na(trees[, i]))) { + trees[j, i] <- mean(trees[trees[, "Plot"] == trees[j, "Plot"], i], na.rm = TRUE) + } +} + +plot_trees <- data.frame(Plot = character(102), + Live_ba = numeric(102), + Dead_ba = numeric(102), + Total_ba = numeric(102), + Dead_rat = numeric(102), + Delta_pdc = numeric(102)) + +plot_trees$Plot <- as.character(unique(plot_daub_cover$Plot)) + +for(i in (1:nrow(plot_trees))){ + plot_trees$Live_ba[i] <- sum(trees[trees$Live == "Y" & trees$Plot == as.character(plot_trees$Plot[i]), ]$BA_cm, + na.rm = TRUE) + plot_trees$Dead_ba[i] <- sum(trees[trees$Live == "N" & trees$Plot == as.character(plot_trees$Plot[i]), ]$BA_cm, + na.rm = TRUE) + plot_trees$Total_ba[i] <- sum(trees[trees$Plot == as.character(plot_trees$Plot[i]), ]$BA_cm, na.rm = TRUE) + plot_trees$Dead_rat[i] <- plot_trees$Dead_ba[i] / plot_trees$Total_ba[i] + plot_trees$Delta_pdc[i] <- weighted.mean(tree_pdc[tree_pdc$Plot == as.character(plot_trees$Plot[i]), "Delta_pdc"], + tree_pdc[tree_pdc$Plot == as.character(plot_trees$Plot[i]), "BA_cm"]) +} + + +#----------------------------------------------- +# Plot-level cover for everything and also predictor variables + +#fill in any NAs + +plot_data <- join(plot_daub_cover, plot_trees, by = c("Plot")) +plot_data <- join(plot_data, clim[, c("Plot", "cwd_normal_cum")], by = "Plot") +plot_data <- join(plot_data, soil[, c("Plot", "AWC")], by = "Plot") +plot_data <- join(plot_data, tcover[, c("Plot", "Tree_cover", "Shrub_cover_li")], by = "Plot") +plot_data <- join(plot_data, other_vars[, c("Plot", "Cluster", "Avg_depth")], by = "Plot") + + +for (i in which(sapply(plot_data, is.numeric))) { + for (j in which(is.na(plot_data[, i]))) { + plot_data[j, i] <- mean(plot_data[, i], na.rm = TRUE) + } +} + +levels(plot_data$Cluster) <- c(levels(plot_data$Cluster), "NPELECTRICEEL") +plot_data[(plot_data$Plot %in% c("NPELECTRICEEL", "NPELECTRICEEL120", + "NPELECTRICEEL240", "NPELECTRICEEL360")), "Cluster"] <- "NPELECTRICEEL" + + +write.csv(plot_data, "./clean data/plot_data.csv") \ No newline at end of file diff --git a/.Rproj.user/EAEB7255/sources/s-A74A5E15/F8B392EE b/.Rproj.user/EAEB7255/sources/s-A74A5E15/F8B392EE new file mode 100644 index 0000000..a70d475 --- /dev/null +++ b/.Rproj.user/EAEB7255/sources/s-A74A5E15/F8B392EE @@ -0,0 +1,22 @@ +{ + "collab_server" : "", + "contents" : "", + "created" : 1547230037453.000, + "dirty" : false, + "encoding" : "UTF-8", + "folds" : "", + "hash" : "0", + "id" : "F8B392EE", + "lastKnownWriteTime" : 1547472910, + "last_content_update" : 1547472910192, + "path" : "~/Research/MS Thesis/Understory/understory_effects_plots.R", + "project_path" : "understory_effects_plots.R", + "properties" : { + "cursorPosition" : "13,21", + "scrollLine" : "4" + }, + "relative_order" : 2, + "source_on_save" : false, + "source_window" : "", + "type" : "r_source" +} \ No newline at end of file diff --git a/.Rproj.user/EAEB7255/sources/s-A74A5E15/F8B392EE-contents b/.Rproj.user/EAEB7255/sources/s-A74A5E15/F8B392EE-contents new file mode 100644 index 0000000..7d8e0c1 --- /dev/null +++ b/.Rproj.user/EAEB7255/sources/s-A74A5E15/F8B392EE-contents @@ -0,0 +1,447 @@ +### Code to make effects plots + +# TODO scheck what models are fit, fit them in another script and import them to here + +library(visreg) +library(car) +library(effects) +library(lme4) + +pardefault <- par(no.readonly = T) +source('addTrans.R', echo=FALSE) + +### set some parameters to be use throughout +cg <- cheatgrass_plot +pg <- pgrass_plot +pf <- pforb_plot +sh <- shrub_plot + +# function to calculate standard errors for a given vcov matrix and row of x values, to get +# point estimates of prediction error for a given prediction. See http://www.ats.ucla.edu/stat/r/faq/deltamethod.htm +# This gets used for the confidence interval of the effects plot + +calc.se <- function(x){ + sqrt(as.matrix(x) %*% vcov(model) %*% t(x)) +} + +inv.as <- function(x){ + (sin(x))^2 +} + +############################################## +## Creating new predictions +############################################## +model <- cg + + +# Calculate residuals from predicted values and observed values +resid <- residuals(model) + +# for unscaling variables -- these things come from a full model in the model set, you'll have to change +# the number or the path depending upon what kind of model object and the order of your models, etc. +# You can also just get them from the raw data. +tc_mean <- mean(plot_data$Tree_cover) +tc_sd <- sd(plot_data$Tree_cover) + +cwd_mean <- mean(plot_data$cwd_normal_cum) +cwd_sd <- sd(plot_data$cwd_normal_cum) + +Delta_pdc_mean <- mean(plot_data$Delta_pdc) +Delta_pdc_sd <- sd(plot_data$Delta_pdc) + +################################ +## Calcuate partial residuals, effects, for avg_BA +################################ + +model <- cg + +C_tc <- data.frame( + Tree_cover = seq(min(plot_data$Tree_cover), max(plot_data$Tree_cover), length.out = 102), + cwd_normal_cum = mean(plot_data$cwd_normal_cum), + Delta_pdc = mean(plot_data$Delta_pdc), + AWC = mean(plot_data$AWC) +) + +C_awc <- data.frame( + Tree_cover = mean(plot_data$Tree_cover), + cwd_normal_cum = mean(plot_data$cwd_normal_cum), + Delta_pdc = mean(plot_data$Delta_pdc), + AWC = seq(min(plot_data$AWC), max(plot_data$AWC), length.out = 102) +) + +C_pdc_10 <- data.frame( + Tree_cover = mean(plot_data$Tree_cover), + cwd_normal_cum = unname(quantile(plot_data$cwd_normal_cum, .1)), + Delta_pdc = seq(min(plot_data$Delta_pdc), max(plot_data$Delta_pdc), length.out = 102), + AWC = mean(plot_data$AWC) +) + +C_pdc_50 <- data.frame( + Tree_cover = mean(plot_data$Tree_cover), + cwd_normal_cum = unname(quantile(plot_data$cwd_normal_cum, .5)), + Delta_pdc = seq(min(plot_data$Delta_pdc), max(plot_data$Delta_pdc), length.out = 102), + AWC = mean(plot_data$AWC) +) + +C_pdc_90 <- data.frame( + Tree_cover = mean(plot_data$Tree_cover), + cwd_normal_cum = unname(quantile(plot_data$cwd_normal_cum, .9)), + Delta_pdc = seq(min(plot_data$Delta_pdc), max(plot_data$Delta_pdc), length.out = 102), + AWC = mean(plot_data$AWC) +) + + +# model <- cg +# C <- C_tc +# predictor <- "Tree_cover" +calculate_preds <- function(model, C, predictor){ + preds <- data.frame( + predictions = predict(model, re.form = NA, newdata = C, type = "response"), + predictor = C[, predictor] + ) + + return(preds) + +} + +# Use the function to get all the stuff we need +# (predictions, partial residuals, and SEs) +# this is the dumbest way to do this but I don't want to rewrite it +preds_tc_cg <- calculate_preds(cg, C_tc, "Tree_cover") +preds_tc_pg <- calculate_preds(pg, C_tc, "Tree_cover") +preds_tc_pf <- calculate_preds(pf, C_tc, "Tree_cover") +preds_tc_sh <- calculate_preds(sh, C_tc, "Tree_cover") + +preds_awc_cg <- calculate_preds(cg, C_awc, "AWC") +preds_awc_pg <- calculate_preds(pg, C_awc, "AWC") +preds_awc_pf <- calculate_preds(pf, C_awc, "AWC") +preds_awc_sh <- calculate_preds(sh, C_awc, "AWC") + +preds_pdc_10_cg <- calculate_preds(cg, C_pdc_10, "Delta_pdc") +preds_pdc_10_pg <- calculate_preds(pg, C_pdc_10, "Delta_pdc") +preds_pdc_10_pf <- calculate_preds(pf, C_pdc_10, "Delta_pdc") +preds_pdc_10_sh <- calculate_preds(sh, C_pdc_10, "Delta_pdc") + +preds_pdc_50_cg <- calculate_preds(cg, C_pdc_50, "Delta_pdc") +preds_pdc_50_pg <- calculate_preds(pg, C_pdc_50, "Delta_pdc") +preds_pdc_50_pf <- calculate_preds(pf, C_pdc_50, "Delta_pdc") +preds_pdc_50_sh <- calculate_preds(sh, C_pdc_50, "Delta_pdc") + +preds_pdc_90_cg <- calculate_preds(cg, C_pdc_90, "Delta_pdc") +preds_pdc_90_pg <- calculate_preds(pg, C_pdc_90, "Delta_pdc") +preds_pdc_90_pf <- calculate_preds(pf, C_pdc_90, "Delta_pdc") +preds_pdc_90_sh <- calculate_preds(sh, C_pdc_90, "Delta_pdc") + +# create plots of log-partial-residuals y-axis versus natural x-scale +# this is also dumb and I could do it in a loop except I don't want to +# put all the predictions in a list +setwd("C:/Users/Sam/Documents/Research/MS Thesis/Understory/outputs") #where the plots go + +opar <- par(no.readonly = TRUE) +par(opar) + +png(filename="understory_effects.png", + type="cairo", + units="in", + width = 7, + height=5, + pointsize=15, + res=160) + +layout(matrix(c(1,2,3,4,5,6), nrow = 2, ncol = 3, byrow = TRUE)) + +par(oma = c(2,4,0,0), mar = c(3,1,1,1), family = "serif", bty = 'n') + + +plot(NA, + ylim = c(0,.1), + xlim = c(I(min(plot_data$Tree_cover)*100), I(max(plot_data$Tree_cover)*100)), + xlab = "", + ylab = "", + bg='grey60', + col = 'grey30', + pch = 21, + cex.lab = 1.5, + bty = 'n', + xaxt = 'n', + yaxt = 'n') +lines(inv.as(preds_tc_cg$predictions) ~ I(preds_tc_cg$predictor*100), lwd = 2, lty = 1, col = "#1b9e77") +lines(inv.as(preds_tc_pg$predictions) ~ I(preds_tc_cg$predictor*100), lwd = 2, lty = 2, col = "#d95f02") +lines(inv.as(preds_tc_pf$predictions) ~ I(preds_tc_cg$predictor*100), lwd = 2, lty = 3, col = "#7570b3") +lines(inv.as(preds_tc_sh$predictions) ~ I(preds_tc_cg$predictor*100), lwd = 2, lty = 4, col = "#e7298a") +axis(side = 1) +axis(side = 2) +mtext(text = "Tree Cover (%)", side = 1, line = 2.2) +mtext(text = "Predicted Cover", side = 2, outer = TRUE, line = 2, cex = 1) +mtext(text = "(a)", side = 1, line = -10, adj = 0.05) + + +plot(NA, + ylim = c(0,.1), + xlim = c(min(plot_data$AWC), max(plot_data$AWC)), + xlab = "", + ylab = "", + bg='grey60', + col = 'grey30', + pch = 21, + cex.lab = 1.5, + bty = 'n', + xaxt = 'n', + yaxt = 'n') +lines(inv.as(preds_awc_cg$predictions) ~ I(preds_awc_cg$predictor), lwd = 2, lty = 1, col = "#1b9e77") +lines(inv.as(preds_awc_pg$predictions) ~ I(preds_awc_cg$predictor), lwd = 2, lty = 2, col = "#d95f02") +lines(inv.as(preds_awc_pf$predictions) ~ I(preds_awc_cg$predictor), lwd = 2, lty = 3, col = "#7570b3") +lines(inv.as(preds_awc_sh$predictions) ~ I(preds_awc_cg$predictor), lwd = 2, lty = 4, col = "#e7298a") +axis(side = 1) +axis(side = 2) +mtext(text = "Soil AWC (%)", side = 1, line = 2.2) +mtext(text = "(b)", side = 1, line = -10, adj = 0.05) + + +plot.new() +legend("topright", legend = c("Cheatgrass", "Perr. Grass", "Perr. Forb", "Shrub"), + lty = c(1,2,3,4), lwd = 2, cex = 1.3, col = c("#1b9e77", "#d95f02", "#7570b3", "#e7298a")) + +plot(NA, + ylim = c(0,.2), + xlim = c(min(plot_data$Delta_pdc), max(plot_data$Delta_pdc)), + xlab = "", + ylab = "", + bg='grey60', + col = 'grey30', + pch = 21, + cex.lab = 1.5, + bty = 'n', + xaxt = 'n', + yaxt = 'n') +lines(inv.as(preds_pdc_10_cg$predictions) ~ I(preds_pdc_10_cg$predictor), lwd = 2, lty = 1, col = "#1b9e77") +lines(inv.as(preds_pdc_10_pg$predictions) ~ I(preds_pdc_10_cg$predictor), lwd = 2, lty = 2, col = "#d95f02") +lines(inv.as(preds_pdc_10_pf$predictions) ~ I(preds_pdc_10_cg$predictor), lwd = 2, lty = 3, col = "#7570b3") +lines(inv.as(preds_pdc_10_sh$predictions) ~ I(preds_pdc_10_cg$predictor), lwd = 2, lty = 4, col = "#e7298a") +axis(side = 1) +axis(side = 2) +text(x = -30, y = .09, labels = "10% CWD", cex = 1.3) +mtext(text = "(c)", side = 1, line = -10, adj = 0.05) + +plot(NA, + ylim = c(0,.2), + xlim = c(min(plot_data$Delta_pdc), max(plot_data$Delta_pdc)), + xlab = "", + ylab = "", + bg='grey60', + col = 'grey30', + pch = 21, + cex.lab = 1.5, + bty = 'n', + xaxt = 'n', + yaxt = 'n') +lines(inv.as(preds_pdc_50_cg$predictions) ~ I(preds_pdc_90_cg$predictor), lwd = 2, lty = 1, col = "#1b9e77") +lines(inv.as(preds_pdc_50_pg$predictions) ~ I(preds_pdc_90_cg$predictor), lwd = 2, lty = 2, col = "#d95f02") +lines(inv.as(preds_pdc_50_pf$predictions) ~ I(preds_pdc_90_cg$predictor), lwd = 2, lty = 3, col = "#7570b3") +lines(inv.as(preds_pdc_50_sh$predictions) ~ I(preds_pdc_90_cg$predictor), lwd = 2, lty = 4, col = "#e7298a") +axis(side = 1) +axis(side = 2) +text(x = -30, y = .09, labels = "50% CWD", cex = 1.3) +mtext(text = "Change in Live Canopy (%)", side = 1, line = 2.2) +mtext(text = "(d)", side = 1, line = -10, adj = 0.05) + + +plot(NA, + ylim = c(0,.3), + xlim = c(min(plot_data$Delta_pdc), max(plot_data$Delta_pdc)), + xlab = "", + ylab = "", + bg='grey60', + col = 'grey30', + pch = 21, + cex.lab = 1.5, + bty = 'n', + xaxt = 'n', + yaxt = 'n') +lines(inv.as(preds_pdc_90_cg$predictions) ~ I(preds_pdc_90_cg$predictor), lwd = 2, lty = 1, col = "#1b9e77") +lines(inv.as(preds_pdc_90_pg$predictions) ~ I(preds_pdc_90_cg$predictor), lwd = 2, lty = 2, col = "#d95f02") +lines(inv.as(preds_pdc_90_pf$predictions) ~ I(preds_pdc_90_cg$predictor), lwd = 2, lty = 3, col = "#7570b3") +lines(inv.as(preds_pdc_90_sh$predictions) ~ I(preds_pdc_90_cg$predictor), lwd = 2, lty = 4, col = "#e7298a") +axis(side = 1) +axis(side = 2) +text(x = -30, y = .09, labels = "90% CWD", cex = 1.3) +mtext(text = "(e)", side = 1, line = -10, adj = 0.05) + + +dev.off() + +par(pardefault) + + +#---------------------------------------------------------------------------------- +# Cheatgrass change over time +#---------------------------------------------------------------------------------- +## new data +model <- + +C_cg_change_10 <- data.frame( + cwd_normal_cum = unname(quantile(compare$cwd_normal_cum, .1)), + Delta_pdc = seq(-60,15, length.out = 100) +) + + +C_cg_change_50 <- data.frame( + cwd_normal_cum = unname(quantile(compare$cwd_normal_cum, .5)), + Delta_pdc = seq(-60,15, length.out = 100) +) + + +C_cg_change_90 <- data.frame( + cwd_normal_cum = unname(quantile(compare$cwd_normal_cum, .9)), + Delta_pdc = seq(-60,15, length.out = 100) +) + +#calculate partial residuals for different levels of cwd + +part_resids_10 <- residuals(model) + model$model[, "Delta_pdc"] * coef(model)["Delta_pdc"] + + unname(quantile(compare$cwd_normal_cum, .1)) * coef(model)["cwd_normal_cum"] + + model$model[, "Delta_pdc"] * unname(quantile(compare$cwd_normal_cum, .1)) * coef(model)["Delta_pdc:cwd_normal_cum"] + + coef(model)["(Intercept)"] + +part_resids_50 <- residuals(model) + model$model[, "Delta_pdc"] * coef(model)["Delta_pdc"] + + unname(quantile(compare$cwd_normal_cum, .5)) * coef(model)["cwd_normal_cum"] + + model$model[, "Delta_pdc"] * unname(quantile(compare$cwd_normal_cum, .5)) * coef(model)["Delta_pdc:cwd_normal_cum"] + + coef(model)["(Intercept)"] + +part_resids_90 <- residuals(model) + model$model[, "Delta_pdc"] * coef(model)["Delta_pdc"] + + unname(quantile(compare$cwd_normal_cum, .9)) * coef(model)["cwd_normal_cum"] + + model$model[, "Delta_pdc"] * unname(quantile(compare$cwd_normal_cum, .9)) * coef(model)["Delta_pdc:cwd_normal_cum"] + + coef(model)["(Intercept)"] + + +#function to calculate predictions +preds_cg_change <- function(model, C, predictor){ + preds <- data.frame( + predictions = predict(model, se = TRUE, newdata = C, type = "response")$fit, + lo = predict(model, se = TRUE, newdata = C)$fit - 1.96*predict(model, se = TRUE, newdata = C)$se.fit, + hi = predict(model, se = TRUE, newdata = C)$fit + 1.96*predict(model, se = TRUE, newdata = C)$se.fit, + predictor = C[, predictor] + ) + + return(preds) +} + +cg_change_10 <- preds_cg_change(cg_change_lm, C_cg_change_10, "Delta_pdc") +cg_change_50 <- preds_cg_change(cg_change_lm, C_cg_change_50, "Delta_pdc") +cg_change_90 <- preds_cg_change(cg_change_lm, C_cg_change_90, "Delta_pdc") + + + +setwd("C:\\Users\\Sam\\Google Drive\\Thesis related\\Understory\\outputs") #where the plots go + +png(filename="cheatgrass_change_effect.png", + type="cairo", + units="in", + width = 5, + height=3, + pointsize=15, + res=160) + +layout(matrix(c(1,2,3), nrow=1, ncol=3, byrow = TRUE)) +par(mar = c(0,1,0,0), oma = c(3,4,2,2), family = "serif", bty = 'n') + + plot(NA, + ylim = c(-.03,.06), + xlim = c(-50,10), + xlab = "", + ylab = "", + xaxt = "n", + bg='grey60', + col = 'grey30', + pch = 21, + cex.lab = 1.5) + abline(h = 0, lty = 4, lwd = 1.3) + lines((inv.as(cg_change_10$predictions) + min(compare$Cheatgrass/100 - compare$Cheatgrass.Cover/100)) ~ I(cg_change_10$predictor), lwd = 2, lty = 1, col = "#1b9e77") + lines((inv.as(cg_change_10$lo) + min(compare$Cheatgrass/100 - compare$Cheatgrass.Cover/100)) ~ I(cg_change_10$predictor), lwd = 1, lty = 1, col = "#1b9e77") + lines((inv.as(cg_change_10$hi) + min(compare$Cheatgrass/100 - compare$Cheatgrass.Cover/100)) ~ I(cg_change_10$predictor), lwd = 1, lty = 1, col = "#1b9e77") + polygon(c(cg_change_10$predictor, rev(cg_change_10$predictor)), c((exp(cg_change_10$hi) + min(compare$Cheatgrass/100 - compare$Cheatgrass.Cover/100)), + rev((exp(cg_change_10$lo) + min(compare$Cheatgrass/100 - compare$Cheatgrass.Cover/100)))), + col = addTrans("#68EBC4",30), border = NA) #fills in the area between high and low confidence intervals + + points((exp(part_resids_10[model$model[, "cwd_normal_cum"] < unname(quantile(compare$cwd_normal_cum, .3))]) + + min(compare$Cheatgrass/100 - compare$Cheatgrass.Cover/100))~ + model$model[model$model[, "cwd_normal_cum"] < unname(quantile(compare$cwd_normal_cum, .3)), "Delta_pdc"], + bg='grey60', + col = 'grey30', + pch = 21, + cex = 1.5) + axis(side = 1, at = c(-40, -20, 0), labels = TRUE, mgp=c(1.5,-0.5,-1.5)) + axis(side = 1, at = c(-50, -30, -10, 10), labels = FALSE, tcl = -.25, mgp=c(1.5,-0.5,-1.5)) + text(x = -20, y = .06, labels = "10% CWD") + + + plot(NA, + ylim = c(-.03,.06), + xlim = c(-50,10), + xlab = "", + ylab = "", + yaxt = "n", + xaxt = "n", + bg='grey60', + col = 'grey30', + pch = 21, + cex.lab = 1.5) + abline(h = 0, lty = 4, lwd = 1.3) + lines((exp(cg_change_50$predictions) + min(compare$Cheatgrass/100 - compare$Cheatgrass.Cover/100)) ~ I(cg_change_10$predictor), lwd = 2, lty = 1, col = "#1b9e77") + lines((exp(cg_change_50$lo) + min(compare$Cheatgrass/100 - compare$Cheatgrass.Cover/100)) ~ I(cg_change_10$predictor), lwd = 1, lty = 1, col = "#1b9e77") + lines((exp(cg_change_50$hi) + min(compare$Cheatgrass/100 - compare$Cheatgrass.Cover/100)) ~ I(cg_change_10$predictor), lwd = 1, lty = 1, col = "#1b9e77") + polygon(c(cg_change_50$predictor, rev(cg_change_50$predictor)), c((exp(cg_change_50$hi) + min(compare$Cheatgrass/100 - compare$Cheatgrass.Cover/100)), + rev((exp(cg_change_50$lo) + min(compare$Cheatgrass/100 - compare$Cheatgrass.Cover/100)))), + col = addTrans("#68EBC4",30), border = NA) #fills in the area between high and low confidence intervals + + + points((exp(part_resids_50[model$model[, "cwd_normal_cum"] > unname(quantile(compare$cwd_normal_cum, .3)) & + model$model[, "cwd_normal_cum"] < unname(quantile(compare$cwd_normal_cum, .7))]) + + min(compare$Cheatgrass/100 - compare$Cheatgrass.Cover/100)) ~ + model$model[model$model[, "cwd_normal_cum"] > unname(quantile(compare$cwd_normal_cum, .3)) & + model$model[, "cwd_normal_cum"] < unname(quantile(compare$cwd_normal_cum, .7)), "Delta_pdc"], + bg='grey60', + col = 'grey30', + pch = 21, + cex = 1.5) + axis(side = 2, labels = FALSE) + axis(side = 1, at = c(-40, -20, 0), labels = TRUE, mgp=c(1.5,-0.5,-1.5)) + axis(side = 1, at = c(-50, -30, -10, 10), labels = FALSE, tcl = -.25, mgp=c(1.5,-0.5,-1.5)) + text(x = -20, y = .06, labels = "50% CWD") + + + plot(NA, + ylim = c(-.03,.06), + xlim = c(-50,10), + xlab = "", + ylab = "", + yaxt = "n", + xaxt = "n", + bg='grey60', + col = 'grey30', + pch = 21, + cex.lab = 1.5) + abline(h = 0, lty = 4, lwd = 1.3) + lines((exp(cg_change_90$predictions) + min(compare$Cheatgrass/100 - compare$Cheatgrass.Cover/100)) ~ I(cg_change_10$predictor), lwd = 2, lty = 1, col = "#1b9e77") + lines((exp(cg_change_90$lo) + min(compare$Cheatgrass/100 - compare$Cheatgrass.Cover/100)) ~ I(cg_change_10$predictor), lwd = 1, lty = 1, col = "#1b9e77") + lines((exp(cg_change_90$hi) + min(compare$Cheatgrass/100 - compare$Cheatgrass.Cover/100)) ~ I(cg_change_10$predictor), lwd = 1, lty = 1, col = "#1b9e77") + polygon(c(cg_change_90$predictor, rev(cg_change_90$predictor)), c((exp(cg_change_90$hi) + min(compare$Cheatgrass/100 - compare$Cheatgrass.Cover/100)), + rev((exp(cg_change_90$lo) + min(compare$Cheatgrass/100 - compare$Cheatgrass.Cover/100)))), + col = addTrans("#68EBC4",30), border = NA) #fills in the area between high and low confidence intervals + + points((exp(part_resids_90[model$model[, "cwd_normal_cum"] > unname(quantile(compare$cwd_normal_cum, .7))]) + + min(compare$Cheatgrass/100 - compare$Cheatgrass.Cover/100)) ~ + model$model[model$model[, "cwd_normal_cum"] > unname(quantile(compare$cwd_normal_cum, .7)), "Delta_pdc"], + bg='grey60', + col = 'grey30', + pch = 21, + cex = 1.5) + axis(side = 2, labels = FALSE) + axis(side = 1, at = c(-40, -20, 0), labels = TRUE, mgp=c(1.5,-0.5,-1.5)) + axis(side = 1, at = c(-50, -30, -10, 10), labels = FALSE, tcl = -.25, mgp=c(1.5,-0.5,-1.5)) + text(x = -20, y = .06, labels = "90% CWD") + + mtext(side = 1, text = "Change in Live Crown", outer = TRUE, line = 1.7) + mtext(side = 2, text = "Pred. Change Cheatgrass Cover", outer = TRUE, line = 2.3) + +dev.off() diff --git a/.Rproj.user/EAEB7255/sources/s-A74A5E15/lock_file b/.Rproj.user/EAEB7255/sources/s-A74A5E15/lock_file new file mode 100644 index 0000000..e69de29 diff --git a/.Rproj.user/EAEB7255/viewer-cache/29B3C11D.Rdata b/.Rproj.user/EAEB7255/viewer-cache/29B3C11D.Rdata deleted file mode 100644 index 4cca1bd87800d5e94c328745d77f3e5a80db3685..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 19424 zcmeIZ2UL^Iw=eu!5kXLjNEf76r3(U5qzVW~F98why$K{i1*9k-MUXCCdhd`(ml}!? zY9b(n5(qT`LXsQb|2^kB_kQc%bJx1-obTN4T-K26nc1_SJ-%5h^8iHxSYdoV?gHO z*?i@MbD<{R)IE>ATO{_lp8~8)yQr26t9C~zg;;Clb>PYB7;FKm;c#moh2A*cq?+}ts~zgu0l_tgS$>yhiywCFXW zj%+s<)((SmJ3~?B;*UV6-6bcAeTKezE$Ui_ab$c*v`07*JATNdL|XB0V=)p5@XO|= z*b5&|eoXU=B9H%V)(_h5yzVDF0;y`TMV?j0)Z|{M*wy>oq`7s#l!NbfmEiolQGT-5 z&9hq@?;eqRnnFh4SxfZgskOiR$Z#p-X2{Ju-2-s6}*~P5RXjy8i>4zZ9=2 zQeGxo)xJx{=Fg?Rj7Bl&E?JlSqXijhj>{TkXt-OpPMP}q^6wA7^Zy?;4A@WJMN-K9{UzEzGMXian;QD{X6!-_z+5ZRA zin8M5pm8TSkmlsZAfES|Ja9JLwA>%ShMWoSnR!otc=0qh1f+6|6Tbu-ys2oU?OJaUs-T5iwQYS?v@W z2E$(B_XIWLE-5Zhgfb?4lf0~b2s&0&Ev^^A%OjZ7g7Z%7C&$Dx()Hg$YMGV`kg^^d-TM{H~Xi_ z$^87N)pysXw7w`kw0&UjI~M7~!$4`@9Vy5ZtMTQQ{aCfRw>>lEA^!l%TA<}Vs{0+) z;^xcSChmxt6x*(B{g$bgV%hbIghVALrV;ZtyUmBX;^rAlcjA`g`jYqm5`7I&`IiBL1YCeAZtia_Ljok+6Rl z8>qD17piO%>RVj!f*ee;a^S`8oFC{SfrpLo{mtgV?Z+16Uiv&iCTN~1vg_P_E zZfy^g4x~Zwn4hTO`w%b8{+)i@{cU`}Vo-(+4hR}Y`5|{UG7Gj>eBoGZXD+bBqRb$n zR>l_IHXcMc<47<@LXT{qTnO47cJynk{wl5)mYD&+c!bm3mc8KlamMT7MmxY$d9EEm z+;_6&i9xxA>G5x)ayOL%kfwm6^fGaobg}Cakgq${Z0IvHno_={r?bDj_GC|3&u02kU`$7_-Mttg$6MjF(LJHae1aVf(||syD2&Y zgN!-FYy-nin|nDtr;aSA&k8&Wh|Z)_@PVU%kr&d8HW_Q_yEG?|Bi{VOJR}T}fVrfc zN?X6*@x&hx&%JZ#p?%z$tAK!dv3fu;!btH3Yk7!mC|tmk(<77gp({$`0hO$#z5c1p z?}9HE+T3o}8VY zt}LuahgDAn?^PK-T8D7>>z_S1*xB0@nSg;8K^+Gy?7Dy^jFUWS^Ueg(zu=271}3S7 zDur`!DS=vZgpp` zN%HGKp$_{#%2abUrx!$9xGSSCAr0g+<}iGBs``cmzIN zZ#YuT2^dn^fw306W&?qMfQbhs=&9hxtBh-L32QrsY)HaM$Y}KiL~iv5jMdQHxDv4V zFVuAat4l|oUzSAR2WwrpXIt}l1qA2;j94pjSjYc_DJpApAPKKKGF=*~flv1wbm5OU zbzg^W&g{16`2DO~BC2MXk6Z z`1zL;LjS!AYD{wctvEdhz%#MIiz1hzlpt6wxdv~3$lBMD9kxGFWMbxAs8Fg?Q0C#}w;w1>@1)=e*1#(K`54BMl?2*B0t1U2H zjEXbJ<$TpAbvKh>z3P{8pgXW?zn-v5@=TVW?98dYxAtQ|VMr1xdmOw8%)><=+4i7H zaEX~`>AN0ei?uNcMW}RS?qTP7rC|r(1R(>ahNCWhxQj|<8B~mhM(yqF)&5?J+1@}z z!EAC#xA##f-cGZxZbPE$$-C3e?zo+Tfc@=Oj40FV6K8ALqvlR8Ap9u-~w>>?1ic12D zd&^w+``mvGsR2O!Sv|48x3iA= z;%}gJx>DQwNq#RNcYW3EdUo=WZAQO2Kvuq5rq74N@8r=j2)3OjpLuwkM}2^oXj`9< ze$#&$AckR*kB4AfvI=mjrH$y1*2B1bAaWBQl~X_7`0*@%RRwjSQ?@8n^N*zy1b0B7 z8j3|(xM*k1?Vg(@|w*StC^T^HtngAOlRW4ZJ6* z5h9~G{0p_$QGL?Zx1fuYDsAnDC6Wg-;aa8Sj&KM`1uii}5f|fsBR`kGmhUr#gNlb& z83Ku?gyA`XSJ_Ik%c1`BW>UBDZl}cPgQm@q@ZF%(dN!8KlbmIl31HZP;-#gaDfy`f zc|P|V^+V(O(Lb3F<^*gDHXh}NngE#O5&pS)a|igEp9Jx>_XEaY(_gs8qZ~hDg%j|q zeNt}P_QRD>uQuglpEQ_Lo9*O-72LZN-4M=9c|7j8z^A7*jx|j7L{T9w z062=&ZM{B6EE3}RMK>t*I; zID$@@ITXXz;f5rq0y)odxx^NOcw5=m$Zw!0c8lQg)x%xmalWMz7o5usNT|)=aCfR( z0c-IYRtnTuI~2^-3usLx_PD0J=H!NIeJuF-vY|(TW>j{!8OWO(tPeCYIHX;lLxE=i z*p3rZa1BfuH@IcoUb+mgzDp+$O1@@QrB5Hip{Us&r&;8v{%qzUVF=J0K&DWv4k zQxKOlt%rsA)s-{_?5ARyK4*PlR(NO-U{^M_kX2+EI2efjNlQ3IP|hQUI^U%}N@fY? zf#WD87K&4J@v%s)SAH#aa3#x4ow;Q;yqpiob0n zEYVD|Vz_0ca<(0w)19gY`mmrt$}4F$IlJx)a_E-(yDP`nIL|&hEVTU+T3PEtAEk=U z=|8-J=Um|#8@yjHEjHM>8z^NWwB0nsen+jHwtW{AH2-TCKDDrWyGa`#kMLZ8RZfHs z+|9Lw;wrICHh~EWQ;K=YFJaK*DVd8+un#s{VS|yck)hMsSjxf9C0@1VnMA!SxoXYU zFw7)Zlq@PK`80{igY#sm0kOWwOYy2iDEsN@W^3z?x{I<*a-MH>{9K4eeL%O3=Q$<_ z)&byY`+c|g-H$FG?m1Qb`4k@U+TBLDNi42iOjBX(o$h-)-n~5jnj488_5C69=zD?0 zjsYaZ3vuRxU*8odBZ8pWJC32K@u@U?1l1sF-C^p)T+9d6 z%qgeP_a4N-%gCb*-n<^Z0<9Ef)tN1yXa{aA&rM@@ zpSpvC+LiVFr$9~cG{ql?{W)6<2wF*zQ0ukeqOlt)!xtq^ZQuD3n$PxoUrEMuf6E6tu5inCdD*(-q5z#2qy`Z)cBJh0|Z} zP{U11spPOCv^}Ys9GZ7D;F4d@~ak(eg*IHOmI z2LVxtUU!GedsX-3HA9!8*a5VQq*mYx8#+T~jUT@(K&U-DYUQzP2XQk8%D?D5Y6{sd zSJ^a9*wNkQZQdj|80$(ndL9I4-4UH`gK=%om@zeZ$_8x>I$?ok52i;vZXo7a1v%Rl z7xYFOzlmbgk1A$8=xoo3i4dJ8?3$&zxp_XDrKlahU%zCPlB%%V_3TV2 zL?Ae=3h*u>dr09Va-vdT*OxH!v0bTR9y|jFWBL5C+7#uL&|38dmqOmYhP8HAjQBXEWl<| z9B;eGh#fk9^g?lHW7q$5c`5a}<-t_f_A11Sp;XU5=3m^qc6Av% zK^%7k4m9sJ$tX0gFXCX3P|id%xWQ(03#%pfJP`8ivi1K=#D9mNgX9_G&Vx-VG=TMkJ zBs@6~SXbF>SKb zKmg0SO4tIY#BbU2F4dQdDSD>u?%*T74kw(xwc5MnIUfYXHdv+a3&$v!ZiVonmpQwY zwXt(E&)vkklpasUfeHy2RJ3UqIAvBm5wn{F8#O2+FldK$5HOnd2~8TqAz4MGpj+5_ zD@cjVtIdQ)l5`~~3y90Pp#-jw&Lw)|k(|yuQFg)yotWV$3r_FQcR*ry>bBA>3mg{c zOuA_kSi%1S)!?Sw=9Rv# zo{2G=g7Tye)8vOiG40>A6r;{1*iTbfx3F2FZC#-3vLj-eP6}0FtypXIWH7R+1IXiM@mwk;s(Q*TKWP}i2 zy6Lg9Hl17NfmTtRx#4;upqRKp$ZD-ysO;z*Z375tE*X{M2|WyL5^q=~+}Xagg=(EK zas)oeE0S9|oCqVbp=l zf;u{;T)|-Fhw}&xQYVxcUO8hf>9hfXk;xS9P}D(V^`Pt+7qE`$DX7s8%K&ORtiXD} zs8nBUqqZBWki@|pDL4Le)wow6EJ(xtql?ISKkrtpOLf~Qa8ZBfL#*L!$t0cz%1_!< z&j~F!CU$4SjU1s)4Im5($6kt&T^rT#0T#}TC~_KbI%=%KWjF;7AG9nkTed~Hzd)nx zl_f0)CMZvL!wbIa7&jwt;IGVL-Vx4m8cZZNh#PnkpIk|}i;gs{w#08aD*I@g=^Blp@9%F4SR#hbL!y3 z`nBc-|3l*yX*BA`F*N*$)Rz-;G|U(Jl3_-M;{zvaWH8FX)D>|G^B)asC1C0cjtQKj z^|1MVT(B#{%I_#k090bWqiMf$!YNvMGnb_gb%T?|1CcpVpHNv*2ZnZiJiv|41nwkk zOF#kpwZGhZ0>Cu*mI-HY_JM;oPVZ;Nc18eD#vO2+!Zbp)@~YKvi|Q3&pEN;0txig=Y0Q><7@=tQ*&lH6jH+~%h$E{rNV z`_Y2Hxe~^q`k2EsdU#2{UhQ_SSLG>C1LCzlk|gZSMrPZUlaGJ2kMc&V~F zckvU6;K4llC8Im}Pj1m3`Ez`VhYjW+l%tO-x>=Jh35{20Gx zCQf(}STP?c(>a;}LHNH9i7px&Zmtw{D%gYVoe+LE$$%n(#8$&uO_^)(QCfJ`rnKYd46;?&0digPo&yb=G>E^C6lBSvNf-W^2 zAv&UhUE_C>QJ!w+;E&a#U}{-KKmmNmn3!hi)?YJsPx-iWqL0MkN!<4MiC~iOcodr( zCUy88lZQ!ES|^+n4bLjR?7|GN-!}ambF)8cAnN(6NUkI%tj&aB4CMJ z6N&hFE3dNzSY(1%=h-%K6_%K=mKJmxMQoFe3i)UhnvU3S%hdcf{9x#gdrj9>R`;6b z@|{DeGnE=E{%29cmVPYGxRF);uLxYd5~hOl1&N)kh5+{)0PzjO{Udrl?#M5Svvy`4 znPaYj%dxwZ)vH;&CIiOEl3in{vDdI&_zjs^yR>GT+|SmH3C)={YoM-$!FV47Uo<|4 zV%Z&|@@>_QU-8vMrW$RnY}8RTXgKUTbnwWnI=~XAD~Q~zx~FWY9p=2IU{k!OD}oH( zN%jJ|rUl*7V8U<%y%4DQB)Jzm4vnGz=tUR8^F0Z4-nKpN7rGb#Uw+dD zINzGi3FheB4Z%Dc2s+-_uHOke4rq2G>$kJ8?!2xJ)&s!C%6rsCkH00iqRi)pP2=25>5bvcOIq4n} zB6KO>^-XG$aoT9RCNuVj$Jwt3!|gBGIib7q)J?cAOC7uNy~nLsB-V z%!Vt$@l~X71Sf6T4FWjeRZzor6-sdSJ}m_+`abI&7P2nK^U#}MTGtwi;rG%$HO5Wl z=b3vTQXk~+&~?STow2_v27CbfeXm8bwGbwU#gU<>6ZvTJU9v0mUKD1q_2c1om-zwzjyfjz}-CXPRbsvE&FzuVLZnf_p zB5d*Qr~T!DrDs*_A+vYf&w;bOv!x5wHIZgh`)S_>iN>d~mW^Sz6!j-v>UKv*?O8w=Yvt?HQ)cP<*X)QM_5lRhQ>A)k=5q4!&7ZcU^ipf^4!W(;mKpyn-qeU{%!D*>E< zz#`ruA2fX$06eWyq~2jLmT4-4(ihvr&YBkqBeQab2*Zg%lxAaV)99kA4n@t46^?s@ zjK@T2cNC5FUOdDcFlVB;dr?0q`%!vJu;b2#=*>qzSRp-bzPw&Az>Bn_H;WIUmGmXj z*WlFshRv@^T9}luAvMNwEp_Y~306Jj7RCA~+wGzJ-f59dv#C71{>;7chFY+h^sgvF z@E*|`%R(97;LEpOjANt+!a`RX0`J4+Kb5qi9!~FtbZ#RJu||rf(OR#`k~%b%d`9Z$0ybTh@GBFiJUBCHcx|v zsuhnEsk(oW&l0ZWYo9(D8ht+ktqGVj%z@E^OkyRKsO-U zSxa%f^L~0ZGP{n7wK8)(QBF7JiOz5K3x*#b7l^)G_s#nDEM2JmsdUK-XvVn%#uA6K zDA-qWYj|$us?@_GYUn*$f_{QHO!-kV>mTp=)VU)?V|5zxLqR{LK5$pliMQH1InH!P|C5yC8!j{JZQN|Z*x0;Hjb*c#j2(uD6C#D$W}h@ z*G0d%xHks%)Vx6!fv*F}x#K2-feRhqT8787v%j-gN~Rrik3I8ClMZ4&JIHJFzV*F` zA=!eb``j{f+2sLv+jV{89jxf^vD{2 z*-f1&oo_%lE5HHH66ae!eXtu*R3f71V41v|0jCtvY-T;)WY&dQgfJ>lPe41r zzPR#ySWd04oPh#Q_4e~zBz^8Hv2EwB)|=PG#$zt$#q>v}2rO4J=v}SWqtEa+8!K%1 zlq4dRGj5xFD5)E;pMKJ!hm51(8A_Bw>a>00&zrKH%11Cz9$ zMZIUK1+Pn?SLFR?OsX9&n8NfFI_66zU1=R3pRVg?=m;kI@SdkRY*y%K)e(RHE>8aO zlqRD>Q?zqhS8#BClHf3IenF2%UyDjmw5WIJBX)0D0s!MK>RCo<)WY!iTXUMg=iqTQFPs3^s>+hQ>D`-?XC zkN%?Mmlr;ZJf?oiu&y>^8EB>WdGe`TIlT?Tz|p2ZOWzS6yG+rx)Es4VcLdep>=TBc znMV?1H!1e1?1!$H4!d?umXm{PW7?6L=VZln{H4f3^Jj&Lv~V4VvE1FguLvDu!HL#i zk~#bhF+VK%3QK=j@O6B?bzmzT(Jm0(Y_uXY7ZJ7Rn;p-OD-1Q%&-5Ub?UY}fgQqk=4lV&JO zfm>EyCF2nI`5Vvnjx$`Zurwv2-110Uv@Wqy^V4;~KIxKyRTaSqZofWujwgq^+%xG+ zhR4=q$VUr#giK;|OsMiiTJI@A3nY`p0HX8Vulx$4#lAUiZ^_Lv`rH)T9b0|L5HNU8 zKQ~@Hp}_l=<}x=;`|ssqgMlHF^PNw+7~)3x%AK7V`7D|FLfQni1rk*Cap3fb79aZ*); zsR3A_$UD$>D>itagB8;v%j7XsKnr9V{6rg3VE^ybdiw~^h2rw!niF%J zu~9v-y%#HNVU@qJxKBbLQmNtfz#}c z9ebxtB~vD{l)#X&$)y76FhT^?l$_?^qtuGtq|eXl=(_bg$WI*_q4m2RcV~-x91O+p z(=Jyg%8cq%q-!4RHZ!&Lg^H@v-U*jVn^e_VlDxFy#wSLF5xJ~=Mw{7tw=#kxVMx-M zf$CVBXlawbenR!NB7bNj^zY8|BzPlb9z|_^6pKc9| zGL<_^Pw2*Mg2iNwiAXBb$?<@mZIfc%I?k2X~Thf4ur*xKBm`SAbBYR56 zNKzL8;ZOcm7s5_BRJBe&z;QWESdPZ zA}(8s{^9204a+V0xyyBOfk_n<>9Fh+ft0N6Ko&~DY@YVG5tP18!((dI4g+*yOiFRB zWK#e&nMtKsJV~ery%;wNcFK<~`!uQZo56;|<9aC{tKqP1S&5O(OKTk$MqM8}Okr!v zZKD^LU@L9#q0$sOGi}nE&WZS`NL)_{{~-56W}iY#VJ(_kU!{W+U6}4|diWrB5*{a> zKbPW32Pe~@pfK5q;=%X|#&w@~^5DEJ()n`J1YPsnq~di**W`#wU%C0d&`d?5^r5-9 z1BFPhtg6(-sgr~!@1)X$1ydysQ%%E47XsDf(vwkM)}<)Y~7X~ z+>6t7HjN?;sV3!)imr%@EEO?QX>@)v>H7hV)33PQ1nW~{Dqg&NspTa-_g;u=Q0BSr za)l0qCGY(AP@n|8A_wv;h%Q$XJwsA0phZWgw8RED9{q@SrB7^ps%0$5NFKSDnk;aZ zyq!LB8FPeQGda~L$uX%j#iNbN*+c%alsNg&+<;g& z=f?&Y)0fv)J>=ahI=?@9--0N%DCz-RY1;H&L0>VA%9yTw#XD0GFO9iMXE>wkkKrub z{m!p-K`~#Ce%`u;sySW7Qp-g!EAhLU)TU_G##QYmA+)Ae|6v3l{#)vmpLHx;5y>Cx zKDZ*D7@E^gii|P$xs@?e>ZLv-Kk=ipcsbWk)YF_N**UMA^={hxP6w;%+VHnW&|U($ ztCK0%OAj}hOPj1d>MwYDxw4$=BV?F%hiX&Eyy94(DD1%1uVkMqT2-#qHEFz<(t~f2 zoEx)y*T68grQRHgVrRPGE|ah-Ke@Eqp*O%)cdOXiPORIwO~$6?NFwn2O31w$HpX&) zHdNv(>2Kzgzr~-@hXj zO}g#P0rwtEFa_kNc#mr}s2limZOI%DuuswlmF=r;q>p;!M_>O2J71TJ|v$q4K8ZF>QPhW%3C&C zoX&uziP1iPaea&~2c`5BMCF*j%A$q2u5 zjQo({C$|VD`o5n)u_*=0GG6(PoMF{1xe&FiG2Z(x=A5OKEGIy!JO{<&#$09l;OLw& zjTiZM9^U5;X=cIHo}_X)$6PgCjp)fRnAlM9;NfGrmmcHEXKkVv8!Ri};Y-KgV?TJd zBB;wWvF4c7{u0^Gn^x;}(8JBN8O!ScSWoSaasQSx?0IK_~#1g*5iZN zZw{}s3yfd#Pgpf+8?P&l#g#8^4^g6EwEI{&0JNoH(UPTz|xwi9GV=7wDEfoeIAj1N^+F zH@48ht!PqVTs#4I7E*e5nGQJ#aqQ`IJRBb#Zu!j0z1$Y>roR}+dFcrBH z;Hoc~D)mTa@L^|DY=^1g4OLX*pheclx*0>pt#9@Lz_p~d(m{u7Je#KN^slV%s!hCl z$aEd{+_(96RS{#0RS05@F(+oRseybnS$MsWuCY>`|7SiztK(ehB1!|9j8!rWM$w~MYjM0 z#veJ}`gdnhB`$3Iz9;a=c(GNgEbyXui?z4?U_`7_jDkdLwo3Z-NVBH(fb!sEx8+E^ zMFCfCt&v#Dr4|`&><+hnQs?>;gvF8cQnSpUOO~~I`k=Dnc=2j}d2p8X6EicBpeM~g znKoNo1FX~J18oOP%F_?OF(tkVg`1K?#BnD$a@VLsYW;L5=9#)n(H^_#jxAk4zHVsw zHKc#gw2;5<3h#3J?VJtMGLzIrL(%O~yaL#HP7w8H%Y(1zA;2-_kpg#gtph)K;geM_sFZz3Q)0ju zUUzdSN!a~eeWzRb4_C8_%o9X_Xe~`i`&?AFw1Z&GLH=R*>FGy~J5qytbW2Z?t`>ec ziYRjMS`*P1TlpR5wfJ>~j0F>MJ)LxKZhV3P5L_-!{(VtH11W z7X3gVqS!P~ZKa63C$VTEn3a})u}GjQrSEgyiWGH2tN@e_B1|UuXH`WKsJVQ#OX8!2 z4DI;K#ncCk&EKlg(vw^sBGX#$s3FJ5Em}d4zn%-i6Hca!? z3leCA2Fjx(vm)0`6I*YqTKE<*lKL{#n^ON@q0t{%QZ^tK;e)++kqj}3CXWVp>>!EeY zi+qGheu^0S(}>BC!!_Z=FW+8f3$*FmG=HMmex8uavXtiYkC0v!{}8{Jg&VtZ%s4x)6XK>5Q?N=h*b1oqjDl$#^0&I^6ysL_*j1!`m2+5xO{9m2t97wEE{{dYvBgV=6Xg=4Zb2R4W^En~`x`b4Jz7^VMtmC|~N|Lbb7Dr(X1W4KG;~ z-`#leS)gd;&_#!{k~}wl5izdP%96y@mSFM%8$D= zqVp`tq-lnRyj{lPcHzd6`ip=MV_o0K&y!Yfvmw>tq91}9T-Wi>Gbw|B417nLP47~E z2v}L}2dft-CKi&MYq89Z1-*C2zvz=EO)|N?@kK+~7(wRm8^y}M8J0ww&aaRtLggzn zbX^2_Eu8z>1==oLvpBsoj(@(!FLBaxI$v9nJGr*u0+p8RMn)@y19g9d1&xCSG5DO0CDXpir5irEOY}LFM$~<;pC=rBUP! z?Nk4G`a<;!zYW}2JveegPW-zjm%wd$0}niv9BM)O;0Jkn~$Ca{3 zZ&SYOc6lHUMLI6>mYBt>MmpkPYA1OC_(tAm+FH)xmLrEUvrBz!v_!(#R!qYuI=9CR zLEVl;M}RRh=hLX3=KHhdYvLd{7-&khToJ4GqI|HT5uHG8ZA2!FmDgA4NRMR|?bDD? zWx>frL(E3H=1TdCWN3RPRGZYVkWHEY^*$FJz(d5PM|_@qSMI86=>nyf&ZmLKhOA)w zYy{&EFBzHAOV6LbeKciFD&|vM6tlBedy z?W%u%ZIiX=NbAi~WS1_)CDQucZJ1M5`g*nQs6yU)_OrwJ8FcNlf*Nma+U=Nz6gsPy zzeOLHk3KPl#6Hn9RAEV2a~$qySJUb zhqSvtBqcQsb^?Gl7jTI0QIfMerXx9FYmKr5REcfKVGbu61=;WKgohm>w!Ka~ewhKn zHm7BGK~n&Cs4r$Tv>IOyJ*f185a(HuTXkeRgd7qOe^}jd+S@#LMV4iM)I0Ia65j>f zp+r)hEkO375Fy7_(EXWCzZC-};JOgB_zSZXcFNcAchOOHobNz)ust;i-<7V1 zGGOnZHSIXVL2Ovc*@SK|HCB7J#4h(e=qh%#X29OydrpM?tcJtvWtqrPyDRQAR^L-= z7}51Lxo-$O=n^~S8+hhflwEEV=t3X`mH{n>{!o(}38KVGp_ymX>|x!Ii^BG>uAC?W z%`8>Tb*#xOtjjiHx~94d%uhbY1f{|T%!+>p%c7a=p_fA`u{UOA?eEk~D9(!afUjW7 zYrML^H?Z3^W_HN;o!3KeVA*HAzS~AgJDl;MMQ6RbAyjyR9aI@j`-bqgM)?|+qK9~M z7V{QFi;e0g-k;^9!QZnB<3Z!P!JO!XcZ7)=<*V3%Zlc^QCoP`dE{q#(@QyH8qkIKh z(oK|_&85Lh+J(uWVQ&eoHOjPDR1fjuEZ`dcgI(AIwD?;>Q4N$Do7O|TJ`144m)nI& zqpRN%8f&05Sa=Wd>MZgaKGQBt67BVtP+0@Lfo<*~(##?$@$GhDvS`d(LT3$>7K`g4 zUYI4vAh&N`Tl=x;lk_;O8me5`kMvKMt5HHP!UBf5XkshFx-x5k{NYvQe9wOCj z7$v^ijwFqSz9lr*kZ7>T9wNmo=^8%QjwFc=drPRUA>F`2dx*5NBucjyBGir~izdA# zKx;^}*o7KQb)wmc@|9i27PDWrZ$tkFg42EP>hGNwan~1x|3|`>;hq1fi9gl@XfFNF zO#E$KiQ-?^$%*=JJT(E``l|WgyLQI=ulsY%{=cB3_^<2y_oxxlYm}+35*bg-egWQw zUHSjBfCPx+SkB#mz>zl=>K`b);fgxD)Gk2-#xkXe}y+;|6U*<0myYHSCHJNwlqv8J z$txl-4b~5s7*1eAqkbt-;2yTXx(3cj%@6U_xl# zsmG-||L~K7_+K6VzXCaG|CS(RI-UOWc&M7gZ67O=`szbS+}|tH03nA({NU5$Gzh2~ TBy_SsQU-c|SHH`6>979+#f&2* diff --git a/.Rproj.user/EAEB7255/viewer-cache/6F672F8B.Rdata b/.Rproj.user/EAEB7255/viewer-cache/6F672F8B.Rdata deleted file mode 100644 index ea663f31f3896ba922392c8aaf965685620ba582..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 2739 zcmV;k3QYAMiwFP!000002F+SYb6dv|e&!;HOyp3qttj3Ek=iUNH1Mzx;35tdQlv?d z5b3gYByCG}DomuJ=p?t`m?O_QvGNP_6Yvvo^brRge9!@vN~v6~l$1yG_w}0@03sC0 zWlxpV?4Idwx@Ya_hmFdeaP-b-5Cj9k;Lt!YFc|$A(I9vu7z#!rdLp-&n+g~6r63r5 zE8HzHgN0YQuafeTP5T24bT?Y0BwN_kWQzq>WFgzB7qAK31WcZ#qv}k#ZhlFvAXcF zw(y>E)~?KY%2`j@8oc4PYC03Lvdvh^ZQfFD^Re>Dwd%s^Liy8;Fa~qw zF{mrI26dzOSvp6@dqk&D+)4ya$lYdjMH`S~u29g)pbpZO#U03v7V4 zzynCBlWG1eR7)Lqc9p#9(2JO@J2iJ?gZeAAmrz$>v$2xt| zgKzYQ6JXz%>mo2F0V)8dC~{rrXFxvy9R%Kgz+b5e{T=94;7)+P3;AWxYoN&kp}z%A z=;F>dL0ca0&7aCivF^+)XcGQ?1U?V`ZP<}ALeovyk9NNS9RYm@_#Btymhjj|EXF(n zKHAqIKPCNfp3HUh`(e%P4|?WfssH;AhyNe{m*VnVx(3R1&3?`jUj&ABc_ClvzYUuKmUU#KkLf% zoEi+e7IVCNzk1%*yX(E+9Ox>af9lDfy7j&8H5QJSo*Qq1rUbwwjZlt%LgeaC3++d| zelHrgUH!#&^eTEj@LYm@JU@=q@3UXMUoo%#x_H&{s{X$&Jk_V4ojC1%({DdL*QbZy zaS!&=YrYu2*SvJxyTI}HvBrguySM8ZUw!A&UiS4WYFDd2y?$|d-}Jj))s8;fGfq~0 z-+$m}9DsS&djaQr$Gwa5k@u{gL#Mji+hNxz=n>}|?dp&>j?jD7L*6?Mb@q+9Y=oY# z3&s7R_gN8i;gQhAeZj9oKLL7zc)+;=%J}0Q;FcOfL)4d0e;qUfdlt~XJSOz^9ibKS z{}5WeBJ>mJt$~Kd#k+z2Ccv95p?GhZS;`Y`yL=NkkTZUvUJ3I2fzTxSS#7%gGHzUg z{v_}(Lp}q07NtGsRpYcXHIZ}Oek{Cs1ALh{z-9b*9=r@wtj{=+_WvGsGOpsidXW@( zjGq>PGllwIZy9o~ckZv1nrlZ0 zKQ0)dMflBk(rw5&Pq*{HN4o{sQ%HEYpjp_HM89*u%hg=JE5MnkyFBN;3VAt+ejf>4 zPP({eUnuuC_r)djvkbc`sGoy;9sCM#DlPac4-vBldu}~I|G=3MyL8{o0B;R;6`_ZH z7r!e&G2f;PyO$C|OY{?Tn*Omp?Bo1x!Y%_o4V)SDGYxyEfO8|^@nA}e=D$u@38{v*U_H)YZ>jUu$SwR`*dX=_MkoId5QRF&;7%56Yt2tyKi1s zdEIgEFTMQK`JsNxFU5|ZyY&06dxau-ftE0u9|N!FmY*+%vc4A@9?yIL&tJw57wSS8 zHxRep-8jW#JWV?pKaPQC{P!Lx-^aMm^xe!nH~Q23fS)(uyNLPcAKiBPzK1>Pf5XG! zyUNe=w|cZ|23^aM@1x%DS4Zx@+dAHdJ=&RbHOEfPOMPTqebNS~pAYpY^MSsd9ric6 z%RAb6c?*?uKA*Vt9q(zzt<3A5u7L*~)~2#=o_g&*44ifvPchHO{43vgT({KY`;YH{ ztP#rf_RMYH@qNJm&NBes`>vyTExtSXZepI2`Ap>h%oXGKp?TUw&9P7S`$g~}{0LcJ zhyNbWec6N@`7+HHgEB8+Cctz2iO0Mh{lI%h-;LwImZIAdn{(iGB@)_9A@m^~Q{X`tl?4Z9;%`}-(fr#IsV*d%oA{b z^8L(yQlOX*KhMc|)&0i%hVNv)4<|&?$~Vfs!TrGE?_V8f<^#Adc~0{@%Aua?liw4s zq2F5#p(Xft#_gB)o$}l_dfx#L>%1e6cNMtjyn5a@9QRDq!DrF$R$L$Tps&Jt?G+zz zeQA68<>h_*Ej(A$KYowoy5aer_3T0Wj(k0Fd^>s1H#|A-ZSp*?7TS= zS6l$)e2tr+Tk+RT{4N0Hd!z31yw5eh2G#Y#`C^`s=K=E~DYZxT4dPe5zb1$WIoDYM zl>3n9c>+B1dHg**!SlT3zG7U!@66NS>3@iRm~X~~qVvW)KJgj1Fh0R|Q8NWQus$`;^xtpZ zKGQgoaWwsT;mVsHyQ6HK>0m@`8wLm^M$yaC*~{j@Dm%*%m*mWuc?Rs zy#1%U4+HrL^-2CPvAT1Aj}40V?(cp9W}x&nf3#Qr=I-|1*Sp&fAF^S2_uGfmI(Bn+ z`!9EQ$gTciZ}09dxuT<1weXKs?W&=T`(OT1f3^6{?ze0?`==s+l}-i?r;S?`yZVjllh4*006Rxqm2Ln diff --git a/.Rproj.user/EAEB7255/viewer-cache/71129F7A.Rdata b/.Rproj.user/EAEB7255/viewer-cache/71129F7A.Rdata deleted file mode 100644 index 196938b28b1f029de4c8af0131da8ca1f1590080..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 13424 zcmYj%1zc1?*SC}s0tzD14bmbY5(^T7u)r!HU4qh~q%5&0NJuQwAq@i3-7L~bEWLDh zEzJVU?zi|n@B4mx=l8#7&dixRbLZR>^IMiM;#>cIxA#)-)N%E?BMKWD8lJs6Yo{`Q z(aIWluT9|CX`ux#9R1$*J&8I{m#jAQ%+S=}_LMzR?O76+^%Kc}UOM$ba~Dl+>lo2Q z^C!K_o(ns#-8HM{o2I6c#`EFlse8rPJ*l_uTB#*1=L3xkmj)?3vO6S}>hFvV659@8 z#u4Se#GtOe4iLW<$reYfmE~-qjdw|@7`KnOi603XxMX%4%Z{RLm!riH9S8?Pn9;{e zW_S=HH2;zr5!MBz*AAn=oF0^Zfe4~`mgI=AwkT*j1RrC0p!Wyz2*Yu}@(p_zO}i*Z zhLuFY+aW}l!UMBFEEPIoX@LU5g_d4iAjLjIN&JD)VFVAH{UID^@5Kc&tR~9y4~zlh zd%)t4Wkm-sEVg%XCZY_>)hj`^$CzCes2 zMDe1Y`A|47BJV<|(5Z{aTd@0>$dBa6CBfNNY1A!<9x7&u18ovsAWIA(#%Q4=QC_Iv zHo3c)r>Hyaa)cNQ6mU^E5Jv3x5cA^z`qj)I@*K@!-jyF^lKNiMs*{m#{k2H&cS*he zdJCs<&wvF&2xS_0JYlzk;F47bGQ*I2a;)EAzM+TU~!S7$A~<^Y#eX} zLnP5dOGf+Mf8>}kBnO~C+NuzbIfHljBPp6mp&&fgIe7pO!=LRPH`Uw=UhGko$-VX;)z^Uk;&B zDSE!#dmlt$^!#LJsI;A#!uz?yN?B^V2gQt}!+KdjyDY`k4JV@gHU-1;-L3CS}l@tZTa?;ME^JBTzpO-FE|Ufs6iVxP#X;h51n$ zSE<2K$_*rQbsM-Oan%~Q`~U_9(U}xtkD6(#U34aZ zJ@jKj?=2$Q7nuDByve;DN9o~vaYaG#FCPB~Ao!BJQ8D=S+)?)b%k#vS{BIXa{Ik20 z&&^l-g$W%P590it3DN9}w0LGDD7#iq0>66)EB@HqXsJa69)tn~ZbcB(^F}4$OY%om z-as%u?s$j6&dh z-9QWdjV9lAF>HkpV3-fi{b6@}r0(6pgOH$rt(5o}s)GdFe0)wBO}&eBD7r8G5!UA)B*txVEB@PQ5&FY4OYY*7hl$M zY0N_E5ktE4<@3wutJ15|mr|?JU2Z4tC+@o}kuCdU36DHFsyRxSKJA6rtH?+%Pu+({ zqC7gPI9Q$^efclcK}fLtD6@7fBZl?>_6^H~MlNA*VHsSI*e_UNGqN&edzs+w^b^{gc%KXdq?56w{)$F?b z7EM{Q1^FPpde5EVe`@>*V#F9iGb=bI=| zQWr&er^h|CL>F1C!4FpBzBXw^VM&ineM2Cm^q{u@#c z<@eH$xJWt!>Mz@7oBmP`4?yTfJ*4qM;!7gsCTm83KLvplF^)*_Z@~wXZ1Vp+`L^&J z-L(XyVDUgjx5F9z)(-@O7bJZKmS!jxJWw_53rrZ~fk-e^(x-nZh5~k6G$Tq0XOuZU z>hH_ufSSsH4>x<#kMNF9`sXSi!VP71j{2u6x#2$nu4nyIqGr%$nVRFtK}&l$8eo6e zzfeg5mjaxfP7YhDKpg=!C#dx94H=I!+--tc8oaxCXaZ#d)SRM9yVC)fy+cPR$a{DH zkOagN^#$Rr!8Xni7uR4nZ zufNwF@p5bK7Jcc=qaY%Nou@@pWyGw?=fb%Umu%<8F<}WXBDM zbmEhg^T+;ba{$o}uRiDxnAGh}Mi{=y^NCf>4T{ata!nPUVADBXy$t(c4AZ4>NCdta z4!%x44oUd>`34^GhWxmJu;tkE;Scgf4?5JoIFX&0WbELZ&~7e_z}fpo5I0war;)`V zJE8)ve@54*AOA_PLcr2+{oN1SAI?9l>ELNy?PjDt8LfA2!1McP(_zZj>IX%+=7K~m zZ!$*lQy-!aSLkYLOY*y#UTx7Z3=ZX6ABNkLAQ0 zj%kG%ZtDQAZ42ZCs|#~Is>goC(+_HeO^=F_iT}(EsvIkfZy3``FtmFM+_NjV5D-tw z<*pp_iBE=Wr^@B7~e3URZDlt@SgsX;pXZR?RnB8-v8&xodCuF#`ejea&k+Ct|#H| zqO7B=AGMe1wi}Y~h!(-iWCJws+CM8A&7clQ!>LozFpki?3w~NOT&9duo`xqlEpoom zkSCL^<^%y4@@FEG1LhI|b9bMKPWGEq1_17Qh)#B!lLZLgJrkMSt?=(~7KW36tV8nH z7u`HQdxhAPP!01^F0I^VkwC%zY>Qz*!@guUz|rpPYM%&K?AJ zm~>SZ{Kl}H5sLFEzje=QHwZZQuZP0Cel;Yed#kz8MTv>-CS z#W*U$q9Pz^(Rbe{GSRgonZt>(d^LnirKw)KgkysIlXK6VARqG{g4--lRtXh_p75}= z3g5kGjkYjGAHSp+@Dzi{8 zjO(Hn?UKl7d^BrxBw&my(WSs6cU2*w-cBybMozhe)s5(%#(qRTQlJh^<{2-Cjq=KF z59XQ6(R!Ym^T|0&PpBZy>P{jofjFY!V6!co1sVakJlvefHiEVQF3%=AEjgeOGS3bt zdvL@*POBvW)I{d;V6#1&5~?91b+q{>n*q8n({Q-il`RL=1W283BC@q1zsZK$T{m&e`A!3$@)i@W!k8@(O&%j>&;{j>Mw+1(|~SKyPK;Zl_i zX57ZS|KU8G^iuDkiNVSH;cqYH9$xFaSq>MzL_9PxInYIp!7LFr>9%U?&IkwJt#37%)s_UNUsL^L67RmlC!O`fXZ8 z6U+QhcdH{V3=@;PqY}t3rlU&9>!+g%$t7oTRj;Y2_5t2fOX)B{!J4YcaSKq`o}i!k zAwd|WKDx~U5+1$3SZv{)Yk!jJ|&a4nc2 z?$ZY8y99En==)48S3XRyMiq5J1u?dVpfHFbdNeJK#~?;}JgtABoV#0!$=-#fWqO*? z-X-snhDp+Gb?ArXH7++hSs8*VT2tUS>yzzF-qn^^kKKjH>zVRe=`)A!`TfZmrmJR4 zq{r??N^sE=q8zF(M~uJUDI(6^eOM41^Tpf$N|xn9l}6#Z3hI`Rpvs-zF6PB zlb&zFupINfTDPd$;+h7>f^l8PF3JDGZ?{M)S8}lOU8+7yvm`&2-)`-@VLj)%n%zqDbX|_FP(fT@X<+C;^rS%O zcyyv*C_Ea&bq%~s=x_+#rIK7zrC5mzPiS&3l|ATBkUjnq)179Lreu~`>a&x&k3PFN z^Krczytug4!j3ON=aBN}jBYoh{LGkgHqDx_M&tI(hqCOh2C0A#mmW!~p17g{*uuz& z{*lctmK9Bs6@4XqXUajOm-~*Bt9cB;S{BH>*x3PIX>RpXSMZ8(y{vhEc5QuBH8u4~ zK_xY}yGL8j;UDnUyM)O-#>aE}gjQDBMQ@R>i|>67{UBc-PyJX$^4$o=e3~#JL+q66 z@mp_vQN`M%cT%~b)QL%!JmkJ@PYDYB@kXE35sLEdxZ1yY=hmj&E+b-INo4gtJE~Zr z>yVk{M|NHA+pk7kRyBQ(f4yxrJ=uz#bvjC*`!TxnfOT!~Z`%DS+mTH|2d*cB*j`{p z{VXSys92Kk3h9hhS$JJQLos0CeVL)VqXhlm*=p^!hJK$7;>1P|I-9)AfUjUd7(9H+ z`r$ZI+)X{RuPKeRG0;Un=8uQrto$5z?JBqGwJYKo0h3rx!qC>1M-04cQrELsJcoAL zI_H#~*6baaq?x&jw(xtczn;<%cYvelq-L0O{!A=Q^sby|T;|8GC%5)YNwoQ39VZP9 z{kWo(!z2__zt876&#xY~V^5wd`8(;_51*bS{P$;vTlB-SIZTGUE`zVAS(P+HtsTN7 z-LzJB5!9?!;*Ky&Be%`m9@Fo;YXaVE6;P(-&ocSOvKH>Q!-~bt={EDhzhnUx4fc)W zL#B#ge<6;d8Jowh2u(#pzwIH8U)D1_BHn-(T1NOLzcy#+)L%)zyLk!CR1<0(JfK@5 zHG0d@f*$@S#3oiGCRTx(+k$?~AsN}*Q`Qq10 zZaQtTbVB7)0pe=Lg?BWV+e%n-UEc0M6VuAX+DS%6F8gP5R{E4=Ul@^h8c^HRv=VlB zoe?@H8Tqwn% z(4hY9Y5UC#HbGb%*(+OIuJR=Z!$hC7NTn%d;iPVd}b&XKWXn0re( zgd9oBN=(D8h9u%=nX)1{P-4KR~D&v&{uk2$En9G$z?N2iti@_elUTxuf zItb2S$|&4=ftxWO=|li8N@+%RM6v^7fR6#slQJ1~cS?-N_jEuX0&`~58fy#ACJsf%MBK?R}5Jr16P9cKRBKxO_2ZhwX z8f!)X(UwW|_Jz5sJDrVP0!4lOwK4Db?M_HWIowo;PQgUY{dg{Nk5~ckS$N!{>Xcdh zBM6sIyz%XZokl3Om_Lz>QQ2tS@BQ`3F3i9~>phRPWTDT!;k}nvi8bDAl3V5d zrupxVHhAXG;;#>7=GoJJ{wNOe_-&RQ6`*9u<*oVle$|_6F_+jmDZzqKYUD|WwD{r0 z%dQZ0aN2$GT;9C?koXu)>E0ud`j9ePgaQSrq?(e=71flDP2Qy=O+^e&&UTRPeh&A% z?R(+I0aHf#h@i24@7#LXaVH;h%xbv9m_~$x2Tn|WBq=64mU!Ckl`1VC2zW-Pb-WwP zxip~qR*tkrf3{p#KN>6EL2;Y-e2$tO16K_h;jE&v?T-*$5|bo=6; zy)yOC%$jaih^$D_aXunSC@`yi^C~+k^#SM6$L!;OrNW6iy~x-dSm8t{POtW@`}8n; zmn+)IS3^qyF5yU%MZ}cLT5!NA3c3z#TXEf?dy{=?H$ANPnEMs^guT4#dbp`d0pmW=|CKg#&YKJ^hZK zi{<4EwG_@fjaWv}*@=nOZxW7^O8#{!e#rdc8=Y3$hQ()vGpeM~gYfsPTm{v&#D8%$U>;F8aFovS8Sdt5N%_6ac9SZ`96q zSL4-M*~;v?%e&O9e5P8vN^VJ*YX3NOgJhcTJK_OHCUUWI|{lwYie8^esQpvRYv<#KTz_42%9|ZEvRfYa#%-+j`Z=hT|>I`J*&X*ovU%z7IG$ zR+J^e^^)*(*yAu}O}0Dti&e9=tYNGK;KwE?{)#dFcJkhj3!6{X+6}|$0_Ri0b8LQ9O%5J-L2+8Dn*k-PE>Xq6mrh41V9&<5TrqD+QtGLtH91B}gvT z7_coio^^?PMA+#5Lz*$+7h7&f8LaF$Ute-|T zO^l}=g%xKb;X9y*<3oa+z3)}}ePU}bx3ZfmCx&YU$9c#wQ8MG3nqh@|33ur8eB*td zCWufi2raGm4_N+MoSnKj7C*(K=d!&t2%Z9_LY z&o5pMP`*d{9a~SFig-bo8zho#ouChOxOQoB(wJ8lO*y4sVicCEIw1;y!IL}MM zF3WJZcR@TFwn^`9lunlg57~iNCxZcBPjaL#LbU@!OFose$R{Is`0clgy%P|gEMH|iR;Q$jLY>rVG+7#KoVhzpJAC69?ulj?EhWeSGSw)#}T(Y8QZ zu@)B^dCuA7>jL7sUY<%@*0&gmD;e?U%OPH`3pIZYmt9B7n#!}oH1)GH`%P}t1g$Hj z?!!zaZ|GOJRtv^_@<=U<2s()xQ5g-CR%ovJ$OJL++voEY6IAE185B!+eKLT$|JqZG zDlul1h80|;WySB^FDJ@0?Trhn@Rt?bZauSwYSwfT&xz0s^+}$&%r*aX6P{63D;iyp zemS&v7w18x$(eNEb&)B!7{F0fKRd|g^qz@T+g!b={>d+gt{VF3!Zcqi_U4IKrQc4I zA{G3!B)b!%9_Eb_Pusqt9J0FoI(}HSHlF4zaEq-WyiTYxNE5hoLf?Q3UVxPMH^``e zb;s(yvflze_99@kY_neWY`tGKI)u~QX`1Sjz%7v(L&XTHU+ioJr5h!w@!SM#e)2M8 z+F$PRY!Z)bzp9Or)eaACA3NE-**=}E?(ZRIooae76vD^p9G;GakJC>Vq`grHEi2xhw#sM@ zq9EO_LiaRs6b+l4l1lmNmEPGD<=e)U)2#IzKO!y?nXcr!+{&-0uJ78~7K^!pZ5ZE0 zP$6)lUvp?iEMtgAsY4^htsSy6>UGm`duT+yMf8dzM-tFhL#O^IbDo!j)64IxA>hSH z9EuJXkMt!hxg^2jd~)|!A4qmRU5+G;{_(ndApk1U9Oze?SwPkDH4E%ZNKc|J>2|9o zOHfH!g_DDovmd5LKOJGiqK!8UjaGhfl6ZVM^w9Muq!&ECzgFSRTTbh`+eyF91K0L$ z1OktVXWo}d1#q=AYJjx3AG>cjf|aS}aG#9wq&&&aQ{d)P;Jr}aMr{K$=`?>nf`3!= za&vUCuFZ~|q?k*E^Zrd(hSP-3y)j2eWn+Fs2K5z94dS2a8IdaZkt3F#84z@G%eP^a zJTZR4Su977)spRE1Q?!b{X|4T>kmANIWx}5pj*x`xv{1i*Ryzka%;*XY0AT}B|H%I zVNsw6p0D^#0j$9M4%}jEx3IsTV{lA3M)hiB)x%Sz=G?Xs03r&}f#A~*E7o*!X0rgu zTa~NqhaYP12DawEV7bLsMr)r8NqAC~CpSFRyfe2kAbVXHLGrwN=&sXK{nS4chUO>T zR+djh-A)oTEkEXU+ln41FbJjdRq)5Iw)k8kyGbgiu4 zA=V^XkR4BS`;A8^=wsTWvbq|UC`0`1$Yw$c1-p~uP!dVKkk}bMbDm2#HK!Af0g@>a zkzv0lx3tKbljn9ZqU?DHXU-`7ceV9Q=?K`W!6|iF@0StcUi%T^m@rieAF8s! zFIv`zg(Hvpij<9%k<=WCbiZOWfA~mRb%D3~wj`|BpK!c3PI*&K0(s&ghbkh^o3b+oPMyn>iH=DRDGyOdxF{&u7jTkK6W-jTa zt0ck{Piq^kS-bO01N`cNe07jjOn8(sMTOCcryX~`ZV1%_$7YT!B~P$&Dt*!D`7TYC z(zzkmAu~WBLSd{b`};;@YKXc1IXk^b=l)oQIAyQ|r^ zADFzon$SR<6BHJ?b~^{rmfJQeBg5|fEu5M%p(phMwffs2%p+#LMKvXOb$_#T%D8&8 zaYknXJvvutB~>nzI{8yJ2&!$6y6K~y?8|3ANZa1MrL+#q{5bxT+FQ?gnf*GHqz)H9 z@8=Qd|*IoLaYO-E4gKF-k_-P49nJFG0f zyS4hkrD&nulJ03G<~X@L!ET;29!`QkZEbTs3Yyj!>}s)>H59lA%-GOL7tJ zKr=!t(ri4OGqX)N8+tTfz?H1w;+$F)`KeGtYEV;Jtk%{w!ELUCWpJ7yd8R6r+j?TUwl4-lgG&DSObW^HI&z+lNrXv;<2764| z?nq{8f*PsSe#GtE8Yg{oPW+80nEZZ@)zHq;<>SyV9l1Lnw0&lC27GZbbZR!F)WRmO zd1V)DH(~3V?zSITCM5J*cxFqz(PUbN+w&Zk9f8lcj4yTcPimTH<}|V5BgE4-kF~J3 z93Qwu%^3>H^tKb^a8_S3b2W}u?pEzSC%GG9sG9elM}?RpCq6o79Z!ooq(#d`;e8}i zrkmDbUkBar`R+|(vue+w4bxTqe%$8In46&qs+f7KME;Ox4o^}oN3U|fIy$SA10I#E zm0prFuc|_G;r_ydbl62pLY2aoBR~GyP~5Mu%Na_w6}zeV{6jMkG<^HjK%;iWN?tYI z8`s@&DX{ni8ZKhY?zueXHZ>pO5gV?#r!hUtg-aX^wJ>SZGgbAVl;tv;4<<{vz_&3RW5e8F_X)PlD*azBSHLMLc}e3=R1c z-f{8PEO77XZ#{Qug$*e(N%@4j#BEA%T;WBxVcwrdM#XxoFSB{Dw zIAfvZpu-OeiG3<33T@TJS7GA>E2Z6&OwiPX_`v|U)~Y^@kl2yFsWX?Fwk_yZf)2+M zaJzWGwXXT$aX-JMLkvNRI#T0y%&4kaTbH@AMaqxK3A&ozW}Y zPgB~%E;sg!^-K1xOIJ2=u!$5q1Iep`V-Cp|92l>B;_1y9dh$K7D!sNWVONz&?trcP z>()Q%q<*IjSE9nVX!_+2Q!<-_s)E49nHZViaXNM3-?a9i!BmT)UUP-DPxFzuL#~3N zsP{*YX81liW@iR$PpRgGrU$X-Ped_m8M0}Pmxi!5Kh8ZwX}lnG98GgSO4!6jIhn;l zXY^8h7ix3A#~4KbU&Z8&Z3Y3-1<;(VpSbhIe?f8%d32U&gND6EGOHgLj3)i=cSrmd z!*Iz5viC6(H44(>pd9L;Tq`lz&y}q9? zGr1}rmCXfAq*Dy0olQj7x~!Ml>ShjK*B4Y@4m}GHZ?G@UY~G&w5P$D&+x=fWh^@B+ zNq)Ek&La3-`fJ`!;!%zhh34L{uaBrrVjjpURtI^g>GN;IH}yt{0BmM(F+G@1l(Uq@ zLcKH-cgzD0l;zOal98NB?mPt((vhEPswg&(4o5lN64k{Whk^N|b8LOOs;Zv3>SYJ= zismHwc0HpX3ETEiOFTm7%%?S;(Y>O4f{i~WO~$${PwKWR<44>Z&XG{UiY*X_Fc&+p z+$13(6<5SRff<@F`(bhP(~VV%!U^Mj1}am&w>pZhI(ix%waQg+Yx~eJL2vh9Y#VR7 z{}y{a?$EVgtR7io+bL^lgv+l|cf%nfn3N)K?=PX)Fes-uFk0$P0% zKN8KUx=uOqyPP@srHa(7ZCvTRNa3EPF4OR?Qn28cbJoH$N%r>~wvQya$KH@?6ZYYJ z>sfi&ysx_dz2PvnSC4-Q*v#OaBd=RW;c{^7&zI(>EqM!9f2`A2uq}9)=ay}HW=#{u zBW}&&#w?8uet!`ZdkAs_f)XKd7Xe}{DSe1~7AMgwvWzLm+IKuxgf-@>?mtErxEXWE zl?Lxjee_lL5n9h&?SnhxM1*Fs^oJL9ev%lQU=2)*Et3K)#v~B1cF7|x!@VjPF6t{= zVksYaL_Gz0CnG7R8Z)c6Fy}jZ4f0*}Taikb_*5#kWm~nuc5OU(T(V|biMe{oNAce8 z(KYIn>^waeaV0Cq=1Fh13Jrewx0FzJ+cswh{bG%zzyLrA)4s^`Y?e)WDyy>N% z*45v-{crBglb_zsGaY}MMZ~X5&!4NdpFTG>VO0rv=aPJ}1FC9%aU|+=2b`&zVhf0kk>sXe;>!1x;#4L4aiZe{4)ux9b{J6DS_fd|ft`XaA6 zt4kxV>LDiwvb>PKC!v-vYp}<#d z9V#)aKF_H#5zOtl;H-7b{4q|&iCoW1ll@Wy0a9OU8atg6V|i2C)8vUb8XUoR&N)}5 z_rypr=}icR9kQc$73LxQj?kQ=$diD|2e5KxrRFmWRe*IQBGLVn&wPER<3=8km3%hzhZ!$7kXBK|6it&KLY54)kVgTAcnG-5Gh;h^2 zx56Ex;4^)Rh>geAp1jt(60@btTN59fm+I#`KgVs1N)(ZCdmTwyJ0OF07?2wKYLr1j zt8Xt;KRb(DEPO8EIT!Xa5Q>J#E(~dTDeP)3-cb)63w47cNNlNsqY+v9; zjPugmt)-Tow*Psa5@gT+@nU|L_wYiH&9lRdXJ3w?#09hBTS}7-MO31j66S$(RTNEU z*KJb+tGK_yCBU(W0ne@DU|-qCTNZUKv+Lp`ogYmq0>CZz;I_*_uOrU|Q&~dKOrZR5!H4q+3)M~Ec1C1M+mZ466D$dr5pF*k zw>XA$BqH45`p5_*tozcTC}8zm>HQp3NWT#v%RU?0V0Qkh4j{C9hq}nh0bgao%RKeBHp@?C#Zq%dF z71wMO^R!#s)u9GlVzos$-KeWj#=1$|c+I=OzD0!-E{LQRoWkZt&ZwGIM0ypXd^#3l z(-EDGuABP){vdg*b&LXdb+tCukC=WutTX5?KJH^(1ge$KlHHqvyCg%V?Hxsm}CnjT6unKv0bx#7Yk-j>+hWS*xz+&hV`2cPJ zysTevn{&O0*jf0*)LnHwti0_t7gAU?({?_@a#p{ip^9m7X=6E2V!kIRD;#mUww{a; zKJ%W;^4&Wxq}_)(F>lwa$)p#6y_Wz;PLM3i-{ZFzn64ZY=Y|lh)<@g0$h#XA3*Tag zm^~VPcpRPHca?)xN6c(}-oElU07(=BQgH*r@POPVnZb?ZjhvljM_Xnql*whABY$z#h|2xBz2mO-tgE*PrBx$p zl#vrCW82&~UBmxEunGb*xGAr0f#Y4~>khI)0{AdW&Sw^lW@d07|UfohN*UE za~etc_e>n3vUVGZ9q|f*BV1ws#<>EHo~v~=$@wj;GDDD!BWeZ0^L9f9L93oG$o~6QWZ6IUOy%NrsIa!0EhSo;#bI*?CL?mr2Ok z2$Ek9{KW0hw*AznPUyPD3Eil)Qa`BRqXD6GUplYesfVlGEbl+Sl3j%n^8No-^?&R8 z4^_f;ikw@ZFQK%23VmWCvrAI+KcfFP$p2C2>WFLUIEm{B=st%FA=htA?u>a11?Ejkr^ZjUS+717t9JsRZDRtU9%Qpd%fVDim9!OTv z11DCwl?YrPHTYteF&eya-p`D?kGBucy_{c_LP<4X5{!siw}t#*28=fiZVc9~wHBBL zvc0SDK4PZbeQ6=Zx4sl-mt zh`Vq3#fIhS&pr9k&X2zJ`_xA=AKJQ+cup+4KBjhB?t%F%6LtE$zqWk#1e$SD0U2TT zvXJ_H{&Tgbl!ZG1X+vr(G*u{M`26cZclXow$lBmj%-)+!UMMldYtq96r$+lM5ja!U z9V`vKqXC44!4L}w5FD_B#MAp9B}+)0*eJ*C#8z&0#iHCq?E0q?OjsJG%{pxZGN>7W z=X0cJc0y!!lxZz{1(ZEG*&u&?+6kAvMvEeu3_&tif6nEOXE)@|PmbZBbQqQZ2|1g} zJVmW-AidA(;WX_4%xtCE+1T?{{-tFi%<&Q>t3l1h|RDhb)`-EOXRH%Kz2GIIzS5~YcZ znU2gw=HWz?nG=$+r_w;tq(Mo8WH^RoI0*fo_OsSg`(Yp6-}`>A@B7DhUDthmy6?5_ zd);dup55|r9w$&3r@-U!WO;IJWO=f3^q(~Hcrv^;ybd(BALQ(8A#k>I;PK?T(tLNC zI@2^$oTgcij%Ze*sVz*>oI$=FUnv`f#rl|`}Dl|3QRi#OdCUu&+ z(WHU%>OqqxOy{;nWjNB zxzIG2CRdt<(BwwbP@0C(G@PapG>xRmou*MVdC=rZlNU{+X&OV*SenMsG@hmjG)<&w z5>1n7`i-V3G)<++o2F?rO{ZxFO+HM!$o*gY{8zV+#Q2i;^9l9w3&J%%6HD7U5ArnS zo0?%(0kft8K1U)j<4T0)L?SPih%ncI;aW^!L5l?}kThUrW!Wm4<|GZ!0!ah3ptXS^ z4g#|l17fbV0kNR90kJ^RfKVuG6-{%J255n#0b0;vpskCOg_S9p%fw8JI>WbUGdxFG z)H+hcQ5JEOTUB1$5$-}W0f`hdt(3)lD`hd?qTG3e`=DWioV+}SI1L&!3=5Sdge}G- zr>9WBdPD!+qAF%vG{vk$u4W=Zi&dJD$d%?La;13*Wpln+OC-%m zDAT-zGR?QDG_R3E=xVee6@poA0xNTg1Xisog-BY}DweeBAhbl(GIcRrs}8~lT6GXc z(8|DA*CBLWlW2x(Wq=X1GQbEp2F%S`N1K~*449j7448{6N^*^AJKfJah%8a;!Zp)- zda!>W{ns}hvu&7(UhpIWD&_DL?}vfNS*(?ehfWwZ!kPG|INcX4m*+{yp*`k5W4?`) ze4qZaAOC9jnI8Ivv7VD(gQWaBJt^{^`co^3|FS;y|EDL-4(Si1JxG7y_M3mz?*CNa z+W)SfzL3J_{hA#f9yidR5di35WDI}w$D<*>bXm^TV%uscR$Y_~VY9$4N7 zV?T`i7zVpxI|50&s0w2}hv&2(D<_Ei9oS;zzyd~yUu^*dN2^j8%{W2*tW}c)-IWs`e7vf zn&hKF>@xx&ewoKG*cJ04%$t+)U?lD762M>&QZ5|^T_YJ(#_5DOA1z!yG9Q{vWsvj- zix`RWvh~mlV;79d7)kjBIG>JKPU?sBH{5^Nd{r=#_9o?ROUjA;=t=y?Xo3AT!T#D+ zVSOf^N7kD>oZt0dyIC^pPXikd(9YlpODe0owgIUv|EweysNo^S}?~=mSUo zK{8(2x<&%2FLvHg#AwPG06s8C>R*SEv*oGB={s=pH2}$U)Ia+nEwJ+gnU}DCWd8W6 z{x9asuCKUVx&7kb4gYTW|5Nr@eNxWv?TE+CujV7Qe{$@9w+>3vtNLgA(%R*_br;*= zj$?LTSo`C2QukM-k|@nTX@T{t{@3(=*={wx+T7?q;aB@B>&GvqC;MbppId%xhusI@ zc4pTFJimXp?&A58th4Mq)aA$ie&?40#-Ge@#INtoS;ev*9^Syv4RVtZu&sq$2?Bw6vH6dPmz6dZ>&f5 zZ9+-EVW={LgE23_>7A!yKX86zA7_s3lKrhCPUnpCcZ_7v3iG6Wtg)ZA*!~cA9uCa; z#@QX~WBX2d7y}q|$8vqFFU0veVL9pVWPA+`m-It`%b^bpI^c4XbJ8d*C+#%K65Ge= z24R1!bU1b~im*R?oUa|WXC5wDZf9(#HzmoFc6Y~eCqB;i9D_snl6E1IK{CF{xG==| z48eXm<9ItPABp*)*p72OE-!Nsff3lB;Q=^*Y{v%sX50AT+ za|K4+-r$7&cGY3fk(3joH7OrSkNqR<=ZXCS%nPv{8=Q|d_SXX2vDcC09dJ53Tpn_s zvcu`fc-6$^v&ZqnaQTK}f5>^v3dfJc>B;ySg44TWe@TBN<8){w_6MgY?d(eIOcyb>==3laZ(5DzA`vzi{`muAYJ+hxBev|4pbu1YxO zF}7usGUMh0C!ID=A|1P*BKLgc{*|2XNWUd|A(9v!2Ql6i+Rp> z9rj*}oIA<6iQH3?`%HZQ2Sy-K4)&f_CtSimcDx&4UVzIXAn_C~KZhsdvI@)beHnXS zjFH?+KyS>G`X~0ty&WkBKF_e{Mm=no)C1l>v-cguo(@JWEGP9&&SPXg!}+lFPW;ow zNa~r)OXQqR+MCoHxlh!i80^AHPv$d%#9n8Nq+Q6pG7t0Q{AMUwZtgtI&U2*v`at;q9dBg4A?IXrKJ3jX zwz_X*#tmK{NZ^iNww}p-02!BLo+k5=IgTg&lYCF?hw~kt$DkuFpSoneWW8f~GH%%Q z4%@^1{JVQRV{Equu(|>ngPwa60ByK9Bq!z?sjW3)b^k#Nc4e<9iGC_XgzrL-r$NT_X3MWZyu(GZO#E`e8K{ zmyeS4gM0@TV6V`Id|;vM(UtnXNHT$}hnAko#u5ps?*m?(vCzvTq^#6Z~Bi zEU+KAf3o{b?)i-~&e(k<*+-M|lJb#yBKLUs`#sx#RKg|mCExqWyiDdxk`JjLQa*Bj zN$$z?a6D-*qDRIP$&aivWL%K_1t~Wl+b8$(WM4+)geU8A6(eW&ALM?M?00oAlJ5cJ zzK-}y<`-g@v=h0nw8Z7a0}v381ZLc%e63qNE0+f)kH0)Dh`0+Gqx)a58mA2Ti_)qd z7OaOG^_@@tF?t`IpPgC#%Ax@hr%v~MQZx(F!`7-kx>g7Ulb47w!<<@?z0DeKr`rD} zLd&3b^r!5;za4};V}*#j0XC3eSe$AYegM)u=JwjqK@PH9g^g+#gQ0q6=Oz=^XHXTs z*6m$=DcrvhX8X5{7u?ql2{)UU0W}TZ{NDA_g@QV-1#4`r;jz7&!I?S%JXg;3?g}HJ zX74kz;zQHm(ZtVKju;*6DTYN=?mcD{SjjOj_WjDf=)aU%s0&lpZd9u=G#ss)`y{6}~WLL$^3g6qtKiwn19rQ$bf8jw*B#NZaZv3ZveV6mBRg zRDRUE20PB{uD2MP30XHECmmUM5Ng7FlCETSfojKsXN&HAgR1hLr(_#GL&3^WwPCxb zK%V`?>T~O3;7Q2_al6;eRB?E9t-)ES8b5DXdI$xjDRaht*p>(xiVbu#20(?3R_&Gzfl&GPQF;A} zfl%_`;@W!uIdH#?<#V@9YEXSlBOCR536-zR8ka}$pv?9Uas8FKxj&Rws)ekmH{$-2 zw$@`x>FHAtU$Z{$Vn-!N8Zopve|Fr|T(yt$J|72Z7tmxGm0O8#yA=7a}Q^{!-k?pP^r!14t{ zmLBr1{Tr^U^i`)D295~cCJs834d>S1YeQEY%-9#SvZVYyB+tB?K5tSZ?5MA3mo@Y^ zSi9eDL)qo`VBU%D4janBeZRY_dVM>%Zt-|}gwGDh`!p(HL*O9DQYd^erYH~6=8YcE zdjvfmgQj=5w?hL?7}f@RZg~qSmc906l?;UI0_(wpEMNb$+&L?wN6kC;5YkF&oK1V2 zhuhmiiY~zOUH+-OHym0c+Gp1;3t~RX_G+lz3ddlAI^6-`X6T}c zeiq)4#@D*q|+XOe~Hasbs znG4h;Gh@w3%ivb@`Hoc&3t^Yg!v3WBVmSS0(iHg*(X5}bqmDI?ca|r10~a<=n-k&O zW^b|mm`{&-A#C zi@w-E#g4c86>n5Qyxe7DdV+$?{L*`0-zLJnjSlqm*MUtx-Da(J(kS*86PAA5{E{9B zEWcK1!NjrlCt>%b!yhd!9EQkJkJKp}SHk?xKWi!ym~r#OI?1^)ehySs`MWfa`zLoc zh})$^V~XR1SJR==^{Uv`)3RTSfSJv-p46c7 zck8~weYG)LCmDT!+O_fl){QIZeL-YD_}~lqno(*SSA|1d?$Vc0vxDHyvRh6b+a5#B z)-dsU^GJE6+}TUdpvEM&;`Y>l3t2wTE1}3HzorUV!_<1I6o2sRFNec|;tPznWR)XKL?DI|e|$X@JGsOKU&qM;SAKpjh^T>rm|(d>9d_){?*y_rqq4c^`l)5w5&H@#zdZqcnZ}r zlNan>*#zae=1)UZjzQV)zW>U4gPz^F>8Y>185Nw38@VCT20dNAeBRTJ+9=ofy!sA< z8R)6{X*58@LsxI8*UxO2fNG0gHg4;_7v(8`JicqjSd=+j&fwgII5HT~ABJ}N&u?x= zX~U+Sa+{)vjz@c6Y`4=u>gXkU+k;~Ke=qxh;v0rnCeNG2%4ZAz=#}t%iB!GRH|s?= z-5Xgx|6|sXJC8e{>?_5pacNd4<2U_S*&DSe)27DQzH0#57M7*OFB^pN3ydr*l;qLr zXTyOvHXiMac$;Vv8jajf#>ehAlV!`VLiwc!qi% zn}kZPzTOi3?g@Gt6F5yc_-|Aslhu7gJ4IA->*DMQj&o4nv5d`5l{P;uclJBQGHSyOkqx|DNp2Zy0Lg`hfPMf4!q1`HL?k))%h2j@=xG~aVJGywZY+dlxdX(_= z>9~DyH&D%WKh>UxoKSUx^0F=K&!DQz;EyXNu0l7c(Y}X2 z?|~A|XpDRB*a;PrD|R1& zPBprv{HZ>j<(Irrd>wxy1w}+hEWIpu0;PV4eSUcAWOVv6DJN1=o&<4?A`%%qn4 z+}OtTFA8H={^aIsCR*8UPez6-vhrAWzj2A@KcecKfYak0t6l04T_zn zKkD{)S+q(gAZ>sl=QibsK|F3KgF}hhQPm459Xa>DJrB)F{*t@m{6Y2KDg7OpgQ%_TE>Qyaxv$}ZQSwV!mu~WYe^I^LB!ms`-;q*T zX_1wabdu^FzjS*^)^W<%%6JjQ+eSG~o6>M`_A<)MZgu$w8*NHc>1mkKv_q7@zv%Jp ziF1?R->*shE$10!UggwxP4QPsbasi&?=i0^(V=0>lbz)#C3n@k-QJl|-L)bMRUc+i zMg`qflwO{t6vO8|I;Nn}#*GtxJl;a#Z?fg#1DUs#& zwlOiKl;wauNx=pll&JImdm4#pl*#8=blyVP!~&ncI6y>8Xj#7_E44MRYDC0Se;nOFYQ9`ZpH(syHq4>|XTMqNddn!fR6B-(cG0RkMpKl=F4I4!-hNK$zs^{Cr3NUzaUaX@{r4yX z*}Xw^J5(s+KI+q}zgkc_Y8On>*IuVY``h(ZmODxDd%c;TaJvs>y|;g^d+sdCGA!NB zdW;*TdUC|J9xuYEfuqY7#kWaBZ{B};ui!j_GRtpg;u-iir91w>qYL~js()tJsFbo? zYCvA<^+92Zl!*e|=#~;rnd-09K5+XgWwq_hMynEA%3ziHY8gQiW&E*mw?d{IWsqNB zc>IVHW$N2E<&4@Nl(OTwM5QDRN?omVd#u7(%Ist8X2a@Z6u$yM(NP`hnRgikVWSs4HxElK22`=DiuRtw)3NSvQlwz!i|p2 z{z}8J_4~VIHhq+e3mR+=Pj703z>k@uRcU{?d|(%&yX|=$q+-YzWA9VEc2Y6eXj_O8 z?T0iBJ!ZPESJP*y82tQV+(6n-X&6}F#q%khk2IXWB=KW%(-)~2)D-$uiS7?v44f6w zIFQaiNYiI)dtQ6#=xn_px4A!H4A2dWI@jF)8Vkb))9pu)$b%BMdneO=OT$nIGKi$> zRT>7_JG$*|&iBX2jvM}``3;><`GA(r+=wf6b3ve|Xz08t3k1fd`*>^eK@b8atwKxROnQp_fJ@b%UQSl2r9SD8ui*1 zG;Da~`oEWhVE^YYeqDQlT~&h7=K-EzeTTPH-S>jv;UfLu zl1jS0D<>Am$N~TCe12~3HQ?8;d{o=98;kw-_bLCpQ4Iu-;`(&Y`5iO|e+)4Ha|Q5i z^?k!9Z-UMrBCk5VjRAg5{6*g(b|9$Q-*-^W3=lkX@OpkwwguO3y^`)#4OTld^&3vd zgXt}^os04wfUss+T!`Nu;NP@tnzG##1iKC{?PWLHHKhJk~q#)s|~udZ^Qk&`1%OI1Ru2^5$F?`SJHQzv`pLWB+gMi?7boJ#nZ+H9LOh zoM4o>RB=qwQe{+pS=R8CUJ<(cQS0o^%LmalgCP}l4OJ*D$t`+O7QKHTP@9~PP>*U} zuguoWOhD(8+_rhjzd*TiJ1SStoPbi2Lr0A-j6vC`K(pr?5xR;oqhV^dnCXCSJI(rh zXzW&0Wn^SDDCZ3-T5YYC?3#`$UHzJr0#i|`kx`#(leVD}>hZ#{b1cvug_Qj>7DS<3 z+qb!T8S<#$z5TR^)8|m8kLHI;z1=7!Dk>^o=Nu{s+HLGUpd;%iwOrI?)PQZM^e?k< zdv{>M;7w136n zp_S-X-l^`k#aGbr;F>)p0ryeCp5PkgSt=<1_Un}{;ge8~ug=%NCRbFIm6cT(IS$<$ z_m|l+%>YzjcvTc_EJDR~b#*aC z>F6FcpteRao6Y~>N3AofODkDFuSffrFWoQ=#UFpGI%wV+loyrg+A}Z=mDRT2d-TLk zRJFIZ{jPcKQTdpgi~n{zjq+bkROvNq1j_d}l&S8qgtb$klyT_syw#|%+wr&F(Xl8; zaqN;OC4ZsvTj3L3pWj5Kw0~x?rl?rMdu{P+Wpqn0=BaLaILaP6bg06CHz@a6=NQAd z2$Wx4T_d=%4P};;lsd)EM`?8fz4|Q~kM5It@;Z>ZX2NlF`}60j;dq~E`96bg7R^HDx9=Z<>jG{sB~{_2c3%9=>D8JbDrPqiKw(r{0ghj zY=3&Jd;Y8Y$t+YIKJnJgo;y*|(W6J#j`)O%2YNm}=Sur`{;Tdh!&+3bop| z!i5X(rzxT9xSyr>35Yh+orNyxI2R4@I*;NSrm8JIl*W!5+^+1oX(K97FPLwG4vyv@ zzFX&lPWf!;x%dhn6;{YZTfgax{=8DTzIN^)Ko>Mly#HeMkj;0s z#cloZYlO&Kl=(=mM;Daj{d>2G*X+@mt!+BqK39cOCugq;uDy?r{be>Gd0Ypy`})Xz zosM=#2Nu;Gad?w~u2@@JZtPftj{R<@IcL@<6sV$N=xQ%O33qMYRyg%W=XFZXduSJ; z1Ztt@yP$HkO@Cf=qss}DF#o`9JIlx1|F$JE|2@(TSQBL#S%#7veEyCq-HCSF=4w7xU-S#- z(0>dlsqVnyOqDn2hHCw9ulIdHm(~}2%RaLKU(FL^2=5Eg&pDbAUp{S_M6AvV! zP<8cQYtEaa!XZwV^H5^(@R= zh!$iWF-&`rfD#iEFIM*2h~{8_i-L^XmW`=L*FVkb)$^+#q6)PjwclNotLwXURG(1J zQ(&!0mP2wJYQv$n9FpfyI}WwyPzMevaHu1PI&r8ohZH%a#35x4b>WZ-hq`h|l|yPA zQs=cih1QxhIMkg(JtV35nHAY4>|>7~KmH~8jF;q_T#^rLNxqgP@${9%Q&tjBQ~mI% zDaj|IB;R|Ie7s5WB__#dl_cLt;yif7dAdmA5u(ZB=PPK=N%u;t38tM??^tT zLte%a*S{R8|9^Pd2CP#2)bFjz1&ck+VJ|q29zA-}vNC9XqK?=63yYlQa0e_fT4J=r z@qEl1%@hZg7h&FBC=OtQdGd=Lb1WzSsc4GxC%-@@=?3C-cj{w^h zl606S{~<;6Oo;!OM>s#rQS%yx3+kjI`Oi~nXoKxK)G_&zUmg;-qoN&Ix z4=c>uk@8}m_)q*1VL9m!x){kXWh^n@lhY5JalM+6dYLK7Bh2HwWcEMX;5=hbNcth^ zKcqddoU|Kh4^lq^N&mpeXOR1V)O_!GKI8$Z?pP=@j*ND9KmTBo(qX25;55w0I?f`` zYdOvK@eZC9*!&C?PUsXE5=6A*2M2nG`uGuU*qq>CpFqMnNT|8DvM=x6I;xF_|Ma=+ zJTp5mgd~%5@FS+%4Vx3{Gi91LJ5&33&uC%Wd-(@@`?cc5(ShE?%?{2!e!<>T0%lCd z0>$YIXH1#zA2^TJnjSKb&2Ov|`>a@?kI$6p{-JDf6vdt~qA7lJh$BvZbZxMSIyi*R znli&DAb7TvDNbRAcd)m~%s{$XI8D_d(0`!`X|Cp#RO1WT_9ZTw+0| zN~`++As7L%c#)cNKeHH+Sza2ne_OZiY_}n8$=UX5Y8)x;tP5uQqhQ@gIVYL$QkiH| zAQDT*jA6U$qO!{98EH zvvLd!;Q;Yhu3WEvqI_ND3BtDPGK5KL-WODOSA`z#lhC&isVb4s#`^dQ_(|qKvlS42 z=4Q$ydC_7I(}`whFUCbEhw(bE(0Va)T~0DwEBu{Dz=v=4XFL~nBJ58yrcpM1%TQTMl5qJALC z0CkGVXD*AJ-*!a_Z~I2vYw;wCaPl^$X`k`_K%n0ton-h%#BPnm7d2Xs=(5og-+VzZ zp6RkYsp%BNKU;C7bdcrBz8;!5mTmz$8@)W`$qlxrnn~uC+BZke!HJIDvZ_iYtwsE; zmZLA^Z@(XkT+YC2Aj2$qsf4N+P{u`a2}736o@{J@ofzr=y_ByB){P=QQU1X0CO$9_ z1mQFbDMnpWN2S86b;XDb^2Vp+rB~1*%{nHJlJ)|ZvNw%tVSn!2N=P&DQpng@fWkou z(?Ya>6jPcos;+!uiS`I%cnQ>}lP$Qoq+m1LEPv#?8PfrjVPUrs*0@eC(|?*tVpQU9 z?cD?gkR|9?H35_lob-U^r6&$h%uNgr(a75@?rl>*Q(Mn%EA&4kCLQPS4 z^CbqN^EzY9z|XLS{OKgAgmrafDji&jsc1SQVu=r~`3tmnGhVwopP6(5+}=Y*IBJv= z>cShDTUy^_!R2xCK0}?q-7W#S5K& zZ%K^4>Mq*tBXq*0NxhCr_BC|+iZeJB2q~S!a7NH>&4s97_eG|e(I}wh(%=TY97ugo z4B@uWGM4Gf#l)uXOp_;u>?+29**iM9EL?mObOb$UzNx^X-D{Uzi;oKXE{)c-HR{`0@el3HvFKt+%Aop&Gd9vaxb zSu^r?2@+oVTl72%_M`Ijul{nD7D--lyiJ~d0)!8F`zq*pn2^9$3NHx54YtmfgX}(H z{r$j}_dBT2EZCpB9?O@m>SUw>6ff~aM(=C|c<%2B6Nse99c3MH3N{*G zpE0$ja6)yFxAnAjfyHZS!;S9EPiWKi?=wOsND1b@m@UY-}~3mu3K<}!CWhI9da zH&9g%ovMBUB#rmp;|&KNOLYWCr^M_+6ieY&lUaOf*u;pKwF%zp`%V`FLxw|Z#-nF# zC5iY|wy}$TTlRAy%@+R(vjhk#xXjdL_D9fNvuw)ZlhWw%qk$M;do6V#jGFTUD4%c8 z*f3$C_=D6thR~!57!!wo$z}4z2A3IX-&*LzU#NbB7~HrQQ=0Mt>zGz((G>l!IzMVE z{EY2A4`x<%(V?ds6}8F1AReOvyFP&?cR-sBJ#VR?Khb3*1T;p3s2-+z+N~Ct*LayX zK8^Jj3BbatFmQtbEDPsNt`bTDsP8@-Tm!b%G)9CvBJm*Y%0i8eHQUnPe!v9A4;TqA z2*L?f^mL*6S9B27N)E#kwurBcs+J*^2y6dgG*Z35)bL9@XVU2RbOE)izVzk!7sRo z{5qyQ>Y6>tS5vIU1Eo~;`;49dfdBI4F6M`A#l7Hyj$~V0 z6^+Y0Sp)~byjNxr7SYv#0t>U)e_D(S#lqeQex|Fzap_n`{i!U9k1CocjBCP5&EtbV zpbGNa*#nutZw_N{mJHv-IFnO#YbN8*A(mgmj4D>TbWj6&h7_=%5OiO+AXLL@R1Yj@ z24;H0aH=sT>?1N1kJCy`41eFbem+t%i37;k-4JL&WNaZkq5bBB`vN2l=lGKGbDH%t#e%>gHn8x6GIl%;1D4upg7Jv$8=Ok7Z=0Ep(}Nk+<;^&DucRHs`qr-y5U zJKRpbhRZ*HYKWHxJulB=taN9Gwy9tVZ_IPoYy1sW(6v*Fv2f0hx83W1_}7TOIIzb` zoHEnW_5=U!E4e)SQzAdj<(doSq%pfJlkOdhK_%#9q#7*j5{XNnIIWK`17D3Est6Cg zU+wv;0RhbU9*%6tg#GL&z065$JZzfq1b3kD?8Y&pPt+P{Q|`{U=VrDznk2;BPeo?frkIB_n+edx7rRyU;a= zfj-S3=yoY6W`dm-X)v>mFnYy zzGq+P^TUsXtij|I_UMc^QRtSiYo>TIPCZ?inG6rq)Qn99x#+9}Ri5`F1Op>(yESkebVnSEqpCgSJ(sXH?LKlAcYIpg zmN!mk7^#RQjYKz=I6RF!CBe_NT~nCvw6t)aC)fWd4yEKbtq_jmwif*>Q4fywEZu}M z+?I3vFriCJ@6W5;FD-rqtP)cIE3_6G%m7FK22kQe~jFhRQrXJ5(ra_4>i zs3IGT$ZvQJN?%f&@3xh0e|5sED~nupz{LPKMrXQCGWqWE|~55OJs9O z)f~U0uyyXTZ#x20EMPgb|6C-G^gP6T&$2Cxz`J8%g^TO!;tWBsMIj5qE(6(X*elS# zX0k<{i~@3$0*m;D0<8y}y&~T&038@hf(5qqBbY!gBxw2{9nOJp?YD=J>!%Y5K+UVK z&>YjN&Iol`a;Sk5TE4Y?wNntZa=3^zl z-!cY5LK5)*wfq1?j%qZ;Pkji#75&uhS;)oFVIU&}->wU_j_r|8-kAu^N%S8OL?xLF7*qWbIkaKylZrrIwDF#3?4|b+ zpPc>%eEToer0L5Oe-~rG*+`_<1jOaGd=DNF?)5nJ5hUM;O-E0~5pSj%&LVu>PSvA93_Npc=gPtA?b{ZXh+O0@R7;l?QkQlRu!^ zgiS=V((8e5v5~uJl8tCO3?-UCjWgCN4Bwq8w|QTnV^t5;b;P_c68343bVVe#`T7z`iEUfzELezy|w*Xe<3=Qwf0QeBBdhpsx7vz|hTpSy`f#emixQne4=CoIFsn= zRcRvIS0rcUHNuJe??j(RIhwlKo|hBkAn~Z}0rrPEy4yCGP&UEegQf5pGhEp40`Nmw+m?ntEht< zJo+DoNekn(c{ESpI4`czYEagHnwhGs=LyRV4h?2F2CgjH6P4!un!31fhC9p7Z~%~< zg3{ZBG!9aQN%~ZTu9&Kr3o|zj)&@hqu@QlMCb3dKt{ol*aw=0M-OCM1hwqGPaCKq{ za37qh*82mUBs7p8vAez2U=N{AZCiJ6iGL?mP^&1BCJl|;)^HP`i zeeS~Pir%YKGHW{Mpp(FzO4q8p<^5>nMtKG?toRPA)BSj7znj+Cnq_E9>H0ogChiZ7OM!l2BjhZ#P`>C>y#G5>x&khT>m`Rerb#Kj@ zWzJq29%LqWyOUq7c}C@&c#QVOStkB08?DMsX^AL75?Hr@e)5djd3`Fk$}@9fy&vw{ z=Im~+d~>Nc@vhzi=5JpK9WE<;wmN=^OYBNq&O`7lj2*91_K6n#bIjMschK@5WWrdt zd{!>ltN(_kjfkY}Q$AX+3^kQuRnAPt!Uxd<11BEqCy-rB(Blz*w)Kgf zfUAt>Z9_<7rYiriHjr!~17S7;uQM%@sZXYQ2hU2H?dD7Ff6fIYS zFnJ^p17;tf5`jjJUx*O3ziDRMe-`|z+;iqWZFr{P;_O^W^f7+)7v|=ZSTr_c|A+)6(|Oxt&=6tJ)6 zs{B5b)BW=LJy3J% z^GK<)^CjG^6rD`9Tbe8(2Gsy$1*164OPiwo3{Jz0o&$Pp&)oQ#)&!M=(L|+|^kxMC z^yuRPeYefJk}G{idYK2auCMeRpID7GE`^qjofxxr{nIOquNZl-J}g<01_6OgP>iDBcXLJv@QsPs1|Y+Nuo8c}mr^mvC){`|XTOu8ZL+Q|=42XnBJX)lL&g z%Zf;OSA(by_iW;mXy%=kqw zUJab*R_$3ejLEx^viEac!j}auX5Txr z{pbzoX*;$2MhvkE4G}9_X|?j#BhY3&3%czUocUx^;sjqS_)TV)(p*gRV)aQaXUKLz zyYL3Lw!ywrPm&w!pA)a(&^(lbI~uS5n^jl$FQpgs9~Y{b+WeAyaEk^EHcs$eOU9qq zv%(6pZ}56q>S(er^(KihOm*bwFmYWH?$4!>u$VJHdv`#b;9ZUD|Gh)ii*DiiiZEob zv&U&{#|+VqfR-HF66pT2N@SXN4BCwMKn==E5d%CRM9<4wsAIpn}Zae6p6AGFAi#Nocw zM(1LZVg0x-n3~tg2gZ}q~y2Q+-^)(8v8}j!*8g=vrI8;4H*}Z*g;%yQJyF|Z9QpbRN@d^*;B68y<%&4~9-q#8Ko2;tV8{g<$JTZ?I8TGsZ}HruN4+ zp>eof%_3l!@2O)rB6z5r>m(>&M0S+Ezz@Tvrybp2F)hOxt0NqPCRUgA5b8c}?D2oo zgZ!wrb}zBh0s5LU2OnsEBgK$}b^gZtg`L#UI~T__pjq_>YKKIqjRL_WMD$;a%!x;Ry zSb!10ZY1x0{gX=9$K6{N^h8lwh2$$akS#x`Zwaz$`DhrpBM zcc-vZOT~){Sx1Ss^TVKZ5uo&jf1P!fk)T7(-C5)LSWP>*5cgkA6k!W5f*S6c4 zf3iae{UFdm-I$2z)=ZXBBYE|#btCTIK8dlwGP^T)O5VagSd zLkhTfnrHZBe5yGXNHQe2yn zW>wCL`1iH4@~g<@6k@vPe2(~9{To>Pf>eStXIE3z`dN&@as%4&hHpChJLep4NuxL} z7n0K?k+vDK3}!UcufuMqene_KqX)n_LCNU5uEg@{^22O47s*pwq2K>@um44ZVh>GF ze*>#ohm{&@nL>{5-K*Y0t~K~N*5vuyX+5*9zC$oRYQ{TF9)*<@=%S6P3Id;Ma`w>x z5{`@D_|>@eUq|gT)v*~2#eiRme*qf}A&eHlH_HB^BaLC4^{X09fi%1R?@nb6;+?q| zF_Uvk(`pLX)r4ybIq}y_8^vie6Hj)Xuo8n3HPr1yP|=@!2u>e@RQ1?55P*>)D;5}e zSrF5vVD{0S3F7F)JUX{q4DP>MU;C&&ag3>48S;Cl#c)ecOszd=%BB)O`{eA{z zGgF;?i;o-`wq`+DDSt*fY;vX4rR5^dJQ9^Qochti` z)tNrj@zeGjA3sM3Oo={@Q3$k5btB$?+lC^SoM}PkU*{O875GUF4S%t#QTf$?0jl{| zeW@bvwaJ_{;cp6yw%+SwiB5Q9AB*|Quoe^TdeE)MKaM7*aUr{8TLk8SU` z+aaGSGP^cMnUOZ_KI^;tdANq=U>$vCu{CsMK@4hLIT?dw(AD|36G*?lg%CZN{ zE)E3oK*cG?nPK9%l!-RqCz26eidvSRF-JpvZ$rt-3H79R=kdss=F-ZbRDGSmj zQ>EqFsxp6YE(Hc7+sNPlu`vR(-3u*59oDt}7V?kdEZUTt5WeJn&WK^yOSIO=Pmh5{d>z? z5P^9JcV=vU@g$o3@pul3rg76jI@H1wXA0}nFyFAuV2Gnx$Fe`3Mq}O z=yq8p#zZ=p#kK3KYOb1V@gBSFd)ecb_e;7%z%8>UHE68Y7!8#v;M%WrpJTPZ&S3w1 z-%RZHl!bNOYiaab6=OzjS3^A1#p7#RFdH;Q;ECpsNnIlc%|CD#6#!5H3Nn(~&tJx_ zzW*VG>1}jHDyoRQ>~d zySnzDo#A1A({rlCsb4iQCA?Tt_9hN5;9?mWJ2l*@>d~s1v5(~3?9AP(r*BHmYs|mx z06WhFUW^L1@H!OwCT)o6ZMzx9;;uofE#F#>e~CaI2o}VlhTn4I!bjl>X8s&Qc53Te z+=^yXUadbLEq$>zFG3rtkJ2T^Riw#as?m4AeQL92YMIgDo_7a+7QZN_NTF+s*4y~w z)cL7FKbW@X^9oXYwvLLxO2(@#oVuIWliR@{a|C5YIr z-aoTxg7)xDY|dEInMr^xaAIOGnMfnV!3)xf zu9lD(H;OAQF}0qZePwYQ*f%S(^W7Di-G1kc=GO>P)I+?P*|z2~P9=k&IzJ{GGi0;1 zX||ghzK2l1o2WwcK{T9H`?tsc&8ZSbNL;iCx1fI zQXG{bb2EV};Y0gQ(XMq_u|&UWD#rwJxm<6fFpRU(HkxS)rEAm);^_9BrI;L>?9%^L zksLO#H{da5)MAdKu@W3<^K_m3zl2|B}gl$%kA$-AlUL2a2sV@j}BmP=d-ppaT^RM8pl6Mb; z(O0;9_!VyOv;+CFG~@l{X!qErtf}=AELRVs!H^jciVMps{Obw4ym~9qJ&($ zumxQR_vRFoQ%vfka{19MsC+K}T-S5IyzsKuc`^QgbbUN7eCpEk{L3Y1`>`hLX70uC zRpmWJk))zW*) zUk`70037sWG;n$sl^MNG#=u9| zMo~1jQ!h6ggwFwqWlRCvs#{xq{C-h1rEpKTJ%o_wM|=&V+n?;=Ap0UtC~7E(M~zql zp%3`Rh@J;$0sNX-P^9x^c5|8Xrw2WjQWEy)p~ArZbF!zY@MlDSh+dz<3Eev&g6KZ3 zKYSWsEK`E>(Q|Ws{q(E8jaF6wD2*NPZHh3lMZ;X)pb#w)>!ZV*wlTuQ-=c1I?aE?8 zP*@Soy?%WR6Zd9-_P(`8)5C>nvLKivO4%M%RYds4%)8mj^+}U z)@N0Uh8Db18w?5tl-O<@7KW;|xLUQ%ViWer5CINbWo5Jm=fLyl2dI9y;*w?-W2PmbOw#ZU6D{Uzebjy>Kt<7LPQqft zONB)h2I}Y19l3{oAcUpldl~5KM^{-)^FS~4;nn(I+Z31DxEubANVQs`DGn4G;oRWV z*N;5QgB#Vg0P37lA-jOXxf?SFtPE8p601Uqpw54GH%Y63r$`Zd` z?Crn6c$uV0UW%)JY4qgSxtFoUcg0k1qBG&aWWFp_#|Tz!F_UL!@e8A2}3N5BC^C1MskE>PRb z%TrOh{DYTAUW&wPmw_?{avRy20{iXz78^rM^XN(3xUHZ+)u4n#`E$ioTVSrJuy#N7 z8Z;BmhEQ6}8>6X!rmSM$2vW!67>NDNW2;xnQ_2E?IEXU7S|gWXQj)irsyK@^mr=`_ zh;P@ishcR^;_;>5FY@>joEi~_ zX2pN?oy)}j?Y^x4|)V7E_M@m#Q7LMaAEK}S z6Q$+*|BY8!11Xn}DJu`=7R)K=&<|0J*sCc0T!!u{wH{jtc#$@>uXO{3Q`YtC;ILw4 zEU=hVOOZRwIse`~)mXSW|(LS6>jW=!~7T zfYg5teSIHiQiciU;LmuF&wVEvw5!evDIA;cndwy+WOu&zUuuqIdr5p)FT^(?q}Xky zBkZX*PX3#ihr`cj1>fs0$vr#$^A#Tr7#Eci9L>?$lmkSM;uFk<|CKRW%7fD7dKz1M zS*h{$L_S!t_VxjqzPSb66lK#0CvKEb{GMP^yO%s|!2aNH1d|0aE%kFdoN|5y%=By# ziOSns3`!A<>F5R;7ons>3#(8k*!-l@k4FDOW?8Hn-#oLq`!w4pAq>B3U4h(I^+gB@Tr4vWI_19 z-fVB#zfTgn_yT#)KJ%s;UmSi<7R83n_+O1YGUO9ATcC+Nz=SD9jCJ&0u;^C)pNng< zz=704fRplzk$`Rjen})~p-UU?whOi~10w;wIbyE6i{HMn>I#7nmY}9lC z1&DssSUp!A`wtu4t4mnl3>ufZNP=Wr7TO%bq26g@Ly*i3Z)Zb7lS)o3dRiLKt_013 zrA4a=@he2?ViWp`H$>v#?3WIgF{vbxZ`~qj&t6=g(gi-P()fiud`Csl-T%fqDFDtx zy3k}M;%AvRBg2(mE$4%ts6!FFlB_-9eJjnpq!^`kpBUv6Zk>c z9zD$dU)*z|J|X-K)F4>AfPkD2_3Z@xQ5-6^;HDUdZ}ubCHs$YomLXJ$`GSR1&tKHl zA-jQQa&$SAjN*YTO<3*2rnueCbI58d^a0G2%>{ z(u6ZdJ&5Zl!V29bWCl&rHfy=Hu zuy0KoB}H7*STQ_P-I_{=H9N&9uclsM@oGITbeHgdIm3TZn*b5}{|ev#6G#y9kZPs~ zh+LHS(oBwZ71^PhXz%K@XE^G0>h=35++xi^-vHIk3f!R*))& z`rNo<61b@TKBgY-m764p&COCC*lVLJi0ZOsuxV0-IBP50-4qr#-jNq>c|y5zhs3Q| zpcDtdJuUZ4y{?)J`h%beBYP24<9xY>+bG!1hEfxbYB2F0v^pAr{RHWMD5rHTKY{#9 z6}Qti{&OOUdZ1abQ0DV-;o&1E?Mn(9)Sk#tkFmsU2}oZ;`{Gi8SzPv*!^r12k_1kT zOKf5BQO1<;P%`e^VGGWpOtb-S_91)ZYMzS>_#j(Adfmes1AqX!H;*Ane_n%z5~T3} zx5uJQ@cFeN6MB}$xxjXKSb+c|gpun4I*JG@d>%@Urbq#Cz96#>pH~eK9iV<#0tAwb zwJ!ut{o^kN% z&@UEoDjw7cESqEsy*(UJVl`~+_fj7$uq9vP46}f;N^R{?s>G^?LHM&{@u2ROyImagt$P z(?p-_$qF6RWv)NuRXl-rb;Dh53~H+fXdtC}6wvt8yVGVaQN7n~4!6@>r(6-7#PV=I zDwtD?AgF&D-UMZ{iL*UVu-1tZ+vNGGvQ^`ZlIPl~aU>O>=#d{JO{^45>kmSH7yLAO&Bj{cC!Rm9C+=B{_gjkd?eZ`56`$zy{)#hY4xsI~ehUl>ACU!ege~6l z5KG7p%L1fy=y`?z?Ix>%vxD?V zGqE%fm9-rG3PuBX7G;RQO#2Ne`?s(?5dq3qDzW$BODq!!q8*;9CP)W9Rn6wMI+I(^qO!mwhmVWk&Ipt~twF zQpiJEAEDk?2Tmz8K8cjERCxfu^iTy&VYKpj(jXoU4)ECzh}GK+E;5?}I-|Q8F0zMr z&^-llXzp4krn{kc!#l_33~~GaP?IuTJ*6EHz)a8kB-Wt~879svS?2a5yab!4Tm-#1 zk5FzC3Yr=kq5a^wrVAFsci`d&nE?NghKo~T&t4DQ9okwPIWlGfzVa79;vc>{6HlGY zsfMY4^$LZoTEwe@&oEtz%NyR#DPcj!&f>PPs?%uI8KG!b>-lu07A{?;UeDS{59|VW zk!k+&y)oRA0joPam%#gh46yN%A18;md6O#O5}H$#N6~7kX8d=;W0u)_9Q;ZQ1yW{a zM^XSw&#@7X5onjr&V|_7rC1UyJa6IBnPyrzgCOl=4ja+~o}GBFr7~RcW?}Jy>%Ii% z4e9!69Wd9+jjO6Q+AQ=XGhrWr{6iO*T|wqhVqq*`Z^7@MW#!2&w*vK3;o2R})vOAk z{`Z4w5OcQ;vpSd~2)Zw2!n>)lFAF*fDfN)C%|xY04?<-wI?SGhH=^kZl=vq8Gp1(M z0&*$z09BKwMBSA0k&?G2R62Sd7V`Dhrkun*pg_Q5J~8_w-|HelhH5TspN;x>8_n-w zEgfRH$qDnpGynX*6&%x2lrm%-r(((HhMYiOdjN)K?L8`&2ek^SxvieB47)2f5o3VMkisFt4r(-28)7CX1^;DzYQ`pcz2jhC_lnim z6TL34CDhFZ^0fFM-eFyUh+(fv&BF%pfp8whS$#W#KP%*Tub=xj8gLbF+vDw+)@39E z1$51G;hAW&0ojb||zVgT{wR5!NJrGJFOo zBHpd2u4}S40XagQ{xkDSgO?M^7@y=eMc8>(2RUy$4zcBIfO0BaJ z)cNbBbxz@L3Mp_Jf!HhI&PO`g{`n?*?<1)+X@L#;tJmde|CO9b3K%_V6-1q2k9|-& zA8?q)U+7S53IK_41K?}@p8W(=U?bGl*19F zXgO?$IsgGcGb9gah7y{YJq*v)*dyEKRU)2Q)4X4~1bHqR!%y(_4ev81gl3oAm-xlIk4#aP7s0{AVbEE<(C}ojA`9o0+18+6g>Ym z@+;SI(WDa{Y2`WA0ins0iwE`7>nY+E_Lt8ji9I;!JnufST&mN~3Yn3SsNpZIQgi+Tcm z9Q^Dc9l4K91uRR`3_e6u+R0uFLQxhKJcW04EE-wjcg;K)}Mhn(1t^uA6O{swu1 zQVwj(a&`#qEL}sAu+!l5jl!-CTly;Ty+n>MwMYaLw0GO|wMVWI65 zo7vs_4S(HB-n-ng*bWSk)FipJ6$6NW)d5C`Ma}v5P7RkBlNt?8JB$X-Q?QExao(es z&Ufo;scqqMDW+LxcbUf^`C$zNNj8Mq0z?E?EMp5FnhBY}W{%gnG4zLdJ1@`IS?sj@ zeUr+TZd1^K9hYx*_BSE8WJnVb4z_=84*p%)Nrw5nzAwO@N>4b2XM0EChafcd)&~q> z(hq3DhnXocoH9?JWs{cvR3=%_XH)_@uN0H7uf8ln7 z%hib;{3SiW8WU7B&z!rtiIutsG5W@{hgILUu0oT4XblLG(fl8>6ei{f8jF>h!xr`C zT{*^LD$CW`_xRhGf4)T901B9eta2!R#md;vzV>86wyb;C_ebwGKh~l8TxyLw{AW-B zLhP4GiVXD4Aoo{xwE;^a8QGkh$xY6&O>|TEfiwVn-DgtYsOwL`yk8TyQVCour{z87 z!N=MhqbvolK4=n(fiPPE5rzvJCF<8U?>mgt3?OJ0p<`^F`bmLtHg*piq8vLf5ka%~ zHB908c>SB+SoDfv2J$QM%Q_!PXsdu+^&j0UxAe|z6a=%fF02mecteK=THSy8VxXaP z`LEkEHI@A#<=(&q6UgaWQW?im9FYMi=l2%ZoY;|ouZgRoSY@)W8HoZ3G-mKu9Yd2e z2h!Qx`R;|zq$aSrl@Bq+rE1mkjcNBOPL23fkgGBlEQ5tFb^viI3U@*F{(NS zGI=yEw+t3_A@fwz(q=sNEIj;t(3kFzsDs`VqEI4X3u584ppBzdN;T@8$SlZ3pENYCMU{I|NUD5 z%KeN{)@z~yQJ-(TV=tY+C5AIM?!6sPe2rq+>Vxe>>1Jwt0hWrS`zRUk?(Vjd!+;NQ zb0N_D8KV?JTA7Mrj_Ss>jMVWp6{c|XkvG3Lak`}6Gzp9q0J?Kz1a-E< z90O~Z8r7JqdyE4VGL%bS(nh|hSM*xcuunt8Q5m*$;e2Kxg`hguWvs}z**jT18?9wA z%%=BV?*Ow7H%p&?u&7nDmfNBGU$oL)?;<5)((iO7CfbjVT<HTHyW;L~bFCW=KuOQS0xNscB1PkfhKWE7X0zB(GR_6`13d%} zT{R17tnsd2V<>>fNwF#4p}w37DqkppG0sqmXgMh}A>Q=@>y?hr5mn%$>dCRjYlU$Z zLRTB{?IstArYO5Kf>W9!nRnBj$?=5i8dgZjZ8h-};mzxo;UEhTApC>LPK)!$MtV5)`9=0- zpqmAJyK#&3GCAA{DX|1-2H91fUQh$DQTApQ7dySM(s^Gt^O zw2?5J(dwUqaq`z2Sm%(G&w^8h|EHI;jEX9J+x-kNbVw*2A}!qmNT_s4NOy?>0|N{- zFhir%P|}?uNGKuQEip(V-5?<&AbIBhzURxk&iQh_oNs&WwfA1nexAM7{p|btUDw6C z!PndG@{UhIamVhofEs~N9O;oDD4 zBl)oOQ6_KQUWT&S8@f@pwmTJh*+&Q?E4*0)=H?!5{B9%$T*~e$ z1By`wrg>o>=>Uz|UaB;RPPd(&DX1LMnbj9vhgMOjyGbpNW%#v?ovg$^F(VSPdgDhI zJ&H@LOpb3i{GjbDNuZs6Vi~Mgb)i#*7?spXh2fjWS45CLJcSvu6pj*4 zyaw?a$t%lEaDae_NB8QX30oBIrI~<#+^OkgrBq3BhxyvGFlvM%5bj+eqTjZ*@B5V? z=*~T$&%=(H-WFuf4LOW?xev3ZsH%zl^4>gOH22z9*22*P_7sIJTu+$5cFM2+U?#Iz zd9pWxEdyvKU`+$7mC=CqSu)B`@BguT_-v~a5B}K~MGBVU`sI_tYcqL>+Sy!($YS5+ z$M1o-LYYC%0|*=$hECk}w^P3Z6k3Z}0DQh3g_~=-`48}G2x4=YsQ_>{+R7rv-%HVG(uu%NT(Yfzz@+3?Z?<5cXHyunnMpPs0C`Uiv{zs}mH2@| z#`+`;5tQS2Lz(%L&RfhoiUkgoO!_FoVTdc+r>5$}uSNbo<0hL+85#n# z=NNjRv@H}~^t{2%KJ!;F;^;!Io*cBYqn3$|*}x=U)l*Lc%~Uw<0d9EpgRzIlnu zQyZOY;DC5=Yd6@D;TGYmvg+RB)eF4j!4wAl_+WPW-b$f48NzSI(Z~ZNRW(1uxvl0NGJ zFOy2JM2z(cnvisjDDSDUEvmVv>=0(0S`HC0ptgF)KZqU<7>et|Ew%#RKIW zj!1hF6y~pBxupWJ3E<@DB+r6H>;>CN$@!Hh{rWneeGP9B+HL?(-~d*x%g){eDHTA{ z`bg0Xhu|tS7FLl#fj=x?x3SzA<}BC!qez zhgC`624o+W;TfnYu-#>Rzhc(wUbXW@dOnuwAP?~JS*=C-hQo?!@*9WixBInK3+O)y z@cQ-jr%kZ!NOYAQHM%+-eYsb+;^Pl$ZJN?eUB%qCdXXO{K&1vwH6HU_(yBf*b$aj(Z)AI^l1$0?Qv&W>){ zP+vAc>9tZ+;|E%0qr&t$e4tLPQaD-Apwu71-af)g@pD%=6d?7uE3`&Fag_ze( zdwR0K4?w;N?q+1Pkr1uS5Eo3#=Ng0o{#%Nsletu}RA4W=BNPXYiJ#c73cNC#ZGhz2 z#JlWLe@d)d-KLUk`J_*^| zz>0miqB3nu=pfS+3gv3S8eu)3>{SINN0P`EsDf|n{8mmF%4zB7|LUt;IgRiVd19{P zzR@$bfldK}x$v{+0Sncy)^BYX7#gnI7M&J{0JzLvT0O~Bv&`BynChPn^H^^bt7p}b zs--ZW8#3=59^0(}!fp-LmDBIE=Z;zZY=JA~=89qH#kt%jZCfxF`B!!*$-3UJAVc`q zA=*lw>CekueCh43L;ttrK zZn==2kmyAn@>=T70X}xMDz^`z7j@$l+mL7Ahoo_wQtGoW-gSd^_B0$4288#JryOK9 zRD7n4?-Tjbqa*t~(S+)+q1)Idh)w9T(hwr=C%f;;ET6q#h@*x^u}^S^3In0NC<3arjsRFn_H!M zarWY9nfCmcl3`PaZpbLCv8Dj+1_+5}&7TtZGW2pDxcWT`(ss0ZPz~y7mDrWTpWTuV zN^yr%ALN%n%B1z(*y0+f^b@%!ttCMqelSN+H&1BE7=+duSvu_zU@+ab4nmkYbs{?5o@kw zDBqt)$TUs+u*lfN2lubtFnu??PCY!&;=-WoixJ8`AY33u$) zbvxp=CCZtC(O%5!>Q2-7oW&b2SRA>Mbon?l(ucB$8wVCC8JC*4_&~H^IF5Fi%9L!? zoc3A6#%zy3*pKP%Ol>7a!{;rGyF^AxjEfuU2yaDB`8|}0c6&Egc7AkibIB04ga3OL zxPE-=9a9tNoh{)_t`sX60jx$mp{IyZF{9CHh4?y=C1PC%V0HI@^{ICy6jd<+>{MZT z*(@?813*$CdW>QjpK$oqdd{8^t_7>B1ly{gOz$=`Byy{eDxEu ziJsz;Ev zU*R}hNSjLJX;p?m`ww~t8Bp1=vV=+}TmDwMghP^dHzXH(!~TXY6k5l+E2 z96!c2)0tW2t(y@#z0}zhQJ))a+*J?T`N?BSx>~XSDX~C)s_1!3W7xQYG$q20E0ddl zh)yOmI{~Lp*ZVJ8kvNkhjAOiJa_PfScn$@@e1NExy4h;qAe@=)j_ z^K-9&5^6*4;R_DbY+_;GhpR|yQ;Ab9Brgkg93&Y{+uEuFk$Dw!yxArT2Y^7QTkJI8 z`v4lr^5sPqR;CrYKlbfU9J{xl9&NyO&}ybct3?tHsR=nQ1+$5I2+b5zNT0CZt0e?+fgq6q_ za+G=;Ig$0ntQCQ(Dg-=9t`wSwJjv4`AgYj<01p9kjm^V%GAN^q<56y@x+0Uzy@ISkFgh}MkId_ydmhc$sN)=dQLf#;4V`e){ z!IM&{2lMqRPp(^Ll>PWE8J{$~w2{AlB?ZP8)0yGA?$z-6uvD^Rq?MA1edOQ;FBgA- zBc&waah3_<<#~ud!S+0-JfM^?;iOTu!Byz--J{vIdGdl<2l;iA*gO9LMR@YvINAY$T_k4xh}$S-MabxQPhu*GM^Y;Rq19QG(dz;EWkx!uC+ciX1gAFC#?0^qTN?+!zQaId~1z<`5dn!Cjr- zh^M;nuP@nj=-Ho5F19}Hn4;y^QDZ-bKcZb4QmhI{_Mq$hdILAZRDT(h4>)`3{2>B# zN7QpLY%2jv`|_~KR|V647#9v#zay z*&-f#I1BF@4mdzdymw=gl&`#y3=Ioe?l@FA-nt)O+EyEVZ_sLftEe8RzuFi?|MK0B zi+0U}&(^L=nqHL6pV=B5MP+1vYF(8>+1lDI<%>J)y#;H_gm5emyZdDay9hnsPt{py z29JPEBs%-`&QbA?M2w&%7$~)YMh6xU=tkUc$m&rzxUI}+lLfQg?p|{}--^uBwClhC z(hn?SPANZ8>59HJ%duAz{&W~wAku~7(VFm-yJxvGo|$$@6&D`X{GKLrKKzlToVq*G zd2IBmX&|SCUdxhK0`M))a5DL~gX=pEEw*D>ZBSSw>$poxB_qDG>d??6YE`{#K>KY+4nR1PN-Uqt8>ibZ6tY2^4f>I`e{84OPE2`p8MKOm3pXvz?- z6dMq#sj745e3IoB!nRUOdfm3#B5+~4ZL%L}&bpJ`nb&%;AivSk%nxb!o6l;O!x(5D zT4VdU>5t^5FccVcYKL;GCk{?&Pi(0R(tN){e=x3fje2e^N6bB%?dALb;p1|7i7 z9^L3=cEvm?GXq*X*aqGK|Hyu@@B`64nHI@pC@qeX-8NjwF?c)0TAqG zo%h#{83cD1h!p?T9qUB@RqK0|ZD3F)Cr$}#Q(8LjZRf9E_#VMg%I94D@Yt#I#b|yF z1rHK-M5rXFCSMpy*SU_3Pz3l8{#WMIS@?hS`F#IoMZuxwGe;H_zVNwr27v=G)`I5@ zIRvnJIVi1#h(w^~GX+UjH^N7)f=vOeDdzJqF65oipq$5R_r-#zNay8Lf5nHLQ_vW4 zF5Jt&$AV|Q??f*gfhloH4;AO>vWaZ;$Q4b8aCrDl0gjGfWHQ(uMWCni2QW;8YohgE zB=f`nhJyS4_kg+qe3V$}iqnVnT%>3bLD1dH*CrA>a}ZZhtaF30%@Jw6P3HFQKPk(* zdF4!6eX}Vu?_5bhNka1Ae^597Cx`R@d?s}ZfJQvqNNo}q`qb3UQ*OZ`&U&Olq(ef; zVO5fkp-oDE9(T$nRLTKz^v7m~&?MU3O>qZVw+{5&>$d5CUw7!RI>O+$RqIPXV2*gQ zt!FQ{8{;xc#28j6XF|qiaHa<~D8UvBJDjq5MAzZ$LBTycp&L`$$1&w~uW}I?u#k?_@?yEn0LJ+% z0%93gfW;+^sNy0UfzuPAQhx4HVHHV``8IGPV3xvr8o4z3UR4Uo>vcJ0sfPAfBs(Si z&qbaINpu$9sS2?S<@GJX52O8J>TJ!`>f26n`k^I}lC_quj+~AKk?rxnLMo$H8l=#wUy|L=iK3j>KpqJ=j zQPE{DNz9A*=vORM%FE62Q{y=o$d%%Mq?b~Yf#uGcC0=HBmjH;v@I$?@h?Kw)UbH5t zSy?XSl6w(eHs_*d3qpx@W-pnVxgQrj_dGf<2ISM^U~g#T{lZ%sRywCaQR{c17U->s zI8XCnN3ZuENrOD*`TC^XmBmzR!YDBsekK|lXrBl1mC~ZAJ+aQ5+T~2h+{&g7*@)i8 z>~BlUs$bDK^qgh3eg&1iX|dY)DNPgJw1Zr1z&AulG<#IkuPJRdT{}S9XEfd)=TGn7 z+|d)oB?ZJOXTEd4Q4*SdwX_>n&6p;M)qi-AhorGIigJXer5Z(BdQjeYBaQBmV&Y=- z4IRgbcDVz6gWM7UJR;K)D^V#MXXdpiW!a4D^E0K9;Hqh^CfLocYtVBD4-q5Xg zuSa&$%Z6^TQr@jse&;!VzE_U>3nDbvIkCa45e@rZ-$~b5xf`P_E~c&dP9_DVM$imjGo`tQLWGBXGSo#GA=WTdydPKQqMsX5loQD^l3@!*lsy@HeCTJzhg TA9&cTXMp-koflt}Z9@MS!xdde delta 22931 zcmb6AWl-GD(}xT1E-dcu?hb+A!QI{6-CcHrYj6ue6Wl$xy99^e!QDMT4!`^V?y09v z)p`4!p5B?AnXaCm>y!TzSlt3lq@li5Rn(LM002NB5Cj6jz`(%5!h*qII5;?Xcz8ra zL?k4nBuNVx78aJI5*iMEetrP~0YO1QAt51QVc}1oK8c8kh>D7eiHS)_NJvUbN=Zq{ z$jHda$;r#hD<~+`{Urgx7WU#=rx3$XLi_>^7qSk5Hm5u{f>TDhQxt#QhIwu%)2}1G zPG!r{=UA2teh@C8zqs{q(6KXNIkK;#8BcD~O=taGZ|T%5U!Ts@0Ny6(`wC^uCa7J- zh~&Yba18%kJ4Ap&&|%hkoY!(5>|9oU-jz1>a09G3-Uyf~)94mB@yLyowcz+D4p}w= zOdP`@V^}cjLJ16dK?BQ3coak0wE)iM5O7o-E{kYfl_}8N5&ZvdvP{*(@Hvr#YmY`u z_4fs>yG_3p`Q#b~Pd!3}xq}jI6if0`io(cxB6_>NXxmS+Vj==mf^hnS2T0@fs>0=O zX;e1o)v~?@nV7a5e^9F;6vv>-v6JXwZpx@i^S&KNU5_jhd3y0{3{`z0(#iOaGB5^0 zAYT2&%Bo48d2?s{8HgK|*ZIUk9w49{{H5L>P2&H8CFtUh}W<@Ww znRDX~f+RnTGxkXCuiL62K~zt5vHB&2*+X$(abKl>&wPZ`t;iNVxDLkQb?wN~#y78u z$u;RD_&>>Ock#1dzrNj)Jv&qRH0|2~lZ1*As5@hh(S`tym5c>o#mfu-pXJn&Pt;y? zDC{0Am%IIppj!kHo;RPY5ic>jCNA{-CnIVQjy}G8atY+ttr-`Cz7URWh_QF*t3E&6 zZpD|s_*EY?p-lE8jG)vm$xoTLA=~yvHb{QuY2w*+r4%yJ039Las8BNT1p*n~kBjp$ zdbJ!qI~#0lKq{#uZDz_KMY$&R+Y_M$rfRLrBjolzL{8#eH|LqYl)DnC_XX5Df!YnS z<}0+D9zoQNsFuLt3tvs&Ms=!i^rc#1Gw*!$>pfF!aEG~1D;bZJWd#lhI5Gf6e2CFV zCd{->D@FJ?+RR!%^`G?j{!QWK-@2LI(m%~{IaZaON(G!Z&?CCxePb0(TiC$?B5AX zOldjy(Aigx5GjmM`Xz94*TBi|8btBTnQP>Ka(|3q&0Z<8nBP}#q5+YO^3VJ7H5Chq z`1V{b@m(RZvg%K1 z58L*Y82!H8$lk`O?Q(}+!ZQnuJqDxY_%|j-;kf1`LACU>0V%#C^zv2GK(f#wUL-@~ zAY5|_pSAB>bn@Sx=!7a%q1`4g`O|v~I+WTel3zx*^)8X#e;hshoBhCD4kR2GxBh&U z+vIhO7Wuk9YQEPdUjDd6PL&qD5GMx$()X;m$UXa~R21c&{LC8|k5+nvT^5k9eawL6 z2l3L&^qVcVg}$(vD=<|Mh^i|&UcP-U>%)4*lNsT#uoQI->ntka<@@*kI5n${!Pe5ij56_D;&F=e1=i9p0uyz0kX-TnKQ(fR=pbFTx?YM+LeO{gTq)HjvB&M zs}p$!yq6&mu6iI2)c?W^E=AVx5eKPTY_&{GRPgnHxKmFU!p5UACML#RmF*3dW+PW& zeJQ(lM8b7j@B_o!VST54Qczpl6rmT5X(z%IPGNvFC%ATbXc=+-l@sx`R|X(qDbeRp zNdl4qU<`@6zQM@qM?1&b3g_(|qvdd2bX(v{)XVLkeA1+gGpM(q?U zU&fhqS_<@H3ZwXS=P#{D9kX4R)Qe8+&B9c$OA%<3-Te@g;(G@}H!SNCY?}ixe=DN|5fLjNF<1Vq&*>Ih*r-h7{jkN->)&hPRd#s&Px$@~jhn+d8wOD#QpVz%ym(RIe z`E;SYDLK|OvEa<$x)q<1bFNDWpEeYK$m}~KU7IdcCNybt*$56;f^->5micj5(q{qr zGQVbsOx*l(4hN7&&Aqfz8;C~!Q3ZY-DJO>!K&FQEy@pIx>{s*KmT9n) zR+#Ja)3!5nFtl)MGzp5Z<*QsY6*M2h8|P(&~qjVCgP z9=un7L*4I5Ez^P1;|U5=;Mabm4S8fL@*;lv7#wn5UFpyM;KxY$e;6OOzYIUi%KPxX z(1Arh{+9GfLrQEuX@XE)tHCkJ$8z*GhpJ_LH}D7ZA*^l-Wt&Rt=x3ShB>5aGil=Ka z^)OWO?&>yymK!R_s>#!@epG2de~CF5{`jIv{u5y@E9zfuHEe3F0Qj+Pv#npoG5f&m zE~6hZ(D^T8AohUwcGrtlkqWd1_q=xbz7ORy@5U@) zwPQ*_V)J)x#F{j^w#D${dJ`!AQt!9(Uavd|FV_Tn75Ad5?t}5A7}vA{zN>d9?`2{! z&N=0Y@r(|fmM(tnN-!{Z{^i5E-8Wj|ndp80s{Tr$!~j0{`=nJ>%CO`8O%cusNE<&Akf5-ib!En9ZhO5< zrH^_H(q3im`5|VeBLZzI1^nHzvzXnh)q$2cBA{6r_1Fu7e+r@hvsYE0q&@U@aGKWr z4rlNli2YjbvZ`bBE?cWOY*ST(;b02ihT@tb_{|zn85r7+-_$sGOq*c;!ah#v>vB0Z z?HV>gVwN@yX>46ftnvUFe@C7-R}*W>1Sw^nF}h6O1E>zM{nFn!c8)$L9?2ft60T-M zSAL`%?W{w24lU?En)poTU%j_;dtD|(U$?$nsjdsw2U!Tiq7i&`U6BT!fBu}{G`h?H z0q%2q3I>q;aroE-J)m27CX?SF$muvwdg=1rh=w}~P3TI}@x*1pZ$`Y#t*AmnA1hFS zZeOD3U>*#yo#qyQTPtY{Sx zQj>WPM9#j7XVkQ2GsQoFw?rxxLvX;iZ;f}mQE$)%Znd$`AR*%&!P5Jz6Ej^y>)ack zOtorpUACS*y~BnDv7Bl)-T#uHFW6fXn7H%OZFp*GDuKa?PICTKw^ ziLlo#{jk2vCS}3vS0s(H@l|9T1(xAku$lh0#hmKvJ~w~qY#y8i4Q(2Jr*~NqAaQ+2`X zO-CTP60f=V_9FEoaOjCO%Y1}&lsOjW9tJcQT1Y9R%)`^$8w$Y*Ke&%~o_ufdj@$%HUu;Yv{eivlm}T@P=B z{Rvqe;rCSMFRQ8u=6ImWDwAm#|4l$k%e5aVV)0Ocqc7vlq>B2q?a`BDL>#~+`SCG! zDN<=3F|d6CIq>!!NIh~0ct`CHK9sB zuD+BTb1h2h;Gg4d0S8p1E58Qv^T3m~!Jm~lliE6;ZdjZ~dxTrU`of=zf^{{_eCd9r z^3w~Ij)Rv8uu4#_7~KylY6nr6g-=EhE*TG{Z(Fu_HZ)DA#UOvg)>(UW%t%*sH8a@A zTPErX`7L388j|W`h-jb_1mr^Zg-?c?pWK=Ngk^&Y%BwQi53Ss!60kAX`ila~}XY$d@#Xx+-^xe}2n$&JgONIiPwRRlDDt&VRHB zwdy;Zo1-MWXIX1 zi^!@lBj5jOxeSd435jY8&XA1mfedrQOfNpV96b7y>!GB3&>^|nR!u$P>~FaPi#4K= zygRx!KCj36E8=X?+B~0nwFBmkViSx-ggxevrz(w`On)Kln|%Q|3D4OJ?IT=%6MKuE z>{$nO;6Ng`R~R{@pue%V7vbZtD-_`qts0;UTffN=JazCJTj!ysFk!w^Yo)TX-hU^Dc@w%C?e({{el= z<1tMPv@^kY*~1M+FtmD1Tond&z))Gl?e#ihd$zkBV`^bc^d+4@$5#siSJj2ch$|vc z;oxPx699R4>A$Xq6BflLO4aqE9Kb&TRo~{?bnzW|dysLh?mY6ah!jH0!aEbJz6#7<_o$l(6g7oEDDEtz$YB z{J;v$e3K7!bMs!)&J*A6#B1?{edj=s3xZ^p1Ouw#3*d&|;}@upLr1fr`(3ceZ-Hi< zyrWnG{IqG&Wrk0Fu#YodBTK7dFT4`&LLx}ia9RT=vl#0zrl-v@@7;%?*&!%?5<6GE zMzEcane2T}8hVbQPH1laA<6j_zx(7y;Ma%3Z32xigZmamNO%~`@LD7lyTc(Kx}0L^ ziZ*Z2l~UC?RVY!|sd%bqM4L!arD>qG_o|6w{d4oY)0MRESZONZ8W!g(e>IV{;8C?N zR(hgCO95pdzJvpb9TCBuE<;Z{s%LeVp>{Y@;x$pg{Q@iIoCfRL`<0JK?iQ+%06{D( zxWjv1(2`Ie)&GpW1hi3ek%N5L5VO$mS!2;PcY$7V%p-8EB9wkMVA4%^la%QlG#F6E z*)n+J>eW-K#0$1@JVuMneEVqOg0Ys|PuZh|@zqrDx7V)zJp3ZzK!$vT-Ezs#+bpQPnJ9y{4^{SWzy>xgCA#I?^*a;Bv_ZysN>Kq=-&O$^A$^V^@^W{lfl zsPWI;B30nI>&6je?+|yZ6>~+YWX2HY^Z97e@>CaACYOKCf+ldNA0aQr1?Yl(ipp>} z8bjeVt>b1JhKSR7{#L0ct$;{mQla7%CJtYq0i|Cxor%*bg+KZ2^(Ma~!>hc496V&u zl}+y8Df{a9BN)YV_dBHF*T3WFw3EL}y-}szx_Z$t4?C%aD$rqv3HQ!`t7wN3x(A^^ z<0ou#vR3Q!V~G;W3y(yA#z|12&wD<6fqFGtB&C}Tfj?YNO@H^FgWDM{SB^kq;&h(g%@e#$kh|^Qm$mVG-yro{t7jurP!6XlHI%wNrBf7h_u?t(qzBZe~|#KsiZL}iRfP!O)T%uaMUK>kJRD=1&I5qC!rnVgyuwq8#CS!ZN@j&Tzsn&9$o-E( z=vc{x?LFvGoJP{wJy$B-JVqQ!A6N>+2ZM>pjErh`%~*{tWdcAGx=ofQ(jmMBpFulU z$%|6n6vVB1p9|FmKXhIO3U%=rqDh?Rz&YS-MGAf)fEZzst^rpQFWg9~**zQBfYLLl z7^o?UOQjRKUiQ|7-6)IQ*}>B0-kgZEs=|CtWG}SS%;bL`h-|mLkIkJps;)iw;GIB$ z6^Q2_I~Z27=k?f=g2c{nA{hplYNP=2*lyMx0@WHn5QyI4vpX<*HspXvA}7Ted3$({EL53cKOMun zXL@%UsC3UUws#7OqeatwZsN{%!?q7syG~3kaD5} z|Ht($jC}&2x4E#Y2eu>+=$_GTUn~%VdQHNSc2E4uF|POWbbk2aO>S7xv+_VV`bC_V z1oA%3cn}Ff{zupw(O>4qBxc2fIg#ysSrIDBS+RJvpteTBwy}ixDU8G)io?r9g8xGW}L96zX3ql}Keh;S}=%4(!a*V0# zU=n)2bR3=IPMrm|_3gLB89*{)bNu8fz=rW#^t9BJ<_>Rk+b? zP8^~-6`mCj`j&ngsMv$LT{Q0n9MzvCSW9OAZ9r3zYsB&OY2oSP*E`Ay=`?@|q_Tao zBN^dGIgPMZkZ5#3q0LulWn~4G+2jtF&k93N|8!(vE!u8vZ@3#nsM5%wHeW9LZ=i@k z^0%=#kcC4}6D9FH!ex@{bj&Zm5X7+#?vFy;(k+NVmvPA@Y-B`L%oW7SBWS8lI9uUu z`OC1%0ZYg?6%XyE^IQl#65R@sm2AMtY^1c`7#Ych*n=H_y+#?Xz& zb2Mw6`6VKrzz~}Q@mtRN7@e)^C<20qJGf;Zl&=NWx%f5&ZP#?Gs?kWU(UnZ$PB9bs zBty&rnZeLRLF37!_Zs7(x5q1l-c1V>xh+5Hr} zi9~B~i00|`ebXlsax=+vJ$0+Zu>ejo+c(eKG%(KM{rzdwe2QCiS6hZmF(Y)>F{Z2h z^q&8)*|yMY%4FvTwJuGFh~}hs*-8csO4T(Q%_7;Q&)}K(BY(N1*7T_qAEKR*O8z|v zQ)&lB456}sJ^c$$vY%8FM8|w+1xBZRp6t?VN;tco+^^hg?RHNjcXA8g8^v1OGNrC; z9EpRG|L#Q16PAyj{|xwRqqPpJJTf?I-EIRxqdLz9uYJr+@3h(jfi#0syFY!W2or=jBY!)`GSyX^h?l&FE5)S##y83(}TFV0hI zij?SP^5J+LyaN=BVTi6GAEm(8d~M(VoFW$NT!$9u)Q>IrTu~t4qgm~7V#+F*@mmY| zhADQRI~Cz_cTD;d#LENYWx=Zm5E>z)&IfjwvD<(PHM+pTGvzwChA*ne@5*3&$~$lZ zlB4W~AC2?_6xXQm}GZD=Sw9>0u3bLe|uP=tBL{H+L&9Jg5j^as?>Q zRmsuev&7C72`f>>7F0ch4@CKE#cw5eEE1b&2PU*T4jrW^ynbePt+q^NIoHioF!#(G z+fLf=rst7HN^c~(SF{vN1GP~*P>5B5&JmF)N*iCidLq4Hfg^7w^+bwJ6j==vf}pNH zk6|q_gsv!%WYtyP#@2R}zDB+PN^VhPw*q{<8Zp0%7W7X6bW7k2O8WPDc&(NIsUVLD zNR^S`dI(K^=zoa3Msg)+i z@CQ!^F6eFaQM*3bq;5kG%Xg!m%0NXKn9KL`p-m8CQcQ14?hFN&xy@N%mX;Uu_JEnh z;n=4=;isLR>WM5e^jPt?WE?1EeKI$m(Ofb=o|&E543A(~NDE3`2%X=iU$Twv2zDer zCFfsqeL6dH-xF`(a!0sqVy)!4UZI~YbAGJ5?H4&kb&Acf=C|Qm7U=`dD?Cxye=vuQ z0TVzL+Hw03T|KO8rSF`NtEoqux{lH3j+{QVJr5D{ooM_cTKPf7pZ^=3)vpRK=1UqV zkOD!ee@;+FAkekHs4UVURAZ-Q-X@`oh?p;;Uc*~y1ZY)b=wa|7FX}|K1TO(JDsohS31m{#I=%iZ?r^gUy zBvA?D2EM8hghUfp%=9-;q)Vkzti5JI4Cvp!PjVEgR}&Rt(eZYH!l`mAvYUzfTzq84 zP?vj{)Ol@RF}_v-ocIeG_)kCZ1=xc}lq8d@J(dgoWcE=LP>Z z2A{$wU+$-GviqIyL)hV&do-H5Fwcjj(J##B494?YL&L5Yy>J0Z=~Mey2!;>N&zKCM zsDU&KsCAq@000F*PEt(M+qUqZ-L`V=CqqP_y^#YrF&2NWY*XZJz|H2_F_|33J)Zmn z@?s;nPYn6;;ZyYMwYs!{rEdUax;t$tk3BW3U;uP0eHoSKNN5muv7wJ_+cB-HHC39?oHITgDgxNSEE)+Qj!4}lm4)i>fa_o6A%oPMVTQ0ukOUMatv`pWjcG6 z;<)MU&1_9bu}9nzI$}vr)Ho33j&1KTxIjWpaM}p9fge8+hD4kpUkyT%;F2xTOlNN1 zo&KO@LS0_Mh{%Pc@{6d>=S-1U7Ctj5Vlynu-%Iv(MiE@`#v0m9^CJZs zlxRB7kbjVeWOHe?2_8c7O0T0|&*`8_QTWs_NIRMYKr+l=7ln;uXp6`eX>mX#h9hG7 z#PE)mYX37umO}^z5jE2X%QB%JGyrds`PpDO^e(%B=g=#6iOy=A0}l&|C(|3^Sw?aOAY3N^5BL@o& z;f3W{J(ykFjy&8s#Svtft0#9`jNpNjdC90CaTC5XR+*+xJEwu67m_1c4L;7*tOgoN&m)ApeHf17LV9?djQ|mSWCYpQ zIM4+9g1By@P!vSx`@+1+CizB2mg8v#n`O8!FZQb0)VWG#{C2U@FbHKFcYuOrwp-7V z^7-@L7}gK$BdE-BfI~Sml`ZO2@Aj~a^UIaea7^ppqEUp)cJ zo?Ufb*?U?URf|sLWgcE#G~!=BYQl?SWc}u>&;P9CQ|LlM&$8~mcepGF;q|D4Uy2TbIB~+23(;lSt2GTm8)a*QLA~rsjL#lJ%&KN zQ5AwMm+F&^*(Vj%nmbbo`z6cAWTR@8d5(i#ScNYu*U34N^?>Tz*Re87NSC++A}Lu@ z7Ilb$@tu(DL!Pd-xHa|Fg6N#lLAXv_7qDHpRKX z?g094>{RN72_|h+K{EbsQc%wK_90$vu_{w8;VnpsDX;n@wKJM%X#~u`!6*PS<;kF- za-!Dc6fR#%Pit_nXZ2!oV`Z3MCdV~GjD5yLJ8XO49n#c?K|nCJf?-KB$lh})^QZoR zN^XysMh8O#G}Y|g499fP#;-C}_Lu0l1x3Jsg^Q1M@bRHsnDneCeVlb+N4hQWx~nvz z;}e9PyU_k59N^i*wwohm0=*%}tlCmhS)`^f@_8CF&!SUvb!h^Avz}t67de!Fi#Km-C2@WN8Xes(4xqZ_OxO|w#7O-#Wy)qJiA zgEh}TPO4gEj#@DS76%-Ke|hwT-3B{sSau-6J1QqzsY+mud)>Eh9#kkcf>>{l`z%d_$WCyC5v}|9* zsKvCoH?CnPc;;;ILGGJ6*qHO>J2xafgIxo>u!ebiO~b3>S~2yy5-d>EgRr+seiK=An0q6%gv{b`PsO&{Oa^Lkwvbf5=!9Ir!(|iu>1k;+LRRjm?I&bB0Xnjv ze#}^${Dmv+Hl>_g4zwR$;T=x7yt2A!4ElUVEQ^pr+ujDPJSRG=rZ31|#cw0x$6o>^ z^GOwSEoD>o6ssQfYytgYGbKSdSl0nw^q@WDb+0v*rgh(bx5&ck^k5}okk%FPzF*-3R=Md>5J|3^hUDuL^<&#!N;`*zxdn;iV`kWv={o`~5C9Z0B;MR6{kOgXDZ z%^`~B{4ADeB5x59wL-|P+RuaUUI1K+iMFFi-sYJ}^56A3<{8A1mw-+xzGgV8D8VMR zSyLDL2DPPyXIW z6&Msp<%(w{kYrIjBW>1(W=@%ial4t< zoWeIxDSY~ck8DXukG9u&k2I70uebZj`pw}?@-4nYF#09<6C1`;&`rs|qhHr1AE00= z)yD|xu(;1FK?CZ4h|ejjnF1w365VdS@!f*{5C=PF0^%XC$f`hH=>BJLDc~I+=mBZI z(=UF8#uVcY(bRr5xHwyz!Giyq#NS^6cF}tbRiQe;od0-W-Vu-l=6?+TnjY|O*j4dy zwmP4}4OF2vcsCa#I5=ApJ_p^_0Qjh`KHhIgBd}GexLb()Cd2ihK;}e|Yvj-mV1k#_ z<^v?8S_nostZq~Yh&u}&p%YWY3d|5&39#w~S@wYD;qdZtSVXmO(g5H6KZ@4({@>Vc z>5RSr8~!&=*n}ifuP2*E;Rn1rz12|SH`#2N@z}iTrSt-zkUWmShte<;%%vm6Kf&TP z?XRH&RrL=H$=d223J{Z*<8J%FOXqmVm*2`H^O=8w?nxu$*RPVMaM;$XmjM5^&z{V= znfFpw_j2SI9aqCvQR-xROnq^_0Hr3_Fs!`_WL0tAIZ>L_cp&BhR&g3^1C!cfVRQwD z6bTKS1^iEi!Q~inp!%(PV=kW@fueFMVxsATI0LnhBu8drj2_3}+vi~@frJ{Q8TUYr zo&ZP}$4?O1d&yuBrHl+3NWqIMU~mBX0oC83R139_aEkRHMFRVb@Lq=I2)S9%j{_=S zN;nG!`R`WlIBvD>ajXoab7~P!5xu4ump?%NV_EAAq56S_F~l6@xpV{B3wtrk!pH8T zWrPy$@y80{%Wt!f-2c)bnBgL^^%hxQ$Lm5Qt;teUc{Ajqf;kt2awLnDj@_kLTzGJn z0CA&Qc@e^7ZxAAk?)o2VyIQ}MquiVTHuL%C1z{MK8iR9+zJku%KbUle5CwH?zQ$A# zOSl(#B69Q!RjyO={Yxv@6jx5oMdU2SjN{5}4liO5tDP5uINs)LeZL-!Gzw+RXBGenk{ql_3KXDO zC1q(>qiHFuJsrG|^1q2>IVNC}vK83UJ-cT))L(Ti_AJ%PaU*GH9Mvk&Lv<+J4-m_A zO2r6u`9Iy_J&@%y#=!4di??{AtMKl9Cj_AIh^jzu({lObs$lac!K$;=;|7yr*% zE6%B?73D=eagmDxG=Y1mE|~>DHGq$$8h02=s)k_-7U;z{P^eZ*7=pjEP_1s$7j^zK z@ZAIoiSFB0v&O8d!)d*4aHJ0tlKEAh9>UXcFn^0V~==-7Yn(Pe)M{(j5Rr71EC-gE%6#=eTU@ch2=qUS| zk?zr>IPt>a1DCCwIxwO*iHeevckvoI36vO|X0gD$w;TlVTc2?McRZ3X^DTFEAk&RR zp)(HtI6#B4C*73*%8;%ltgIAr_mJr=CAFxEc5FsZ zKrewrQa0G8Q+eBpIIdu%394692jCnkREMsR4w-SZCT53O#slkwDTZ`+)6MF?QSq5m za*Y0!FGN02bEZvV_!LSee@QF_5$xAe!~Y^yt#BvXyy@xx#tVlYaG1OK{i?L|mI^!n z(#`izSsAik4eKHWy=ZjaZ7FuJF-|uxfz`i!P0hBFOjrV`Prj+I8cIfdKLk^9G-<*U zaJ(dIwd;iJ?6r_NnB0C7Xt9eX2*NVxO9)bHTjSJy(VYY-TKdUfmEz_PLkRn&tV*^? zs73B0e=#SP^}Mr2D(SygO67q9R$bd|UY(N7?WWDMj9tR{%bQ3$o0%AI`?;pD3_P43 zjM1lbl#ED;;w#dlLFN-ib^u%S+2MjadcUxi$ymA~$nk&|XjcX{BrH?@A*!qWP{i)v z$}K5bb4>Wp0L2D1oZ*U6$hSPob~Y~ZWr-z%n?G4{2B{E5M;1L3S2g1V+gCXY6u|VOTCRq`z?wBL32E;PNx(@B; zW1RniLB^8J9$v`1#q@q+9*xMwdYg|W?uIYu7ln+4j1;~k@KPc`I6fnBWZ`Z2a7r2j zsl0mOvbWyMbeymP4=A5{>6Rf`$g;0;1ZIwZxqidwPa?n65U(&T%VCtbxTL7 zMgO2KsjEU?hIhCJrO5B6|IuqBV7#i$*33Mo2!+HMqL2*yRELJZw(1*Gih9oHs6fwi zBYm$EfHTS(6urU_ty(Y+Y*eG;HuWiknk_AAx!4k-s;5SO6R<)9sunWB88cEITd5-V zi%1(OksRjwBm@gs?F)P4?atGC{QjqekG(UdK0dt@LiU3K8}dM`>nBcF7% zUnvt@Mf_D3^PXMbEzu`Y>za_J*HbW>QOEAAwejOVT0^q%`C%E1P9;v*Pm&rfuX6&( zs)-&DRZE+HSi*EA0>1wS#SzT~Ez4_TN0rCa#Fpk`GL0^T=hInMQ@*lN-O&e0`YK+R zoF^1qy5CPFI7Jn#eoxk`rQo_Pnd}<%#18?q0$aw3dpy&fvUVGgy(r^SuwQs(3qU_I zQ9CNzL?Op2&j^3nZg}5)s8BvoX7yd2kfAMq!U$f#slO2`8vKg;CW{=q*k@pPnHKh; zS?rF=@p4*2>)gc7=rZ>Hw#3S&TJ0@B@j8^xObOX2%KAg%r#_lVX9xx4SSksSV)zFO zP1TgU_gC+7eXRm2nVCLaP9EpNHyrB;GIX7*W(e-4uJ30z69sRhAGG54?wKSU|dg5Wh7M&pyl0N*x0cE;TCAgym&v zQclcX0$Fi_L>iJ65Z%lm%^EyDagJNsU=_ z)Y(gYZEz?p8{beNT$Ne$h>`g!4Svaq%#{^aQms}TXSdK&ho+V3K{mJju5^v{XZqCZ z%Od)q|Q2DIyUxSUO?pHGg$2`HMCJE`C<&dwqYzac< z?qCa;v#%*?IT6id`{xQHo}Jh$i&2${gfdWQ<2BtY5kQK`0uk` zfU< zRObDFto6noL{F}a@3AB=?B*ajr(jd~)3AN*j1lF8FV}S%BeP>80vZ!UZp@9j96)*} zkXt2;2B~{w`g=_nTUCn1>)$g9llm)OJ{67nPuMZiP;3rQ?ZGpg3x#N}ajnPwLd>lX z?=Pb<&YFbmx>#Ll51qsED%FTAM8Ge@84GI=w%ayOjw-Epk8LJu-rvWfj*|cKM<%Wb zySIOnq83eya>o5We~g)Lo+?nfn{*2H_!NO#)MyWujqaWZgGc5dZe` zzq^(IGHlFp7TI;Qp(C543-mq13NH_ODRc4v0<9wcNvG)!o_vk_$Z za{jYyH#Y38$o5L2*8|t*aqC)Wct+X9%IyuOd42F32842xJqx zV;fSMIHx^3#@d>*>b3CR4S+%(>E>D8zr>iIx#p0D ztByULakv}1P~jn5;%?+VTix7nMNxkqJ8&9(1YG5TZbB+5b+xv_SO--H{u*J-b<0>v z;lIpUaGOw8uFfrut{Ydqiy_`ihF$P(iyuL}s~TwFZ?=^2%hWB-D8Atiu)d6yeim}< zgg|9#P}~#mZ%qh>U-iSfgCv(Ol%KC)->~3)dIS=$TIsy2T3C8hdE7LFETS@hsDMPU zc=_K)5M1dCyJI&s$i$GV9%_zKglaeLy0kf&K|ooyKB1b|Izn_ zB=<7L+yY8NKQcb)rHs6ooLfQ`xfF}AGt88$BEdWAkbV%3+!^qgwO^wMoVjZt(wd`) z&mu|eSQrataCL)Q%;Wl`rw{ELjR=eL$axnL;1$@%%xtoNU-9GF6O_r2;mNtVgx{%r zP68nd@%qMl*n<`K87@1EusnZ1i!i%0?_BFENsgDy0z`A*b)Y(rgK|KM-5czOu^);- zANF-2!!o)aEEe5%7RxO|TP~Q$)1ZOO1^4^Z5V7NwWr_t`?K*&z5dRR=Mmc(ITRJ7s z$P_sHt@eEP0tqchAFKR?_&!ZC!UM^CuKYb1^q-~YzD{oM;mPm5ljLX2a%LNjjvUl_ zEIqeH1dRfN+Ka6v+qo5&8y3>%+9z#W7f7Z}^d!q#Vf-I7)Z3SWe~mn| zm?}a0cSPWw`1e9eOc*HX326NQ_N^lfcHBFXAq;?xM7mV=`XjcGuK=}W(9uH_(14Cp z!z)dR5hdvV7RaCb>9W?SB_|A0r1)|pT#w{g449GFQT84(Hh~xp*@hcvwBs(2YJV}=bWpu#|;$7 zH*f9?=MNht;6RPg8g+z*y>(-yVj53<8Sq{uBiY>Ks#95UK)|ZrsvjbVE%f3iF6($fG2}EjdhEt zO7b?^&h9f$FkSYp@%cX%njr(>^83kVZ94+kH3pC{##&AoQJsUK4GF+$fIY+l=Gulw zp0P;)zftzgqnc(J@Ck!({EePV;{{@*2w16JGW~ISrz<QjpMP63)2+kx54PN34XjFnG zM2g>^CJE|5+5dT3n%*vo98NvJDz4!9De$~A?v=B2*hcRPm3T1#SK^aP#`(q^&!ova z(r#QkE|w_)ey@`24_jOnsUg`r#(cA<7&GGg<0X2dO5L+W^_i1R|6S*)9B_#y6ZTux z!*>CK1~jgp5vkJvFH4+bY-^$R|5#+Xxc(=7@_ndaEIb7j^dfPhUC|)v_5+X?=1pU6 z0`t^XjH0n5+Q1mxwD6zF9VoCahI{Z`1VO^sLo3=JkJB7B zl{`J8eQ$olAZqlBUMr()e`jDys3V||azj2n)_1D)j5*!bR4t#I%%M^qC3FFMw zV93N5bo;fnBDl;<3!w&Pe-H%Bt?EkN|1buAWbmW{If86hr1I9W0Ynh@jcMy0tAA-! zo9@m(Xi{oLp)SV3gp(zyg7orU&vb)w9Q=iB-I}whX$vW&syww0!PXw6m7KFbFE`i? z>8|z0%?ES1DL=O0k^Bain4mozy-xzytXP}T84*{|SrRF3|FXMWV6@=AE*G}TlPX%fl@?V?$Ow#}tS7{;+ za?l~$LbVdy zUtE!+4ppNMXh`V#mLMVFr#LxAmpl27He=cUYw_7IHS<;Fk5Pc`bIP$5fLM;y-x$yq zv=CTCtxm(;Bq0sEjn^{kq~+s|@2Q{-md%9X8`xF?b{XcMz4AwE>t37X6TCi7h#@i2(H~N=eP~Ccz)I3 zk(f4l_W7>|5~2QZgen62(tzV9m-?i^@Dh= zP)2mZnZ*DyTwE<(o$+!&n&;j!#?Z2$UE=;gyGz+BQ02Na0P zJclQu>f~n$KOmd<6GOwapdqM*Y3v`HOU{QWX2RaTo~nBWarj%=sni)JzPAXfX{)4q z!1G9+*fs6`^LJ_swM=;Wsyf8H4JPInZfJAG58L z7Srhq4kW|%=YYc z*>i^w4aKoIJrInD1i_h*RT_eCK5>qzVBBgur# z#`uBx4u#eKQ^{FIMHzi-d}e4yN>XY-nxO;)MCp?55JW&a1f-?jp;PIWZbVXAU`UCf z6b2**Bt;1UX}IIP>wdW(?pps(@0YXoS!ccbtaHxZzvqcL3?ZT8M*52V65-|fcR1NB zv{2lX)Tz0JKTt%39gJGI@P_D|zJ>q3qc^KyJ!Jy3vBF{+vx%h3x8&G7VX}}r6Fq!c z7_f3Y!=`|2aOd}Pu9TEXUCQug3#z_gqlCVKM-m;Z>TJ&fgC#b??dokEd#8x#RC*f@{tHsWlkEdCpw3jb^MzW3tLVuV22eg-n0%*=ee? zaefZhmxmkg=x(p*j(Vs07VVw z7NIy5qhyZi7?x=5-XG>-g`Z68hA4JAaM>QWHNoIm6_e27R)WLHk`v`WJU6~Z>I?8= zhU4mDS#B==vy5B^TTonR>!>6x|0LwI5G3jC)ZE&*fJ~*UIDZpC_F}WDV>u|FG9%9s zjnnOOB3B1_lOLL=KJ0X~XeAL757MWc?9YmvFzPkuW$qFpm8w}N{-lrSj^wWZiHBmy zZvD6KN@DnRAjT?JQT*_V9(Nz7JOCxC>6(cmJOCHqHpZWS#Sm>g((I+tH=oW5&4mQg zi(#crAo;5dDAQzCRvyYLJs{-xBrW2x4M_S)qmOG&t@@7aKwhGA(34WfGdznC$1E=@hJ>fAnIZ-d(o8*91^fuE`(n;Rz@b%q|L~^(d*%f z$4;vaKh;#vhv##=NbAXXQ3N7f@h8zh2cqc98g#+>@DMRkJ!i71;H)iCm-yos=KPW@ zCZ56=>0^K}FBq!A;LQT)gpUx7S7BPNNG9hn^P#jGOnhx9dgVDDQ@b|<%EU;kZ&(!Q z71Pxd)94fDpm@FZyP&@sL!&pKGxZE>`ti-zr7C7xo7r6Y8+67?yhBuvNCCw0h0=NmYHQX5%lz>e+aH-)TWl~L0&C%KU4^lCbWP05CS&yZ*s$2#k2R_L*e5<+)p^^#Ujfz9qYIl{3==Dw zIO(jyfmVtQ(COsHzQo#K?QJ24FL9o8T|OnKM5UxCU^`CsynUX%f`J|Et^-Vy{Lf=% zde${M+_y+u`x-*$i8^Tm+i{#k^l#64EpdHD5dK&54S_!2#hZ(!Z|~n?;aqg5iX8Y`3rCYKgx|Cdj|IGT z(y^rgf_6wV7(4mGHz3s&N_ef&d@?YqQ;-jCr>8lRzo&mI2UJBlu)?KK`TlrZL;0om z!KZWECI&f#hi6T>n)%wL5-AkdPtuEH%-+NqHI1+571oqzexCC#k<6wBC2OwiYz7oq zu`=hAC`oH1^rUj5@9h`-i{Nu_lXi)N+-b=Sd56`|@UOwm2iM+<+{D@Y!LI%cX4*#e z&cdD?9Iz5vR?tbukE6bO)LI$ID&J^BA8z~A_iVM}kX04po#pUi;pY=pLRxpp%ghB* z*hXJuCuWPcFqm6XrnBB)F_j?__;A{n9nnPoD=#yL!Cc*cU$q=a_!V!njT3dbAclws z?VsQiWae))>s?4#)>}tCL=E#KXFWd?k0vD_aT-yxOJ7s4@>!Nc3)V`AG~mTrPwPkH z^tS|YTv_cbJ+$>D2cZ3Cl%5Lo}|f!W=JIrhdWBpCNe&EyT9a; zS{08)mUO>ZhQV`?#=Ap(VpJ&6YFbR2?{b-Ttu!x@2IYRJDzVe%mk$LoFTAb#L|qij zeHA;e)6-_~U9ar@D=}t3e}2)s9-7a^&swDJk}@}z2HIKGgY;D{b`DqCAIrQ^Si=!| zvH#JI5yJPdUWANOqtDYO*D{gZ8S#Z5{(HJj%Ghj8UYU(jzAgmdZc^dES`*zXLtNUt^k>y6=jmzTJLhrjE z6@_)2o#|oUIOIQu*VyEw%h;1Gfl+KR5Ejwf zJO8bQ+)Ef}Yz{$jmrAIxrW3m>xYWhg3za&1(`|oao$_!f&*|Y6Tp?uAIEvn+f{-pc@M;WPd}-!v`Q_j=g@0J6yzr@3Ay>z zk%*ZZv2P_&VAORWI(mj`@;j#JsMpohyjyFz1CBtJWhrP>wISu+&w)tDdNaLAyf)rb zR|QuJ(@c2SGBLH5W8AxV5E=NpR;}vT$rDhOClbZ+r2yI z$ozW*k;-Sj5RL^dAD8Oziy!G}Lm`YTUB>hn{y}>+tJE7^Wm7t)=EQ;R4`06u(0#vV z!V?Cf$76m}$5^^+ADT(gVgW~6kAOf&F9rM41Np!~m|QbFKvwR#|EyIhs8+FWVmf*K zS8wypvK9JvlpV#~dNTec)~(cni6DAHzrG99@nogGPHs-pl>Yl1h>Rxi@A}ljUzwln z*J^M)I%TuZ!3bWM{shT!gEJS^F!r%vg9}JJhq}0dFtGbPWeuB>b5--1E9|Fja+{Uz zsD~k@&#>!zSk%4bC0dmoau~x;BK!A?um9}F`6ijvcn};6`OQXIY>wK&-BfwZ96r*; zM5&<3ekI}iurydLd3v(n58z1c*gdXFgD8%-{*Jc^URlJosiG1~l?$P?{16=v0>IgG zg(G^#%7_pY>|5}PozE+OW9r4kqqdxaWY1EGb+QhpiVA&%sz56ubmDy$9`u6YFu<&z zQst;rHhEz~-<^NNIflj(Zp;t$_M&VhPe^+ckut45bD;R{OCBp6&-opZTW5~)*LEzQ zwq`bDEiwKxw0CKB?JMM*I-V5nA$yALf2UH2Wj|o^c+#pyLH+ zoh)H(>Yqz#|K=P%(2!36DQ)e4y7X;p?+iU-r3JY%gmZE|oxZinbz`D(7P9inqCUB;vxCowc0i+EwyNu?ix&0RBk6u0+3_ZW##9+H~$GQ}vk^ zHakD!xY;)pv&X_*L{mW({^99JA*3?!( zNAFqnsE|j~u?JLN-55&>o@fV={C4|c3#zT}Sby@^vedX42bG?SG`W zCBD^nH!G3=K2I9-5%K#2V=**zS##3u1354 z0$(lNlkB@aAWKov*^{~-w#Pua!sXky|BiOEG>xecV8u#DY$KzDr4)UAf21)d?8}x3 zMcvQ4T~aePH2yAgbNay}{q*AYFo7fYnBVz!fbz4-GxLfrcVO9c)L7kZ7_fxm&B+`q zDu*ru3Rpx>q&)eZQr-bL{H9|GHo;Ppe2t_bKA0Wd@e)MBD6v3b#D1Vm-|bPUpk3<~ z!wPWO6%O12f!#tG*GVW6;DRTM;U@PNN&X%jWs%8_oDI&uH0TjvY?#l4uLEpsa;(<26=@}+X6D_+3?Nek< zLEaw1JiEI!Qa8HXwYxSe^M^cn*E()}_fEAbPuc{p-p}P+LLfAjT6G{#1l~{xUM3Eo zY^f!f7X+PrQuoiP$bs1+X|!QAPFQ@1xb8yG)-{pZa(!1=Jd+REsp!22g#!5_jm_!W zh{_4y^{zx?#5dsT#UAt=*Kc*@??x9!1AHOF;o0}-Q6Jwka9)tgCO-D_h{rQ*7!rtx z-t2PUIeDVJPHB1Z`$^g68@x>MxIlX)X`4;62DTiMoIf+s_;D0*_Y(-me86 zB^e{$48xIumf%esC^;0+A;5Nius9#q#S2mg8pHV?9Fc--SJSHNxf`*_Lx25DhtzHr z0iHcnicK$ME1=h_R6xE2)i$*T}f zb}y=MO*xf&sRgVX+~(Dc^`RbRH4XGh1gRUvWqBWISma>KMV~gaF>pZMOqlt?vF7Ge zsVv7=`PO?uuu^h*y}uQXLWai02Z)Bi>FLG+NWAch`ThJ|rblN4O&lpUZub7TZ}C(c zN}oCigxwV_d9UNmt?&JixP^N}#ZbzOPgd-OW3o;_bXwRgOM7zRcGO8pBD+^cAqzG# zH(?rQQ9C^zxN=zKnG}E>912eubUBZmOuO?9wyheX_ESJXZo2%vfe7A|&f6=Tsz16$ z6KLW@!Dub;PxVMG1#RMABK|UJ!Pt3i>@QKa-czBY$DJ?^nQZ;P+`uaccAZ{#3;AFXCobo7i8p}W zq1!{~>w}_4_jn6CSX{h+UUB11W_!q&g3|2SsSAn%Q_+q5jhOHUjh6hwiV-{S--QbG zIp@MkL8kgzRn!G*@g)$0T`5WE+UsR4LXuL0dPyI7?9VF7`#lFmFFPrompwNVCK8Bt zFz_Ts;bsHnRyD1LceS*v^ljySKVv>*LwbvJzTjkVsH!F+PeA6=J}Z0H(= z*!QNg0>UO9uF03fh3)hy(b=i%#Z`I#*f1mD|I1k~`g8P~nP*EK_ zVxPsoXzLiy&nWiFoz`f8_YXb#gbHx!DdNlpH_`IR(g**}a}K2YK@xl0Ra$!%RL1wf zJyv7;2`?(ox9DR=;&0=d$HMk26Lxi=Z-I>f<;KFJasRQDUBkVw7$RMtcHE&Rfa;?t zD{H-WS!^9iKSTp+@j4XK4Q#?(30_?AZt3vFxFm9(i0U&hBXS>U)0ig}5}|8-!tgTX zB)rF>`G%XMs#hD24fpVMJk;)2nIm+245WG5`wpr<7iJ>w5mCdLGAC*z2cCD2m_1@~XX`~ii1ySv5a*jC8 zvT3yL%rd{0&LwXW@aoZZG^!fU?||^h;s&?(JQRr+E2(v;a5;UF$4E)GNgCUhh?#Xs z{`CR3+{rYWh)np^yFbIRDTy}d=x>0&SC9}*0io}_x)vfnSjTF;u65mxl4|z2UUl*t zk?Xr&&UDqsA&gnn9t8oWK41IZ%18Jl@U~0SL3I=*;GA5t?cz%9SmQh@PAKjcGr~~p zhY3QPrL9Ox!Dh^Ng~;cgo(Z@F)zH)Y_T}Xh$!HIYZU|Vdv{4VyYa6>8y920Dx)evv zeF!LFYyVZxajU5JWR7V7!e<)Z7b!2UQkO!0oaWwW@D_fmBw?$RRLW>44d0R9z};4j zE5}ei^&e2I4`Lo;$Frq+9=R&lbl3cWICV+Cl%{xy3;td3NAd!%kyWb+FUp}@6U2a8 zvg{4tC-SisHr?V9^Wwz4>>L1?H1nnszr-vIrkU5N@XGq&Df7xcA>z?Xc95c4jI~aZ zBuEquF-Xq0E@{I{6D{T^JH=lqD8pLc@#-2UTXe{ESWc+H88gE0p0aHxygXeazQ-nH zLvoQ=>fpomZeR0_Dp3x{RW@-8J3ob`{MRAkL9%UjTtP)z4pl3s5hH-Wns|d^tiIov zs--45SKeT5k=$!=-13|uyj#LqAT~%}a#!{`k4Q}DI56sNGJi8O9aMD@{o+|R0hbax2X5UukNDAIM zYQ7Vy6$jz-EsuWw_2<{0j9@NaE_Z2b{;877mBK=z+QR z)8+=l`~JTd;Q#mhfBPuI3tsrmNW2|&Q-e|4&(yYM$>RNhByg?!a<8sllvP7QoJE1W z0`^m6)P+vh&|0^ckLZiRUykE@IHm?TWJ4?;6RhoIMW_X2`3qY#yv3SSfqzO%T@qxp&P=JB;qL@3DAE5llto42buI6Bd8|#YG%O4Q=Qe7$ITT))wt=NmP5d?v z-uS#U~ZCUIl?=da&K={Bck+}Cnt(9IhO zW&-e1EnW#EzEeY|MiB+R%c9d(X~S%W2U+jx zx%7}YNt@ta{m*}hR636|Q7W)Ju+(oyTmsGu=%x53t|`}cGPn~V!leiQ z(Uoh<^eVqf_jjLg^IF0`gZB&ioc}Ngg=(Y2Mn^9mm+!f+LoTWq0V9IK-ogDSD8;#UI;9^MThk468c;IArSfBg}0 z8A<2CUsAQ>K~Z`-|{-WvBLjkU+}|?=GVvX{nqSbLyv0t!pu_h z5UaB9MVW&d+Nh?a&d^%^5P){wlpPtnjCrNqRTloIP8apzQ!UDpgaY#3#OqKj2q_kr9Ln1Fta|rw(AVwJ&|wQyYW}Zz00L9 zzOl5t`V8k<`rT19&mHmwx6OUFfnx%Y&?0UK%uB|#em8mSH}8K@E#HKLcmpxT^kmlU z?>3L%_B_qwz;=5x>NmgLVD%@r9SJm8W{VzJ>X%-b?vVT)xv>p@ z)8Di8$9rFod=)D(zu{&H5|PQm+!#{ zm;hw2q@4bSRMO*&oT@N9{gEW5dj+L`v)}su%q~iBxXddO)=OuY;%^Aqa13tX+loF& zXBmT@59d+OAqI)-YOKj^ZyYq(QTiJCHEg}o^=?|Bq}5#ho{0DDda8nI?XWa5UQ4mt z9S|QO9AdTrV+6^U4Tr<2IlsEiSa;`>0gOp-nFqIMJarhg+d;tgoUjy!j2vFLJS_7q za~41nx^GFR_(9vZXp-}dJTQ)bBI)%6Tt#f~pyQP4M?cRcyQqbJodmmfbZ4*&l;90M zTYbD%gPFQj25c`0|ELP_TQ>6iDyJyWM44Ejf8+uqr%#^sbC~~yw}pYdvxd$Bfcsov zArgb&J4Vc7EMa{_ zvjLohZ6)Gq^*9rW1Gq;_}rnf8g@25{gzcz9qgrzdOROps_S&4?Q%_m5!hREG;fEHH-j7s&nW6i$gNbf`?X zBIjSrh36}gJgE41@rRY#RY4&LrFI|TW<9Wh?x}<&w%I-AQk5Q>qp!r&=7{pt*<@~Q zNFapTpiEy%S^^xjAO*@lHBDld%$?u@y)VfFPU7k@J^Csh^ZyBRfZQv7C>w<1Sfquz zZ=w+(db!z876#S@0uih-k9JbP2}iM=HR2@zfHAqs}g>F8JZYqgwFKtPx@Y&MSs zBo%pw2O92q_D|@)v2>_d3F5iuFy)(`I!^nI0fvUc%Vh<@kH5)jzhOOlN@ABv;DMHk z&hX1UHF>y>gfIj0KetP+D7rTR_qV4~p0Yh=kNRcKv#ar)E8VDIYyPT-jNj$=IPdU| zhwE7J7PbminkujWJit}-cMFZwSwdOeUuqo_yyFp1yO|mfEDnP*f3HEA(cjG?ATk`c-?Jv@X$SsuAl zM6`cF*~S9`gqntNTl$sIKcDXeGLq#Rr2MPQAszztRRDk(5dbgY{T&0|gl0P21%9Cg zp7XcLu}VMiKnCNwK+dbFYaoF%sC3}!231Y{t^N#yRcOg&^37tB{q93}N!t;feg z4W~J3=4dcr6(#2to~tiIuFr+aPYxIUawRFfO*zh3*wKC_pZKnA%C zSbf?(qXX_N^2a%$!uK%P+J%y8B(KD}c~jV>n>kwH*l)ubtO!;H4d^3f$W7>qzfssI z^4(2BX|-ev?Fyb4~zD5`A;B?-Hp;h3} z`}~ypVP$al4_eLK>Yb+h(0R_K@J#aIQRuFwENUBuGq&t(4I3QN0p>VQVlY}vQ0mch zybvF`GBX=@c(wmn;_}^r7Hv*GDb=!|hMn^#A&4^Ms3UMNE|EuC`P)Ls0Nu5Jo2-Po z-!hzgNZK<3#h5+F^SETa;wmV=Q48SOvB2>?qUU_d$pXs3pOVM#LKQU`Z^44WM!2y~kFR z^E$?wMHSzgQU~eVF)FcA(IYk;C-8zHzdfrMozy_WQ##+SW12j$w1pK0WzmobguKRf zCBb)%!&P1mcV*}Frm=>PL7(*T{TM|vekKxdH-(V4bsJ>DMQ~>4VST2@K4q>)Q9QK(;uMB3ihSW)|XvOZNTJN~$ zGx*h`UyQN{d~2J*p`I*arwv&#t!245#;sn14vxQ<;r z<;-Xy9wFpJc&u-wGjqFMEOd(v&!+~xoi&9U{rypcJ-?mwYP%acZl<)~Nw)>QhXMxboOz66@RBx6y8!%C!gHB>_W0o99Kk%R^i+R=2eb!&GEe+au}UY}xTzeqds4VbKbKYsj|?QIr3^^6DFOWSqdi8r(%i1nyhq)>|T zuJw)e&qDNh(aNOOPSLnP`#%+3Qj&RoV1fZDn@h6R({4HDQ5p8q30z5s?=mzHO5|6p z7t}Z-&!c3NC;)xm?&qiKvu|fXAp3hqmC%PMc;||0DtR8sxpWV%452|vinG$N%6q{4 zN9oPV(1d>Z&vFWI7v`V5e&X*k#0xS-LZzth@DhwC(mBkTNM$`N#Lg-)ed}0IKI0vG zkfo#jn)7?;SF0(XL7mMd1QVE5QHkxLJA_C;WE10#p8@a+vkDEUVTS3&3^Iv>gp_&_ zQz=>}-b8TZiU9qJp|9%0cTX9ZC7M;0)R`Q&s`>*8XqF0eH4(X{@^)&P)1hGU=f6-TU8}r@gliG^_)nwokTc;fI>}E@ zYT-dpmOUp1avuzk3~y=QIuk2uB!{8*qE+cb(?|DP23j`{dYk-PeZ?iFksmu88;iAI z{o}MrOi<0a8sE!%DrHV=2`8H<(Ay_gtyy@#W9IHrtkbOES@#BPLup3)#6n2?g)WKKJ4^PSj?{lIt{yyut-1?{{ddVIb z*A6W4k|Y%1ND_Vz!`zF7OMQqzZDm;|@TD?yaSk33N14Ik3*t9meTV1DTd64Vjd#RY z@cwo!uQ_)wtP(t7wU4xg=B=@+E|b&nSYqF9$d)M>3Sz`ndj4QD!_rNNGjdSE;-sR?Yla z--i1p-%Fuql82DniomTo;jt%&XE5G`mzBuD+vypqU};sVN0}R?0v4ik!Vxx(*N|O0 zv6`0f52imX#FM7c{|-lgU4G747|$y;Je*XsIhDxsTUGiU{;`c5A*B=*aZB*QqANhg zsyF)C*iDgjswh;1mqLiPN;7yQ8|6Z}r>U0AD=%@^t<23gt*?hK5ON^x9&N58SULN( zYu3C&&W+JAF=2s){O^ekbcPhv9Y$9ek`0x8_m=6`!7;TLnSDi*ty#MIXc&XAQ|u~~ zt`Zmg_(IZxGtO)Wm&A_Ujl0^JPXxfiLUG^>mHI=Bp>e?rVwCWE^+_O1v!vzQUh~qU z-2KJh?$$G_-5B_?ET|~|0eKYv&z$OV^cP5jY5={5_bFh|rxOLAZjI~Q355gMu_5W7 zNbJ0;X^2$HSDRTs>h_AKYsP)SPO$VR^>Ud9!e0-c<)kBnrQ&cvQQ7^Qen2%hSbwh6 zp&)*BG?`&bos1u9?85m=3U8qsbXbl;r?BktiEw-jYC z-(-Zh@ghFYn*HJb&i>` zkt}#&zovK`kpQgSqNLt_C%G_8Lit1r-+otupjX?)RL*wXU6g@VTKvg1UYgySrilV0 zo=$=$a-d=3%z4x3<=Y%M6$ABO-IhZoLZX640n7(kV=8(0g=t+-AQUw-F}La~Nhh_C ziX;CCNke8mlK1a0fX8mW#)E^=+Ba>Q3Y6NbI;wD-e2jF;@3$6E94^;fcI&Q}$=+=vT8V?{|G-!MaW0-kH9jn{LR`fL;$b zcrZKP%82*@CBrY7&|XOh!*h;uJ{Xy^8}J?y@_-{u`$htQ9@lneW z3Rfk*u(TYN0wK9R5rzZ%Y`B@M*g}+u$Gd$p4+YzK#=5w)GT}}Z3W%NpCz%P#r$oRh zu9{VZVPhMB8F?SqL#79Gu2+M0YHH)MH$A0$o|wWlrMy?ak-MshWPIF9OsQUYHs?+E z(M~vsae8!hyxI?(U7$F6wkkN5*v%!#ry85G!0=&V?29KiW4w~gTl`9kAXyHX2t@}P zGQVfsG-~5+$IbH=9Wzto4e4A^Lx}1`G+p^*47UlOqhhzYZT;l44`$@k;LWs%vwiks zI7$*EKf3qAYwEjwlSNk;6Rmi7*7U8+I-XKxg!F@v1ybF+rH^cJ1Mx<9N%-iatPA0_ zWM*J?iI_4{24iW@Xa$9c5{*+KVlUj z&^e8=7n^P65PPfpNu{&%lj`D`oE-%Qz`&}k_+~Hp&3KsBtuN2dzuA|OD_q5b*EjX5 zRo1?d3>|m`wkVaH5>#=KLgQ=JBbEivONz<|+&?y#y{vhXNpEVWMokOw`}|^-DkKt? zxtU2~-Rpj&PBL(@yOEEzM|aT}iJH81ff;*WVr6fkSIe)Y3&ODR4)7R1NYfGa0LJZu z5RvL>LH?3Ja!qz%;FY3e3%vL4C7pTs_kpaTeM7Fv27=vZ8H5ZkOGZ;-D>k%tm6y0m z+o66G3pxch$~FTomK0-=Pn{=$W{&JrD%6|TCyny;4?A(s=|c3+A->7ik2}%G9d6A6 z)C`|!AJO~c3aZ0i$bk~kR6VCS0UoD4Ec@c?*BDfs7Be-@9(_m2OtEs5j3116zo4{z zVl83*JAO>0%c~%eI+MCYp9A9SG{9TJRZo9s4!ju(ZDVKpMLErbRgfHY5mH0)vPS>R ziaNA=4tw$^b5d12g&#UMukXAj*UgL>re!qb2@_GsxqdBcwhNYSD*UZEr^AqL zc>Ul*`~GU=t4}*Ry~xt;K|t3l6OibrsU(x+hOVKBL$l5j>U!KERnLdrmN-%OsjCp2 zMG;=SPvcpFZ*BO$*26}Oh=ycH|K|72JMc!jvRtEZw^dE$!}n+r(#$H;;V<7WGL8WA3lz^@6BcWR z1bQx`_L+}`R9Gb8QfjBbtzU<=QoNK;^3TTdYGTw|15gT!?=G;|Oqvh~QYaXOOEhjwTXLkjX zpZU)2D0!OEC1{+pd`oO7o5;DwlhcPBxd~P67}WYyr+*|g_?8KxBxjS~6T@RYr~6cn zi`{(9y24t^1N!e>gNBKJ36YUz!FplS4sfvF9uQM5JvhPY+E|s?yQ&W{DvT6I(=lwpa zm{@}!b<;xCem%N^)y?23A=vFe>U8~eNWj}gs(ly2ncvatuN+`P(v)Q~D!iI0doWR` zKUHr$E=aW=J!u7?r5}g-8srOvut1v#U9Sk?(!@(T;_a@(mJG}FF-x1yNGevKMKV=y zZb!QDg6hN132!HQuwEvbD}Sfguu7(P$T@C9@xGsXFZ3}%yU!z+DAAV0ppn3>H3__* z@ZmPEppT9yAhxBD>vx@Dt99NLdyQNXOESr!0o@BGry~@=U`S|Qke=Cgp!t|<5O4XN znrWeO`^fcY4-Yh3>DVBKMRO*m!zrF`Er z*Sh9Gkwq3e`6a6gC))%iBZPqO>4%#Ujh*>fECuqD@F+o*b&#>vu z-$H9Ab!{D~gCYa|zbl^Krzhz*u-^GT*%uay|8kzQ%=PoBRBd9F?Y^M%w|TvUk(^xR z^&BwQDJf{$9JU8@xRTd%{K66P4*?3J?wij2#q0h&Buiu~E|8%OEO8!EQutc2~ zmxJsh&PKwE1I9xIGpe2lY)9=@r9!T+P7{ z)a)_Hz*F7NrN*L|w^y=zVRX@fPI#Q05HCj^k;lh)7<$icS45_LHQ-?=>n;)c+!~N& z`KYI;2IDze-(4Ac5mo|SwOti9?u5{xYM#;DQ z7snnsau&Jao5E|%e%ek|Q?|k$<+yxNdfF3bdPc#xNP%zJrINDikPgT+zL9rt)bX5f z(44rEsXR6VE;U?QX#?c|B$D))9S>jyzr2Ie)8xVfsnV9lI}0k9!34`{PDvAiaUaf} zx?~n1_g6xyr~N5XhZ0(F!F0g}UV~h~Ov^GZhcYLu*hR-YM%>6pLtMM@$u`9I89l+v zjg};`l_>Q>8t_v49!A+S-oTJz^y?2LRaN1mf4;5jDbpE^#5vPgmlbK9t^%n&2TSWe zEck}6MCn#yR}-DvagLZ@M8ctV8E|0OBYnZD@-@D5S8IUqX^UgwjJPeeoKOk+JRX;8 zU=1O7Y+LJ6?xJFr59AW&u_Nd1uSX)e%wyfl`nQr#a`kpN#dbiUlrSQWOX_V|Uz6_) zI>0V7VV(yHIy5n`*ow7MCIGj@qbDATofoDfD)s z$4HAA(jg+k*-Ko8tD+X8pvBIQ(@arwHVH4Z?*<%5RMV0iJb-{2;N)%=g)pdP&(c*#qVJ`ZWn}Rx_ zE6BsU6iUtr19laCXL~%<@~g$?W6iMk>9qL1q6;U*L3wcIT!X6Y!PE-q8l{_(R2t<-E=TAW#cC9Y3$F{V^UW({0mz zy?k%}Q`#s6v_;p8y+`|eQ>fZqdIKu?&eUPH@TGZl`o;&%dz`d z8q@2@kN0(ev`UY>mdoEE#aA$|5$e55iJ@d`?R5xaB58C!HVtl@S<&}d1y_P&2SX>K zXHA0Xgrt-U{Hz>_Vsycm=)O4hxGUF>90`fj47pGZaCXEmyB!nEf^`;l&#IqoBlbD) z0eYl`%a^%d{z;miE>m9 z@*4R!7rFONFkJLsiLtKw-bR0_4b$pxnMXQv9HlYRO2C&n_r=9dB7DH%YkKF&WJFd8 zk)f7^C`pmw5JgD0?tfD9p2{#wlXDh%^hjcv`<^eJ&FsJF=4uM+B|};=o-f z{DZ^u;Ii8i zGDmRsM)VPk>cjLrn>Tb02LFx(^8(XvXl0Z#qL$7`vgu4!Pn^gOdAvhFPhRe|Q9!Sy zvdtTVc=`2D{0uAm~`l{w=IbASQ$ld`m5>NmksqN{6avXP4>#7RQ;Sw(X< zXA6C5En0iZn(qzI%KSL4d6zlKy>ib!LzzxT;yy9a4GU2Mh9tcOeqRV2@R!3o_9YO^ z7~TF5gzvf`pX+O7T}Fv-6&eqJ$n}~WihSE=vngkK1U;!D4|hlVc7+Mz&PZl*GMvNy zq>O!6!{#86Tf*X(ZhIEu3=KkeFJla~)mbmHk=W>2j`7fTxM1IWoT8C+orb39c|v@O zlVAnTOzJ(}blJ=l$VxrHD@7{5#Q--7o*5W^^7|f)@e$$+(l?0b|Kl2O*POI-1I@i{& z$7AZZ_pBjN)tDYM575D!Ntbp%-gdO(%k@#;86nJ)r3V?*&8|NO#KzIoIDEvblMCC) z0$-6@QZUPovb%@5u5fzn>1`{@Ec^E+w!ABRT7s*l>yi=Xn%!k7yQrk` zgOX0~X2Nd`-k0%Yh+Zu`!}0i-lFohI!WZfP$v*)3u_x=DxGgz-7h3k$VWz~9n^b)J zsRB#4Hzg?amPoJqfRofq9WT}oKXZ`<(ZoNiRfiSyoQKKrlIG2#crF1d*4ieXXX6n> zuA~==<<$ZGS1+B&zyX~vK9lC~p>q`XNFpgvS|%yhtW*dGtuP)FIBES z3#s`&PQN%F4&dfpy%&6?dMr|_7(qmnhY0dcQ-4%&k0>XO#S8>Io7Qb@e9A$kCG%HzHW%t9@x^;TZkiK%au1%ccLp!U{1S@`mo=p9vHITpbeWa?@bMwC zrqJOg0qF73o^nW+C{H7fl-o{lG6JQs4|4o@;kG)Z?C(CeSGpq$`b8#~%xLe;U zv$kFJApuvN`w^bg2lY428lY0qrn-I)7ov+alLXuR%p;zn2ud`rp{@3~R=oZ2WGXq< za9t}40d&P$uhaQT+FiZB>Pk5V+E#;K8%*z{8G9IG>m3B5`Ng=CtIz*S7nlX3zpCLo8_ z`8RGFB9CIU*2D)2ywqLoU{Lwe2bCSESW(gWo1O3X>ienYfEM0bLJ z#fl4kxsKRE{3~Pp0ks`((6GVa0INF(urc(d*@x)+_92Qf6D|I7SXZ}Ty>7Vym#E_8 zNTEhLEZ6-4+6qc5*t_eA{K>HY($wafAYspZXb6X`CU8v$L+KPlov^mso}y@m`603G z6+v2`czJMSpNM85zg9e4XN8D`4~y?wS$;7#G9VI`wtQ{pHo=GLwfQ6Ns#0xD_&+VnbuQD- zGVq^LIY-z95T2b<^zakY-F1S4??)9~F8#=|@ zZ!A&R8}J7*k4xLi=edEGu(jN{uS0ctl0)T6p6~~*G7=`6tjSpLPAs^^Bc?r$)KA0x zLjQp}iuwDv*#nx%>v5?dH*VS(Va-eWq+ez*{pQJs%rfj`M(@Kx_KS-eio>!^Gkr)W)AN z7kpi@7Qj1*1ul=vWn3|Mr;enj@8`22fB=VtB*M+~`;B7{USTu&a@r$ALKr}IZ*)^| zU#YTO=}#fRC{REK{75~8no*D2E4vg;j*uy>)Dv$maHvGOFKC*Fume8~a!-It|7e1K zM(#WFuZ;{?Utg0o@6Q_pUv`IoQt3eNE$x~M4*KrX*-UYv|9aM|)brgQDGy1{^wO9Q z&YN!pwFF1MjDLhG;c@@i;k{PIw@nkI%02}C!lf+b_DL6TwEPTuXn6B4V$887_ial_ z7;dZK2=$1OfDYkRihiIogbvZmd6C87(b8C$Fyx=g%#&SQp>*0BuF zYp3ImE*3y+J(l%vPjpA>4 zEB9t36L@0I+8V+Fm5Ulaw!rlj&#^YQ<^4v)fOgF6~gK-c5531NucndfL6Af1I?(J*b_ zvcMr6vi^fXb$7!#WM7_Bh8_fnt!rt@YJfGsgjq1rUCl1^$-zw?tU}w1Zw(dm?iu%f zy#j{yjNh64p*LIU!5dCU!M{~OjOMIj-*kaEFgm9l*c^R&ll?jEs)g>0a}Au1X(8YECXmqfhS_8T`F;I26_e z8W*EJxv5PqfO&fv(|MH&f4F>MzG&`;{OI48m;HE5rx>ifv4+Kqa)jne)6Vj81ACsN z6EyxU5E+MQ89trZaY6nLx!#rf(k)OFnS|G)$8?6$ReNF#^wAYSAd##IT}MGaY`kbz zy1(V#i3H-s2WKJI592>RZ85D}u~zCG?_Ga!Bj(VM_zkIaRICXpnW$Jf z+5b3Vf?~_wiXj>PT=TFdSg%$O6(n*9e>h?jLjW;d2@_h=)@zX;r=8Ip^V6w#%!;X8 zH7omZuI*?K;e!A;^8n`-F_-05j|PhV#O8bIhjcGiarRd{N;C=7qGzbs9&0L>j48HS0D#M zI@oE&(GZ9iQ}7bXaX-D>K>dX{hu3)LLCA|sN-cs#;#8pdsl$A6xty&7il3ML-1T*B z1ZmF8M%nM>w&NZlPThs?^^TvnW=$tS4#|YBvRj>7U#uBtg3UNGC4?~#iiX1bEKJAk z8g;pt%9IzN4${%if;3ha6$*qiZ~RDAJ0IqS7@+Y|o+ri6Q2g};#2rshM}z#oRa^-t zc#&Uo3Sf-%{?UMCKpnuc&!%|tcqsv^?rR}A9 zI8ci43G1X%h!DV&Jr>pVW zduE5O-}Y#(RHc)g4GL66^%+l(% zV%aqBwH;3U-H|MbIWtK5G!~yeH}>P=V>^IfIW&o_$Dr&UKC)pF4@trQ)XyMmT!$;| zz<$tCvEuhq8B}W~s-Gq`)MRqXN5@-S$d z{D^U0y6iNw9tJpv#dxO=UFT9K){4l12PGs3@ZQmX!|nZko+kLKJ{lPM46(A)Sp~@W zzxkliz7v(A7kpbJ^~Q|vs%f4#P7JCPucm*?|HbWnqUsWqV)L+C@}Y zGCayuL|3oTIely@Meh5hX16@7Opm8OmvXz4>4L63;4h?bdrB#exH3wsGXB8mGy7|< z-8+XT_zFEO12VDIM!uPQad!Sn{%3&Fm|L<`k&&$@d|E{9CmZEwFS=Z*TTbw6$UteE zS+=H&Oy>GU|5WJpQX6(J@ug8CcBg<{m59`L&~3@=W|Haa1+yTbIJ)!yvC1)hf`e_H8!w(S6063Y(%C$@OUeZMFbt<- z6v`Mpv_qM}7h`(|pY9?pR~Tt;ab4+h5iFB5YNL&>?gaQ%p^RMLwV9^&V zJSP!$zhrAEK%bxNyfUQfHrxsD!nWX-m$gUl-?3=Vo(*ft@~A5QhBQh+MS}KP$b9F_ z{y4)gH?6emh8Yx;jKe0(ZN65wdjt(=!fb!glh8S~1sR2Hly*StL=WJj;2+6wp^!Qv zJ74^@-|=UwhCKWo^8hw>*TS>kP&;IsuN>YxaSw?r6cZ6DFMq7^^&6s>Jd0>!o-rVH z@1X7IFZ+xU5F3VJlaAqvg*5gVPY8s6;n};H<|-L3@Dv!Gc;w(9|8oj!5<03K zayucZUn@yKo15B{e)&7v13`URhR0bK_`3>DS6D}R8(P>I`vC+Abzd8>C-*L2K~l(3 z=U=($|BRRG`3!F?e|^AM8Q)PI5|jAr(_8L&`{y2UDneQh5pvP#^dJ=Heua0POup%VK0KT=15;BL8x3;X= zfp2SxZF}GXQ2YrrTL?00p|m;F)G5rKKUY+kl&*pmymd14t%c%utQRFS*2Ohgk{`<{ zdNstOTM;wD^G7d&AhVLSWidv@uDKz6&bFa)A`4uR_;4Fb_Sa~+?fEsx{$t9xo30qd zqXnATwq~7db9zxHyMSwsN~DUA zlFqe;H8`5$O-LGiZRQQ$1kM#wYW2!3u3N)F?sG&a@Q(%K18%?dI;FEiM}SCCL5Etv z+XjXxbQV;^J;J$x5ZHOzw@~k2foJ4&vwwb^mY|0o+HEf;61s5;M-|ItT zYgDC3(CnEV^%KrPzs3;jv6iAS&f`ZAX7oQ4Wxx6N`j`QPQi~wPV5CYxw);e$ljke{ zFE}3oqWAg-$|phJvC#oMA9q{bQCBW-B<)kM)0YBk{RIb3Vi=wl_m~D)(<7!J8~b#Bt@sm}&NN6oKlrlLQaZA3BWW(xN`(_W@4 zobQaPhin`sz%Z|S7jrPs)B_WS7F&@B@a9)iN0@R`aX!5~I4J?n&_oAa2#bhJ?Z=d; zi6wp4+TJ&y)mURn*Vs^0$cBtT^Jn^*Xk8)=InB{n6X$8pkH(Nhh1@(Cmxk!(g{yU$ zb7yVAQ#E&4l<`tj2E>WTx_JhRW-%p-*ebo#W$0~2+CfmYh{k^ zmTDBEm=Os>6t^4$AoEnOfDj?O@i zHfi(EKz3geIa$LKhepx<RmUJ zw`O>Ls^hWayxVZ^PsjbmE0Ed*Ap0LCF#ADPnxx{II$3lYd)Vf`nHzAujfc}8z$M8v z5X>Lx?%me19hK<3k(+o8IOXw#K!X6<8d7XJ^~;&?3HeIH76F4JR%SrPjDZdZ&A5QM3hYW8d|%1g_% z#Bb;m;_ZaNf09do4!LLJQ7A$!MW03YohO>JfMM!v?7Q!yLp)`A?0K3ghq;^Q)~%Ef zL>o#2Ynr(A{rv{x^Ya&f^+%9SxX!WQJE+L*dwpCBC`7MlmFwMeYCWF2fR`A9Gt z$UXioE!Fz2x~>Bd9IcfIUv7qp$=oG6>-U+q5u+g8(ykm$#4?$u>i=i+tk|>2SsSz% z=N0@}=|#*+)bD685(05tn&X-{b;87=TZY0WBLSukwJ6lihQEx0w;i|rtMVDoRZL(p z{$q_Y`rXHW+=M-RS3XL*_XeNrxj1^qal%0ea{z=rFiTOGBU#u!uS$wPgc7G{rsBw) zBRz@7?wz``L@*oyD^7`h`_pf(gbhJNm|<9XJs*y`EIHA(nM(zHt74*^zy@7lUO=ze z8o$V#y0}<<{`sLw*a)$lLQVNcg-iJ@9(#D$QmkWbH|GctR771WHiF~1->%C+H(OH?_l~BPhSm7eq_kMq|UE@+!+W+YKh09_dSK=&l=GG@L$}% z)pYO#xGEY3qpsl;(-b!GX&s}1p3Pzm#=>)Y%?0{dd9hF1P(YDa z;&e+hz#BP*TG^y$5o7P@$+nj%Ku_rFyZm&CpNkr4YmY4>@bjoc;ogw%cn`>Fk=H&@ zne%NgtAPmo5J{+#XQLKHwsjkxOOWzE5IllGhH!d+kgJ{qh8+|!$vE%3j|Rd#Gx)>_ zPp^#HN9<*3X?fq=M(R-QDTg=we)6~=xi|v=;H!g~IX(>B^&>MK_Fpi8B`Wi+@6EOk z{a2Y)2Gx@Q2DVKBdL#t(|C z*D_{x9YP_xj~?TXSDk6v_Bg`e;?(u)T~sm=F|NZRc<}jWe6RIIiQS_=8h`Lyu|E`F zzc8qqhvsnnU3~W_wW;J=BO)l;e3gbHO$C0$pTm+!Sj?lbrj6}1aDE;sTf2wNkXMu= zVLZ#6D^V7r=2JB zfz$Mn4GAnH-To3)QASYRf)p>mjA85P18R25fx6ZL55Eix$I_u-Pn;HcPH*S-{7;!kVL9!^6n zK3WLlHkQ5@nnYVxdA@E$OfXLHNAb4X!p;~VH##>|q5DQSUFbujJ*aMwd%_{*F_+7L zN`$|TMp#byOI``bOCk<@x~oR!@hl~10$DQSBDR(Z8mWU|<)n&nlddT#Z-#h~1b)c~ z5jdTPpBi*k#)II*Vyr-55-XR8IID3%Z>%t%5`>}7k#bUtxURNkvdlixugM2Ay%PYz ze&UU2YyD}3M^JSojiIs^isGxOO?6xO%Uk<+rbJw9Kz6D+*JXvYccjG?L6DbjUj4Ns z;C=O(g0c5+TmL3R-muNiy(=ibU7Q6a+7WsduLeJw_0uT)`ReIj!hkbmW40jwIz0(C zrXf+rQ0CZ+asjLE#K!dNFIqVdF)KiD*+~b1lohC{cl93Xy*lw0>CxRnAEbZ9R~0_Z z2=T+ymN_fKtvT#32u}Xp?Tgsj!+G}RWcypgo0b34M^)+%I-P>}tA~PLon30jEA0Mq z-;i^*VzndY)WL%`Rpilp#aP&YG|Fx>BO3Tug#QbbL~z`Xwk}es0oCe%4<*3aWvb%8 z4I#02CpY=QEgElXU9Ilhd)@iJ!#2qdqP*A}iseyt_j$8V!a{^HOdvozQexG z;Zfsnn>mWT?MVLK*PRqikD!_-mpWt9p_P-%HJyVsg&b#Zse%Q{|f)LEI2rr?!##}4PB#MQs`#&oD z#)Eb;1m~Wd&X?xTztrb-vP?pJYNTxrzrMvO+O=;hFZ{sFZ}chXlY|!)%Gg0fQlzgK z>Ty_zxh2PBH75R8pxe%@jbN=p%^x&*Px_Q>csnH#9rC6*M$O)O3t6%ECov%zWi&lD zdGtp#b7C_ii;d2$oy!1)Xztt@9TM`)HU3X(>PzZ9H?Ea;#HaL52ZB^SbtN%jlBk{g zO0<{orB~Wd(~8hT;5=`%seATnCRhoyGtON<2O&cy^Cg7rak2a}3nX!^ezC02&>s-D z5@Y&H>SpW@m+r5g+Rq@z3keQmSL6&04x>YlXBk}rR*CZzYdK&PO-B#wv$2b3gSJWh zN-o6^>iLbz5y8fCVTKr4Wt#enYB|o;gv4eihH}VeRgX5 z-nVCu6S`G*0#p?bzMQQ4XpaMlmL7wI@$aK7-<9~z0aF<3X@$kK+eKKpRkft=(v!XM zub7d3BFL!2^WVtz@m94b<^TRp-A2FMpFE`PxJ&t{=`SK0lJ`n$kW)-cEgckSYuCYx zv-y;*QPN+7avT$c_Qrg>RI2tFxO^roHm62VAd8wG1X#C)8o!5 zi5hbljuFj``l$vy4-N|t~s&gi3?v}$U8?Tfl% zYtkO{tF%565^V_Jpq|6=MJ2>V#=_T%{ccdd2BJ1I*oqQ}EKXF}o53NrhE;$4#>|bI zSq=(RW27F>^S-*L^B^-r6O)QWrd`bpXq3ZT{9nkUM|yTyswqKkw@5kxw1#_6$W52# zI^UALCVun`tn1g;PB)S#;Lgtu8fW%-`)yJe>zc&Cu*0jCDNp-IZ@Q9*xuHYTn&?-* zfSreWuj@chCyNpoD|O`iFb(Ti*09gXRB;5zHUb1AsWMq_> zD%Fcyb>-9*JT7C=q&*B&8=+TnSg`XPAhX;DLa<*K+e;3yG%KJ+Zi zXGbkxhX=u6MYa|uT>1H4ls|=x?9>RVqYS1{66Hoxv5tMhDK%1%1t3jDg}yIuhzdS-!J&J4BfN$cgPdDH^@iWe&kC zgXK6t%jLb_{50`Wp%K6;aL8H?O)KLmP&{?~fnQU9btI?Z3b|A`P+EUUCgk9ujl!d7 zVq0)fwU<(3ZCC7b+)RC<-JXHIzrb52X*1x$OChbn%+?2m4C*<*+xwuUHjY*qv3b>hQ>}s!IUEg(oA8hIVMb9FpzVbZj$S~G2 z{I?YA2z;iB3J>JI@(uDHYbrC6%h00r52Z~h3GJ*9$47+nz_5Uq_oVCdWgCG%ikrp` zi^T=rs&GeRITLbFe~p{me5VOkf7!!Ip-GhM=YF?pEw+ivR33{HS~hXGgttkVR+5O# z*_Db1$c!Iq4MDLs1v^8Qj=xKp1+^LVw`VBZ;-g19RtIoQdPHDqeak=#tbF^r0zVho4%C1NDdq;z&wt;DRpEaNmm^J@dEtj3#^NGzqi7GeiX|DoPGLSF+^$jU20Zlb)_N7C&cv3K_*@ zXhVt5;f_WM?KdGXOUXByhj+w%hG!>dJD)4#WPp9Yz8a>`V@p;+=&S6YRsVl7?*zn@ z^b1o5r)tFCP6y=VR0x470R|q!TGvLq6;YA355nI!a|X`+@xJFGUgFO$((Wlv9B9y# zSQ0U(F`ar*()+9#H{0wSKn$CK#li#Qg(G?ee(C2pe}3Nq6O;t%OORMJ7;M3odPPhQ zBr`@t{D!ajaKMNy^D<(=k+dSi#Z!v1yEWS0on07|qdlvmiGaE{@h`v2ZoVvJa$&U@=oxSl=3kHOLkFlyO)Q8T?B* ziY3iz0YIPVP5{*nzq!H{WVvSJN6jG>*p49=tAS6@xZIG~!D7MqS95i1zX%v5LrCTu zra$d{bpx&Fa}iUKE|v+!upgb&F=KgBH(52TbN3B^YT{FvheDA=9*{VGs3-^k8D9%y z9WYU?+u%(!mp=O$Xe&VkHF7S>%xKTg3m5JEbAJ z<9x>y*@NZ##$pS@?DQRx=)XQ1o2YF`a*^Z1f$VQ)JZYW*VFy(HT;ow$hgjq-my!kz zg=!&3q=ZLT1zuVP4F{=MepLX=W5{kY6CgC2)EQ=_aTDviv6Xa zct)PwoDgL;iFZT&Fr(s?95T{jlSG-3XXVZu8CE8df#{7m>AlPlJq37K&qyFoPq3`X z#@S8GsG%u?Ar8yav~tq5Ulf`5)0eTbaF|bxmGHjqiX?;DkT9LlSAx#p*Wf`Ga~Ec@ z0U0xfKnwbn0wf;xx(X7;an&+y2iIP&A#Pk8&9k1ud->9EiTn}3rPGQfuE-^i6Zp`x zKP4sA@TJCPt@2cUB%xQGCElvZ{MqY{Iv9@X;w)Wx{;^2j z2^`B+`67>Mw1$W`TjR)?)E-)Mr8@o7k$gwv=@E$XNDeDXn_y}gR3+Ae7_A^OB_*Sx z6j~wCz*$+#n=<)>5!vw~e5!bmUfk-K^XFy$!)0(Yjx8%YIuI;je69=@G?~Px9}LXh zLR0u*9DMV+BdvEOS-{)IlF=(C2lf=lS2Wu?eBzCCQdXugoU>(3TCK|Tho_^ddK6FF zeb|L^h0u&~_&B*xOnW;MD?Z)R%!vv7UTjH~ha2==(cXq0|2x9^M=^{DUSmK`6!?{JRv*kta+9kX|l zM#2ElEkO3nv!u}bQL!7FiTHEwj%JzB&Oe>8{|zr!YP&8$rh>KP_-QK@$v%2CQzLu! zOi1&`xfNbvk~E0N;FYWm<&R)wq1HkY(VQcfy_-s0Eg*C-P!6BtFY_~^z+5y`PHp~5 zkN!YhxXXQ?=U1IL1$sZjY=p7fIZE&7;i?hyN2q`S0c)3tS_D6}j`!1I(7Sq6sT0xw z!AJg4DtSx9kurO}Kb zj5a!6`_`SJjL%v>^0DPg(aIqNR8~e<;1Nl&^JBxv4@WtTkh_*?$m`jT}2X2lrribre3cI z6AFo#4-Lp2*eh==z)Uyb3>KsPkb~U4TS5im%vRw=4Dwimp8%|eW@$1D~ohOfj>zY~A#K|#4h=)?+c`69mnaNadJ zI1LL?Z2Th;@#R}TEs5U33>4;pcAnHame6yC=Ox$2Rp|JEu4$1jHoGeS;mXVrK5ldL zv78e5!N8NYO+L7!ejn{v&kIf7@&ZzObR~|nve0=`2~2LhBS6}~hK%?*77(&XD(1gC zH}NmEKO|ePkQc{p%vbL2#uZcn8a@i$RNU#<>KvLO_5W*MUWAFxq34207e0y%87ww} z3ea^jgn7>r(KuAGSHWdt6hWu8Vee$NHbVPg0x4w3Y&qFRO!a> zmC37h%q2LG^5UK|*9x#aQwbMD{s*HeTjUhgB?CaO6!H+cR%H2a`aF!z<8laFAztJw z(yCVtquWMFxId}4&9O@F{S0#OzK11u3*@AcM;&2!J_l>klEraDQ!55ES-Eg#N(nl) zm=DV<>Ut%#aKm>Awx&fyxD1y!^Jq%ZKT8~RQCWKIY3*@fp816ulsU_E! z7lw3+Au8wL_-w#>0yk-!-og0_8E4jxqT8EOKq)H1k6d7ws3r3g=uag-CdNOZ;dDvxp$`pBz~I%6-FL zOVbRSys9T(LbB{zO#Sg%Ogb-<1R4wF;{q%fZ3@S4K+sy|rxuTBME3#)x4R#zuwXgE zfP$mX5?O<($8@Zo)lFSx&ve$MIQj7OJ*6_!Qh9IJ+NxCW`6$e`m_4dy?*GV&bo@Nl zYDJthf)&g@b17!q!?S=;cFEQ{X1WP~BY}i?F^#PD=yP8KKZXakrUszy#b3ulbMMU1 znVUx}Rovm<%Pptk@Yx9|c2xxY9*&6wpjWtU%7xr+9L_f5fARg;qeVfIPQ z1)3T(t5X{j)E^vm0^h1(TZap$YrAOM#mb$Nh>V$Dsio$4?G`cQA3^go@PbDW8b-tyk9-TkhD4RRnwq-5i2+DvKq}TWSt(NXET@Tb zDV4fg6AW6)T%5S}Tlv1#-qBA?bb26dyY`GC~u==W>s+bl5 zTVirbDTM%Qe?R0xo$dh`T!{Z2xq|+xpbOM}Bh(nRG#Dli*w|)RT5*U)fU&r%L-n6_ z)`O|95#Dyj)+B`dqAY@MO+HmscF&SQI$7G97Wyy7T^SSfbi+%VRI^JT-L+|&o@b?N zIJ;#xbWN!$WgI(24YOrVBhqwlDsE@73P4V_+HbRAn5hIO6eo;q&Q4}Zo;FS<1U97@ zZ#kr$U#uws^mT*gGl}fdXjSPWYSVAOAMB?eX!D*tSSU0FOiz(!(GoISI&gUk~H4P6!HN^&@?G)E4 zAfg-pA_}6*{}RIcl5KA3nOIERz25;z74!I5?Ao*auSwZPxQAElMWgx*jh(-nKxi=y z(6b%^78-d(a^7zTUmf}|r!uLdFNhO8yO>6+qDMg9d$OTm^Q-kuq$N%H4zF@qFWpe0 z%fqiD(v26{JvTk+KUzF3R>15K>jG-79HF5_$o6=i54V*h6})^mg+B{ySBxze=DyZ7 zUs1(|Bf|!0B~gP8Wk<^%_7w+o(kBPbG~meq&{pi1Ds;4PX`zXQEy`!ere;=%P^n|t z6w@boyOdS=WT-1)x-nwkZyXM$8q1B{5mWX>v+^f=5ZOqn$gsR~_=TDd!Irtd&d>n! z7_wiovToWJ`4l$N`EaQ<5Xl(zHk)eF#PlmSOU&q+ixNVV#^d0J4r;n>_K`VzN^%Zh z&HwIQ??N>vsCQJfgwiF_zeh+-{Mo#=+~RzXG5Nw}MrZz;#Xb*3V%eG=JkzrdP016h z@Rr=Ly4Y6V5LJu>%#p2`Vs~a>9}XA7m-vtm7C5vPprE57RH$&_!GqREqgVa%wb4Fy z^y1)7X{J(5wksW-7dDv6^o)A{#K{3TD|%wCqA0$a?B9XGXl=v0XF;z7qtLfqYx9mF zE0GI)$lYI#V13ipJUA`Ov&Go0jDEt=b_1#f$hNU&@h%(qr#^(YThLKo%9z2^Cu;JB z4+r4sRwssLxc#il!tRbO4Tj=jL^~$l_ZQPqKlW(ed0+Bob|8%=wS`fLA%p>`AxuqE z42nMD#K!Y^aCX?ZnwIFJcRDjq5kD%RP zwR>8LdPq^Odj+tKNOqk9K~NXQg#3mmKj=Et?gN7oiv1|A*YmrA85OAaf-~U5tk*x4 zHe+a~c_D$tcTaJOj1gafOI1V+*ok2ldw1diFiOYIwch1u}+Gz@i>R|FJ@$B`LG+2eBTPj4O}srk8mgaJyRok2AV2=s$r15quDWC-dlu z9oUJLoUb&?0V9Jjx*hF57%3<61G2NCTg^_fJK~xK?sNfD(iFTz1M&YhBS$03iFQ_r z5NQX0x!YUk^#qyM>ius~K8C$44prpKt&cuVIf2%SfZ=xx!Y0b6M*x7 zQi`9{7B-Y#MlJv5RvY!sa@YS8V?gT-wf(E+SeqTyYZ$`_jmJ5Y!^YE$4|s0DyITFJ z=o1W%3NR_zhdBG9EF|F6`Pz$0?Qej*t>jKARx#%S4Wt&ayMIEVwEr&_5^pO2T04@) z*!yS@n}XRsH^iWbvLFK=`i!;ZjZnzu;g*+##IsjkQVDq}tBnP1e-88WclL}HY1XSI zcNl8OqaLN5UJtdIVA|LPacGfB zcYXMR8zO#Emmi7p;H`U;4?ZNaNNGtdGS2`NU}ZWxB4l@b-}Bub1xiY=1<%GJ+Kgc8 z+SC71MV60@DRJMppl|U0b*7kSZua2l8#^ok64r6J1)LLe(VLnEv zm&1fgO-R<55JqI$(sf3t)V#?shi%0WijYoQu2S1esFk?M{h&@wPftDjGhUdGje6D`42y`~&x2-1t@<6|oF!wTRY1UEXp&ZVmkt_eI*_zE^Z79lB&09TYf$ zX@@OeTc1N$yRDU+f{pvGm*CewIcuK}{R{6qE~ftd>U?)W7Sr1!{rPi4hxdaQ0)g+* zwa!(H_Pw^Lq$sezlwYbSSa<}pWh7&xzi)yHc|MT~Kr}{$kS=mo5}x~uKi&#}zyJPF z-{n%4RVDCKJx#4OqwsL;bK-)ft$s*DG+}{SZ!DS${x-@dH!IhZ!@)vp0YAs$JHst> zQDVSU8H+&8`?S#!M!bgPTcx=3r|1g(v{Qyi1$x?f;1|#n7NpOS`5xpdSb10_AG+n> zL+5f>*sjC1X(Cq^Sk<4=e#;-)6J1~0w#w(sAM2JhD`T*v+xDHk=563f(L*{%4N`uM zSd=XP*8M%(^x82t5t19vY)RB08jvsJ`qHhb(8JZyL`s!4WovAxaJZhESEG36jN=mL zh+&YSCjw-_cKPz86xw9sp>DB~EULPFno+y_B~Q2Iq%H&(icvI*@CWxLnh?rZm(iLfmCx#D z!Pp4N#;`aO@dsu=65)zt?m5}7)x3i8C13uPdjOPIXV+SPUB_N${W<3Qs{|{n-Srz) zz`$D+8<9ca{WX@uMOBcW@48B$K*o8z8{N#qhI;u+!d>>^L7!Y+n8+JXSWas>JA$8` z7={z_5;lg5A@7nR!6%ut*kh3Ko-pEZO*n^g;NX@ca++18UWX554H2n!6!{ArRIHG{WF_aH?V85);hrqU9$$KgDx>U(~%X2FnK& zt#&#Hy^ZV+^i(_vtkf^MgQvzPgAVWRKdk-60HNh=$Nx@K52<-N+)46v3G$t<2VSDE z&OQU@yGn$1l>ztbbKg0TIE((YUJQ-1oh*K@t85OGIzLzeXZ?M@--E?WY@wE{9wH9w zLB*YR^Ob1(MT62+hSzYUsetetyUA6hJ4-beT;BHcao~@y7;O*AIJNk6tHP1xuou@U zpWChp*YvcX4)MPcR}Z3RQx)?DCSWIE`!}`o1z4hDMVir*p)auVUASt+0mf!i>_~vU z%b@*}3i(Th^ZciOKmPP5dvcw&gq(Eo8{B3KKUk^vtj%P=oEfSJ4(24fFP$~o@T}BD zq&O*5<`u3IQ2LG)eY=}Atj~06E2~7~p1hF?`7RYAL*0iS3d0cs6CoACA_e>x>rzY6 zU|ZB5AHz=JB6BbQPaP9D5NasQCpDc0GD_o4!p6^rvnZ3XV&>ZuG~mcU2M!gaZhj%# zuTdk`D3DbWjp>3ruj!j_l70@;7(}L$`WC~$Xp29kc*J$DpS@}(3}{;_M2Z!gIvEun z`7104w)+2s!2cuuzlZ)f#XL9>YCOaJtAgVZFc~*&&E)|{x`In;zk0&dHOvs~`8$ruMgWocD_Hb05G34Kb2VTt`cCFo39y}DJE17y>tq*C<=R`)- z6(hQ*?^{VljVz!n#we-6^{)kENT`z)jqD!c#I z!6{XT8q*%FCl@#~_tx?$^3mLb&NRNV*e3hmBA>IUjK)`-i0_;J+yd%)ZMWcf=vHhZ zWE*OUjX27RdDbP2?Fw>@WY{@7QS&Cf`9OVFmBc>JHKJFUuRuFNia9Qzu8t~>Ob94Gh*kjbK6$5jW1f4Hnq?M1?VLi2; zL_Lu&9FK~aC#6(K&=hRl)_D2fVw1uz!mJePAMI_}tF}x+l6cN)#szIw2U+8Mrc z!BaePL7!xL<0hW_xpp8-7wO&fKWqIt-mbNQorL%pz-m^G1gnY!&kPScB>-R-WB;E^ zUTT&u1SS-EFHjR8V=E!R!fS{A{~s#0?Hu+{5C-~DmRFanm$3-@zX1NM B@DBh0 literal 36604 zcmbSyWl&r}x9u6+32wpNJ-EBOI|K;s!C`O-7M$P&g1fs14Gtl}26uOVP+wMvwOF#*}YbjsQiiU=Uj*kBB-8&2n z3`|T+EG#T+Y-}7H99&#nJUl#ne0%}|0zyJUA|j&q@81&>6O)jTkdl&;k&%&;lT%Po zP*PG-QBhG-Q`6AU(9+V<(b3V<(=#wIFfuYSF)=YSGqbR;u(GnUv9YnUvvY88aB^~T zadB~TbAR~ofrp2OmzS51kB^_9UqC=WP*6}vNJv;%SVTlbR8&+%*@=}+`_`*VPkii(Pk zj{frHOH52mY;0^?TwHv7d_qFP*RNj_6BCn?l9H2?Q&Lh=Q&ZE@($dq@Gcq#1efyS~ znVFT9m7SfPlarI1o12%Hm!F?sP*Cvw`}e}a!lI(0A3uH+7Z;b5l$4g1mX(#2mzP&m zR8&@0R#jD1S6A26)YR72*45S3*Vi{RG&D9gHZ?UhH#fJmw6wOiwzajjx3_n6baZxh zc6D`icX#*n^z`=j_VxAk_xBGB3=9qq{`~oKXlQ77cz9%FWOQ_NY;0_NeEiq1UlS7( zlarHEQ&ZE^(=#(Ov$L~vb93|a^9u_LzkmN;TwMI~=g;52f0ve)mY0`TR#sM5SJ&3o zAP~s<`ufJk#^&bc*4Ebc_V&)s&hGB+-rnB+{{F$i!QtWI(b3WI@$t#Y$?56o+1c6o z`T51g#pUJY)z#JY_4Uoo&F$^&-QC^&{r$tk!{g)Q)6>)Q^YhEg%j@gwMvamG+ZsT0 zmeq3u0Q}5-%vjs~eq_JuznWp)#px7iY>GkL`CNG<#dGm zV5g|J%Mm)D6c+y`&Kg+E(1S_fVN=S3&@id#$PWdL?h$U~iC67hkmm7z`pQ1x46ksc zH4_wQ077UR%Bjo-{*!ijA(DU(YxHf&+1F0C)xj#rsZmVzelS0_>*Y!|8EMK{VA+;Z z^yPVXQA)tP#w+D@A56`Rn-7Zi82(Lk(lSunoLR;*5w#2M20%RBn^f}oq2o>e#Oxwd%V;#frIb_MF%Ta@vn zU)>)9wl3^k??~4X&_&lCCsr6PpxHS55p!g;(||Tfpbe@E$vFXC#JY#wq|Ap^@xWIP zcs_~ijvsI`eieCGQ_pwU^nHwuXDh@3pZw4%VpIoG?@of7`E-AQP>xck(L`U{zrXA0 zF*vZn@jd<$H>W@eC`-tnZ$=o04U{Xd+2%n-4PO+@REV7(55{rYTEE`bvzj&=Drfz%pu`k zGv6UuCPIHJ&_n3j$$SB@n}b(QoZsLtT0_Fsds<88>g(?D#Hle@=Zf;lAVRdx3G zAQ|4764EI*aTXKGP)}Bm4bHIv%qMJmy68*bbq2edoS(8R?4)85UMJQY9+?V@36CGaZ&^5?OA z4~9)ov%S-8{oWT(+9{cnS_qhe_bk;XB0O7h3L~5=6Sd#BXyA5-hM$P0C(N(3@U4Em znc-9RjgOSohZvcZ0t2QlwyoQ`XK;Wg?XXOreR^JP(%YcC6A=N)l!b|qzB7U^p;|)J z@Gta*_qKD{+GWkh{+v?<)^WnNmONAsdYSGF>6o{HpLRs14@1mzic3G$BJJcRf6%B2 zbU!7Vd?J9)%f;?PnnmqGoMJJ#RWmI*Tzbqx!-sSPHEt!kzLLGaO4m?9bM?x>Kc4us zV}gT)Ljx{w{XTFxo9EFR0SVXf#(zO{opRD_P|0mM(N<30NS;AMn*({>v=iya_rSh? zH4JB;?t-d&fce2lEAJw2TtY!33lEX>(k{=;NrX}T8pzTQb37@h@{sx-94Y^~#+D5n z{bT{qsV_RPs|0o_(u$+Py;-3EQWVn!s^3AHWYD5tQ2?!BK-KswXo`Lo=>w2_84t>n z{R{HaDU)%jQEr^KCD#IkO_nxuv4?5hjD6JHqaj6|LZjgs-}L5-G;w;Xgh^hn!2Ex6 zlX9?+`5}tBialj@alSbQ|IPF$a*O$rm0bG0PSm>TM!zg`3Iadh7KjeBNARBnV}l#B|%QXMR)Q zmw)VQXCUxZe*M;@F&*t{^E**4`1-%FOULauxOK5&tQ-gx!>TDhQp~Q?)_dy^3^pQHNJh74XrcNTG zzsRWH>$?!lpIHpB7&_H$I{0=$yN(-W+7pTTH5p#0%8Y1h`^=8#o@nl!=pVatx9GZZ z^#?e2I-l3D&#~64&ACEGpgo=8~=ODD-}C6+P`ij0dZIf$oa9}VVL!8&FB z#7EyoO?`c!*jh-Zj^R$51Pe}+4#bw&+0@9z8dDXN8|LRg#5AG(_RLTF$ z3A|J>lWBnZ{T2r-a992S0Ca-(2iEAd-zNRG4#Ve)7_qeB@3J8ue+GwC4_>;5duplQ z;5VlYrr}iyCEEob?<4mRss6Ob_a*=^Q$cwhC;;Nv+ggPKhgt%3tk9x;96)l~+XBOY zI{VeyIb{C~J5;A!r~?H09zuw^F^5?-Yrpn_-9~u;&w5}w;6fGiE{|!pU#r{yd4W@>HcKhAo znnt5W0A+&ZM=7YDvUHaBfmbBD;T8sXGt^+xzE7*Yvk*%tJ!$QaKu6T=q_J-Fe-%~t zxv%!#_PhKml8lCYma`6nzhaAXFp^CJUa;UUfVdD5%wdi?3Mh!)_(nmFm*8%k$^6DL@+k;$L=r-ebO0Pu+xBg9HNlog8Dy?3;7FZJr3F@ z_9B0#Ns2%o{ee7%YgTY@Kn@$pYP$$%G*74Bi37%+XHyfmE+~gm53pyyj}{*p_ICOE zw4we;D}Mx@y2XLKpMfF&+++n0h0?R{&SYW?e{g;4VuZ_0l!3NKh@%#7lLz?*;HtJ{ zDQ+VReMcrZs1mg=r*-JPn-8F@lX8KZHR7iyD~;DkCpNOP&?H?m;mB)J{61mW0Ka?C zNO~N9l&^1>vyRx$<_(B^0uFbGk0(-k*$lpD#FQaG@1beZ5^rh|_FOs(46TiX-mF`e zbB;jc&%Bu?{apyz2)kU8kZug%<->rRI@a3WU32`^&M zi!&^m2{QehgjwdAMJ7OoiUBYH-tIkfozIK}T0lod@4>|-wf{{+dz)t*02PzCMQ^t-K6*miHqzVdqT>MIPDXE6mE(PSDCV`x!>~d4d%34KK2P;H zgz`^2qws;<;r^eeb=(1aXkjHyhemx_95AEQiyZlXpLC-f@!|MRqM-qFw|BdtTSRAY zU)A8Lm@LH0{;kC?bYQL5W(PN^YZ5dXq&#br_uR9!0k8ba%UAS#0M4BZZqFAUmu{9P z&Y$~IMlc}vDBGF!xX_N}X%xizZZ}dRfp)9?uL|qiRd{mHCBq_#K)|K^pNQ7Eo}s4r zsM2dE)Co>~3WU7=Lv6fJKHQG%=;Ku$X!S6NB!>P&9}PU!c?5N6$2ue z>wn-xPsY88^G|GWd!px*(|7Te_Az_>YqlIewXNUFd@*BqS&UIk- zYxI@h%`2^WxM{BCRpFTQ@CRK8nno8)90z5o>x-LX(tm8Z#D9tsoF@J_r`}cZ2$J}l zWveOKK=iY7wzZ@J5fihgTP;ld`I|B9B!_}2(d~JQhiS|Gp_uCm8`4tW}V%^jEAGh94Ji#k{*mRnH_((??PPug(W`Wp|mp?&zRV`)(ViQDbK`geZ%bg zS$c5yG38;+jSJ-e1VLoiWj#j$lL-cK4-6>9!G#|+jnSq->g{I^XH&`=7Z zUwQ)ueMl#{_2=0x7g67?kW8gGn>_Hlzvb?qj}!(cXUdoDAGw(WF9}(_++o(x?{~%Q z)54Qf<_a|clc*@tW*z5F zxXQw6Ny?xj+m*40x75kK#*X^&KrGiWVGPgKi!u65?6)h`t=$QXEcCl?{V3<2BCtvK z*_=xK&i|Z3gjD}9_Y}Ee*@KDTQFc-BKI>)$H|H{o7>wf?# zaKFs`?@DRTjOdWfGq(B(;vbbFPldvnwR3O_1NTjH5eE(>Soiezq?fbmb|UdfN>^`Z zRQ1oso%~Gnh;-(fl-K3#zC~f7)`aF-#HNzwd}Rz>EOif`b)lu}wpzWCrtfd#a{?Y@ zVuk0>=(1i7eR(f1xx{YOX%u8E2!5pKhAQG`k$-sX>!MtE&I`&%m$A&az#9=J;)gxE zY@71?q(jtbcU#fQoHuzRF;-uqf&XWY0Rl2ak2l9xE3!p^e6Kal&pRQlK}{JHpWR>@ zepRQ5RR(?R%D{k6-mK*}yrzkJG?~HT{j)sSt)_yPF7mUsKpF!$LvNm&AbG*dGJLwi z+_I+^YM;uvG1_aWYcr%ZLtgU9Lc;opxsM|n-g@&#C3kRWQrO*D-*6*waOn(gyQ>75 zm?l;>$Wm8(E>aMDNv~i`S?`Ud{K0(1c1Hjgua`1Ce4>}jtb)e)$4!+9ptk~VxReqA zXj|-F{&D6MUC>zk+=uG|u!@#Ta6Kzl-5X{3bv%5uQzwc4Wz!QYbjNGI!yFqtS%|ey z(6hEgb&021HKIAEaQY+x&1m+87yP|cA}gt>|9zIXO$dJ@nF1fgt3SpKMH#BM-`-S5yX4n(n#>lfv)a7#whVJ zbD3}vzh+H%+(2`(T%iHL+87!vJy+k?AKOX%)6>%cgsEeGMJ0cjxoSvBZ-w|!Jpek& z`g!TuThObzeEnB%cP}CjBG=}p#j)%|FuP1eXV`wY>VD9oNVo#kLLyy}fpG6@<716B z?=k%C)W!9_Q3yMR)Bs%?f-hF;de{-mBlc=N;qWWsco=&Clm(p``k@~#%a7OS`3|8Q z_lO0V>MvP7&Uio9U3pTam&9M=R<1VKn#z<7W2PT8tw-HfSaW?DZe2J(UCC40`@F;N z?^`|MUorYqWwmZE&k-M-ftH#2uQrj;cNs!1H!qzU4yoUH?`!zyda&%woG`fFdzMkK zzUU|>jSpIXAW1v@HO&bAT`^^O9vx)GNTs@O$C_pE6_ar`8L7ze206O_lA5(^Pzmwl6jdjIdSOt*e2gB zcCGo>6TuJX&SVdBT}5X9)<3ywF`3{CXFO!h;{HRU zhp{7Z7n?DZe#|Iph>fLtSZURuarI`0>jMifURF36xZ7zYv@dGNen4oruJ~BQ;vI9ZTm(1m? zj!!QErhjtwDyb2(mJ$f8%bSFt3?CVyyC&wVAu2gV$!K{EgYG;SBPW%Dx%QOxd}D2) z&kFx41}NDN^M?tq(fu^|Mk*+-q-htYfrjvffg~bpJ#(upu?_a@fdTpKI1D+8*b2up z_m#B5zRJ3YG-I|%?pEJ4Og}D_X0~2;N7tcF31}xk(u|QYw^xn$Zo&Zao+x|6aErkYkkdPgN`dY zp-Tk^xn)20(tQy9g7nv;rh@2NWxmxgcd{|y7o|zf?|_`ci-Nkk{BxTuUDEoXavfoD zZm*WBqrN-+ne6E{SZ5}tLu9@Fp&f~@aFi|8;>1ap@BO!|^4d7Y4Q`j43g1tf=Hdqo z1fUIsROW#!Gl<~#$UV)0uI;Lp74)fFUVkep)38#%O4KXw@E>@={yldr$-cCDF_2v% zGUC56V;scqY?o&gT;3ppmbpTkAKLGswT&DCH|?y}xU^q*WEJ)0pJ2jFa4t@W<8VHU zNa$`~3HoNn&0b9~8GONauS~=TpSDTRt-{lQxsalrp)#_RK@8r^N~D#OKH;`&h^}!b zohi28Ux@EW<}YwL!EAuDw3Wz*&J(N)Xi@BJ#>l~e4Zl?u&)|%jVF`g;NE%)^qKXTUx zJ(p%5;h+ZN(C%TVmaT4al?a$sD5Wp?p#7BpF>4uVtgZE#Tzp#}zr|WhKebh0Y@kxL_eEjeHpCsjrO9bX0dIwhI5)76R6rD`d z4aLP0an$uS+Cy2E=`r^s?PnniOX$359m6la4iw$)HKHDzUR)kd2#t*9zR`XF;~FbRv@ z;SR3jT|iVTOSqhsAXQVwU7s?8|9Y>HXSzkILX5#zn5plmstxhNoIwog2IyP1e}8n< z(-ulF;vW$rBR(B9uJGo&S82TrupvsRpgT_A#2F<}66i=ZOR<%A@6sYC3GEx0a%vAf zxj6Uzn)v(+UI->+9|S;qmp^Z5+l?HiHTrKTCU`7`LU~e8pn1Pa{h-o;@zv6*MnfN0 z^nlke-0P4L^w?P$Xlbok-t5>`k}1W!57U$0J6;WfUK!*bb_@p4Pz^TG1ZG* zoN;|xSXT+za$3Yz)kEyi6mfK+@2o~eX;wF)x#2SSP!U$@;4mB~Me!JVR`$(tqb$Gi z^^O{4z1o^nkmRRSSiL@=8d=VxeadI_?r@&W|PcEAjK|td-TRc*!E@dC{=5gd6xg zYnuP82eiH5Q&M$hu83k=s}ldXZPo=;qz&F8#Hkv<1j2WQoNdmjTV`LBbr!Y93+kjR z=zO#M+_uvrFRA|wb+`1cY964EGL5Z8GvX~`5iAkT{KB@Oh{o0WydVj1T88{6|16>l ze9_c5ps?4J#6t{f--}{HSD(#)ca1~^3nBWjG!>RqZ+c_r63K} zVp7yveW&9}{|w_EaowOQ6c*}1U&0Ojmg^=sn|*W@k`FF4Y)B;kz{w~Cr#MopS^0L6 z%+Ia~9aWgG1)qpX_O;&p`d)`&H$grOWkQn~*@=UZF~wJX@wYnzg##R2g>Tuvn+ z5hnzzE4~3Wf?y3>G1u=fES{02)i=R(l8EDFaq@1lWKGJ!VdcDoVuYvpUb1XzxX2U^ z5~^Ku;sU^K^DP}T$6w0%1^cnxWQ1R(FfSUoT#~d}c|P`*1Ia(>M>dUok>?j&^R)wv z;dEGQtgH*IxW<7B0^yfM2 zspT0J%C?9@NQ9O(C(*f|r{+q`I7tGhqdxp<0yRjwHf1#SU5Kng3Bn6r3?%!4 z&RwEX5>cacuFnfiGysZb1)2XiAN?k1Nps0JBzVMfY@!W$!s!|ypE};puya_|Z~rD} zaWxU*EwT`%3@f4Kh13VatNAfkCR*lWE@J zZyl>MWhnSs_Ao&$k$UzJdSt`~=bgZaNvy-b=`A<(kx=-Kn8iGLo6Oo}(*7qO?%%u|8hY)Y9-i1r zpff{~4m_x~X6_xrp8nJyL&hKVYjKi&@ZZoO%qE^Pv06m6t!Kt)X^thUGWH2x?t|8! z|IGzZb<$+HP)vx74Sfpng&Y54p|ZOZ=Kl~xC@;3;<1LZ9*7IR{Tu$oNLMnJeGky4& zRC^jxv1u_~m#y(M1;nhpFp8>NI$H~2y$E(XbvP(Ce0jfA7o55JH`#}oImDp9C7H1D zFMcr=-Ah}6`WxCc9`92Z!ANAny(~U_`_ZO~u9L zrqa1G^XUM#O#}vh{P(_nx@8Gb%sLM36`y$SdnE5n?Tm^+2?J4FS5x)c02awC6FbcW zdDnWglMoWxPd;Hr9)YzgLwUc%zO5!Y!tM?JH6;0sz{&-ge{ea^k{O@P5vr-jS2ukL zf-e5#1Hg3admuqN=>Yb=)+awsRU2_@yR-?KNRN#Zn8)kyLiR`B9fCr~d20sL?>ob< zxUDIpSzLh~%QI+aPJoAnsQ;?@;<8;Qh(5cS57kMD=8_);sf5rTe4%PyIL7CiQnLg#_F6Nc=ahFy9RD-6;W2ILv*H0gL3Os;WRqFmJ03t00S18a83bRUwv&@-x~o% z@p@_5CAte1Te1>4-&!#>+;o4Yn_RRP^v#jL;3sU^D&;i;~JJHWCT@5 zi`6;Aytdi++c8!`D0H(wkI-cRbUOaNBYwrc?lzkx1-6ijqY7!{n%J!GB|r&SSQ4EG zVmc(WxDZw7ILS=?Mr>?e;>@+maQg5m7hlPJ&pdS?J2m5z1i*Xq3 zNxx+eGLC0|t_Jdaq+Jyki-t9&P3;^@#fJ%OE=W9RqWty;`fw~9Vg7@#>4>oWGyiBg z^SD1*AgxgsKXolkD(Bj4gh-F>&laLo=AbY^H*dM4*9TQU{Gt$Sa|>v3;^}HD@%LQb zcSrSpcEe5YomQ?gX@r@mQ`+G3o&(z4^O^CgaWIh=2Cx^b{H*w?&Sx>yP03~o13-eK z$5q!`izKmR+Fspr^y=ATa_P=V)?ubRi_NK-#4BR{caxT9S0B9+MM__s!}Brf5|H+&zyx4$T_MLtgC|8r)D0;cgV zGCE|@!e{A5sEeZAQA&l=;C!9mI9Fv%)M>fwEnN?rP`~%pMoyE~EXEJ{rz5$7sfjk$ zYQ1&O75;nw6XiyL7K|oD zEFFmP%bKqlx-yHxGFEL{=3nY8TqMQDF|p;pwy-zbX;}d~Xf>{kR3d7R^1N4H6`3H?AM{pH7s z@g~SepaT5$J#Df1$`_~y(8LFZ@g!#v>!Oa&o6u8!zW4hCsWb=uObBJ~(Hl2R&m7D4 zzt$NM`N-WI?h*8q?VH-=IQ{sM3+_NPn4eU(xK<}zqzfS0Ny`{AyMFJOM<)#14|!~# zv1R?%y$)q0F9*N6E(zCjD5d$Om(sVE+rMmVvDTtpmF*TWrgyM9i8I&SE>XgayMAu` z7wmYTN+)}B+g~&X@HE!CTGtn@#!g8NA?Oz5zje&NJ6q@MpSl*DaIv|^4|&ax(NQil zxN&Ubv!`RDpJ9f~Ng3Brn-R5#X((Y#Zy}CN<6jQy`QBMD?4?7k1X`pw@7$1T1h*@^ z?>DS>&sVU>ypF)T({U#%U3~vGRsWhNZR2~M#7lG-nd^1(|BC2ydm5%y1~=K+<&SLI zJ9Os6_TMenl^Tdh{h)+~WR?WM#W=vEcgM>%H!SC`2NZN`@XTJl`*cucv?GhUw};pB z$8@_NWflh)>%|Yf_5<>x>Fh7IQAo4Fr3B-(5_|g}%nA`t(?IN$1Qf7S9?*eKOZh7$ zNlQAH0mu)r?%XOgSb@3=E2_z=C*Z0l+thJroh?dJ(O_;yoVnu=jZN*BDi z)IzT-l=o{Ugpmj+E0Tfhv3qV{4o2J)!}m%Rp2p1UFZ)HwOuu&_HUyl6z}JPoBxjX9KK-zi9$mpOXF3x~hh)fB}3~-e1Ke zlmON)I75V?lmtGvUyHh9sX5pMC&~fM`kP~g zjA?J#5w7vFG_B0`vDlB|h7pxrAG(g)u=G8PIp(`LXBMq3e#cE);Sc#aIE$`NudOOS`7}95z30{O7j3nkhTIo&${1&m%ygH-VbG}iY6dutAChwmYEoOm`!KZ zgu^-XNZZql5xT;nS%e?l_X+GwXuiJCIkRL2a--+YKD0BE%KyHP0e?oBUmSaajGIMP z_xHfp;KbW8xrFcVn}dhBC4)d4oT{%;;l({0JNAxx-S?>=YUjYJeIrK`VTD{oDO2fN zt^}vhhGu6q)YNpOqhHRhGun(~zP*&5Lr@=!B(jz#61Y)%vTK^`uVXSY+ts{I=gZ_w zoqo^AS6ZZZt17*v*G6Ek3g|C@E-Z9!e^>JDjP<;a*PX}#1wPGM6P7pk9EE`_YJGAEuvCOLATKH|9%cS!T zs165tEgD%keJ%OZ^2o(Il6jO6`Q!!z_^ot0tRskqSxvRt;)6w~EKe+nsyRWm0ZK(D zo~$aPHvh5eNKE-0DHQa4e$Q*R{JoG6j;ubO0}tH+>Uz3;G_*7x@0zG-hv^EU9Z>-$ z80NwN68L2Q$V`$ra$1ZN#D9CcEx%>$3~%H?(69c?F7c#zgy5C+`Df5PibtDR@73c& zx^4b0lQfj*4$SX{$)Qm?{TXKPno>T%^o8oPY5z3N(Vl0paeiI1W-^PMY)*d|XiqOn z83zN%I3!K+H$)vXk?saw)Dax4c`x(vcC`0lxWhMSA6Y_TP13UOWDjoM7XJZbC)6FA z;zoFz<22a~K0VG>%kJ1JdD`e3hhhNa4lcu=7CQ3FYx}O7`7u#Ttjf14;;61g6$n53 z$AMahE7^KF$iZODkVWdjMZIfR7-CraNi{=g=@Tc=53i;M@=rumEgcYn15=a&Q^XIm zQwCk}0H#jg4AWB9{shV#NgjW@@Yy~ktOg@qF zf5MXky!l#$F#F;$ejPl%`iAt#$`(>X=V88TY5>G?emDU<PV19Tv) z`&vk(LK6{9Ltq&_m=Ctk_MNR}NwUvzWS5yHr$E6Hf*3Pe#E*a6uD9~E*Bjcbf5|am z&3%vzp>@~lBY?7uu}ljssyy=&g$CC7KnkzUIvR#~)UcPE1F!2M%eyiUD zYGgUf+mac8K;HH9$yspDzKZ6Tb^3rm{y!e(A9I;V_|Da+U9`VLn-Zz%wnzPkum);T z-y+SDU10E_ZGJ>!#?s*_Y+57>57tjgBSvaurBVZ^n+soiyr5kZuO>ZZzCXYj!nB9- zn7XCFO=zGtC1+=hgvHvi5D=&)7<-O&m`U0}2$kCY!H{&r8w<`ebgF4uXI9|uk;`1~+Y6*@JEfM?v_j8AJ^iiMt=@t{a2%%f5(R^(x#lxIZ4#U+TqFHv_T#K$o#vMwJP9feK(jPAv95)#Q=o!)d-f}| zGcjpIMi=_R#z*kX5D#>I4P7q;C9Ycx2m|f+mnY`)E}!DcbGxoj6QUwjMoua04P=VlhejfjPwi!UmcIYe}j1 zJ@D(Gd=VcZW#PiB&PIaY2Hs7d!v}sc@xz|&GCgh}J&5{x1&iij;J5(YRSubFcTEE3 z2jri}7J^bm$GF=`hf_Mf^1~*0^PytaD>>_Uum(}q>KF=C4V8VD#K3bfG8q2l5F03a zaOwk_aBn4ci`K7zxP@;fWomSGJXJE!H+N=uglLF1I<(4yY^_&wcRkb@7k0v}w7FvM16U|i$D|LCYDK;U?tvVgav zgAkJIhis7#BZ;>}+S1)3%hav=*nc{cqW*DXA7Gu+rovj+%y;0P_eZ>ZX`UBx)%mxB zg*FWMiGWdsZa^8HM6gW{<#m$Ni(SyFx5SOBQ@G2q@O#dG7l&yGdWS)Q;UU5?_Ep6^ zrSHP2OnPbxr2p~ESi$iK5{g6isr6i>6^^9RA53~pNj4qM*urtR|8dmmefk8 z4ro&+dTr)WouBtUWzIYh_+0)22J96j|JZ3)$YgH(AoT;axxNw8QRU#d1cRL6G7pO8 z@YoZyQ}YZ&lYj4G2ag9@c^-4^Xob_0PS-yAH3ofK=10*RLvvybC-<`IOZ(RpO5P6! zIY?W5#4C2jvfrBzIXSr&rGf(zL2)iS} z8}3#iTN;j1#1QOpjTCmU8LYlygjyVYZYR{<*utikg70};@=XSDex)}Ks`$9tiF5vo zd+YlWfF1)(Cz%izN7nKi4(P&@|Hz9fWD`T!|(G^Yd z2VZl}Uv;tJnxH#BtoT4eG2yp*xbMN9muPKxq0jzf%q>d>(h}1w!RS4RTel{eoMy%E z#!OLy>?vu-DegEFMg3RacqPI%3>&>}Kx6#lEx8v!TTCZc4RCA*mEFop4W{xZ$MM8y zy!AXM+^T&~nC%JM-wLJSJE5?$j$ks$t4dZ@0aaoW#z3Mx6(Xd0@TmIeGusFXmL~j& zqO|G;DI$t4RpzWAXnHL!q?1Q@;%__PEtG2U(R5Df8*RI?XOL^k&i$pT_AGE4F&K z$Tjx(S?=X(EzXtk?%nbk!_fKU|7O`ApL9zH&|P@XjFAOz;lq zW?kf;e1-I;lr?<$oZFvZnO@4xO%edM!Uhr(+qpN}l>`aPud|<nO%)`z!R)YY!Qk{M z&%{>^G?hRe|Nk$x`hV19{ol=)0e4=g?oyOagD>6kcPrF_pBcn@!*wY5`p1}NE-vGd zTOcVHXcx!L7+ZSR;{4oa3V3Oyg{S1pOJ$;jz@B6l`+)!-^2?iAvj=nE0pvj*Xo3KY z3dnYBf3a#dL<9>4&P*F!Bbrj@8H=uquAhN-@0}$;_z+Saa2?vk$|sq0OR*NDvj&aT zln0opAV2drPD}ah?Rc$cM7seGHW>7B4$$qAO~=A*ZB}Lk1IfRX-n2ec6MF18EVbxa zCxkPx(588Tg1{)BtowIF6GLz@@%%f{h+8DX04?0&nWXFXJ^59rQ``s>;^l7FjVdl5 zH;?wOPNUAPz2nH!cKUFeWCD^I}3IcPTgK4}tR{Sie(qDBGFH z=*C5&0D#}GszTCgC>t+Lb}Ws91)Q?_cyQ*_+=?ySR?ZKU+TZaNz zu~yx9Q)=L!DV*3i`zk(?+OXyZF5i1GzUM$gf}5HIbty;$o=Vf+O%1~MNI;2Bo@TxL zd864&x5TlY3!*8bqmiu9Gf5jomY2G>HxC>KWA>J{hYz6yrSxc)`geMvi2uFQl@}-*vQL(U5 z(AfDtH~UVd7s);phBuF+MDsd;6w+kM3g-oln73>EFvBZIyV;5G>wu{x;MNel+vlgV zrFoN{OqS@)I<+k$XUh0%8$ORGrI{QHQV94xD`%$r;jnhsUp^w8Q{I-gyP!IQ5#C+h zvYfXYyW=mDM!`(&Vynb<47lyRwQ3xc{!)FVRSG@EhOLJn2hau7`Bx*km^<0*+@v+L zhqzbrv?33De0U3Ubs*G4oY~fU7z)G`0}*&HR;7bS0G;eTMOg_9^qw6q|MU0*2?}bi zfucke8N6@N85MQ3Y3<>_ZNJ9fXoh}A)4 z~$I*Z6luCOBkD2gX9bmkLMaiW#L zl>ja%^2Hdg2XNASD02<2MyO#+W}q1{)-YB=Vb@y8g@@CHE-Io?8GtgHW7B z&)z2Oo7xP_^Cq8QE5SJu7XPiGBwzg9mSiL4*mH#XQf;1hLo9bSSzbXAq|?RH84u z#GBUa>kZO{O1ed_<2|3KB2iVTjVU@PHax2 z9;lG-Q{T&_?B%8{NTIM*luXKt=eFeQo_NBICCJ16p(zTt{Jg2^$DIg^0S#)=!jqmu#^&l@Rv) zPKwN0AbI0%mqRz{`(_>jJ?wvp(QM%14}dI$Nn4Lu4QH_p*61fU0-8_$(hoDuTYw}E zyI5H-z;N*|uW}cgU^;IK;M@-Zs)aR6<~d!?8OouAC~rJ=d>~q~fHUt6G>ZPij6hk! z8yuy8&YS%NJ0}14AC9zvhnT88`$pN8&x@A<%LJR3D$pFeMR-!h2m$uVGD@aZR@xr) zT2g0+7J@IWI0v?Y%0B81hhR=Kc2GG#rWNs-@286Sj6IG2siEltu5z7@pj;9fdsO7H zxdQ*}XQLmzNO;|-YBP3H5-4j{*EIofh6$&t+puzfF59t-FZhzwtInVEImi@(fnZ(r zr~yFxftLB4q(GQn)lzi>^K=weImPU+gucf;9OwIW&>O!$0D${=EO6!D=aR6e>PJr< zO?xcgMzg2rU(bdJwfDuk`kiRNc8JqG^efpV)|O;$=(hW)Ag1YLySoD0pb9727|Bdo zf9K7YOJ-Y19YRs5mvd+~GP||>(?DLd3*ue^*ku+ocEkDU#+61wd6dcMoNjWVCEJ7@4nK{|AEh2B`=D%`)t{_Z+%S zwwAxA-l2@Vl(T2(7kJjTO8HNt7Vr+FyRTQZ<5Zx2HR7uzPcsAm$IYjzW8e}$+)`zS z$-6rhj2v8iH#QG?lRu!CiY|2Z=c$yvr{c#pik?MJb3SU_c8Af8TPB)vnkWi=0=7&L zs3~^&B=bRcDmjA_qfbO1<1wl&J;H5N{+2oCpHOf^DruGw5RXX%f#@NrD(QMhLBBpj6~#YzdsIdv2nk) z^P4jg)1+)~&Rlh47Xkl^vbPF|s|o%EXK;55?h;&syL)hV4ekzuy9b9L!Cive;1D!O zaDoMQx4;hH|K7d35BsnWGY{uF@OEtR>u86i)}|3R}&4%Ucrw=%92rMJ`=5_S^*H+k^G=YvaRxxMvuCOH;;aB zSwi#AtUTtRt*rlC}#~H-`eHLJMePVcBiY#5ISkqXg@tkRB77GljE|C$R=acoP@4>;P zq5#$+5>`ZOd{VS290@V}hG8ZK9Yuqo?9LVB7q^(vGvl|ljNEc`<-=!_nTns)V3NW5 zko!hcXTpS(gv?Qz_*1>SZ{eZxk zU|QT>@|y4a8)}dbvB4EHGwsd=G=~!Z1Bvrr)Nqa~oxYDWe6QFL>Os3QiqVX;bQoil zy`ORpwTbv7ud{4`dGVch2aGee{azJs_!x|9Ts?w^r11fc-Pj-9e~)u?AO#aLbQ9L{ z*MNVJoLQGU;^z1I1b8;qP|*a;ccdTWK^gmFneHoIKi7NJ?~8XD&;+6E2f~LY?t$U=(vC2h%`R?>T z0^B1r-DHJ#YykLu>r6qlJoBqtmKBPuBF>BHZ%J%%Denn#Y$R}Rbyn9F)dF1^^gAeR z8C)JOTnKzAMf~xNw*zmD#3&)=X0m3Dk&Yra3B;QM&sH3?3w&{?jP6d)3}5g*YlA>O zUInJ0RI9?m%%8>HP9wGdf`L#in3PDH>oXO*qr>7l;VvPcwZdXd#-gHAs3xhVRsp*o~ zN81y=P866R8(4T3gS2Llm;QKBuMV~g*!#^q~{`g$Qoxr_;!b8Q1pP?&9U6^kke z;Wz*0KA>_1IO-H%(ePurrdo=@8txSz4QCmF$7o_=P(Z;%WnWpY%1M}19W?Wd6odIE zPiIaSM=i<_z@l&dcc2jww}Rk_bK!}I8$7urw-*yNW$x1$NJ{<`To!#L^6zvF8=kdt zilBt`+*Yq@{G04Lt0tfp?~zXPEK)=T-tP4W1QrGT8t0b&OC5s$&KJJ4@sBFH@Hf9B z&9r_g(*2#BUP<||Qbzjr0_$q2-hpx5GmUo>MHEy}GH97NR}UC#PcJFH_5kKFZkU zMuvnxb-AZyeD%>pVP6sXi1xnnc@Ca@b}6NbQP!02Wpc_}3LJ3K;dyChPUvh@enU%3 zAP2F0R^oq2PU@bq`PV?=%!$4^w=$vFy*BFq{7Mx&$Gmd4nh?58GV%!@EKx2Z{|?(L zEHiJe%^k@JU8~=O#q6_0n zqSlGop2Pz^DqcFFd@K%@@lr*Swm1;x-y>t&Sh419+s~Eg);1EYNZAUAlMJI+gUzjl z=KI&7Q(o3TPFQ0cF<`sF%*@%$w*N~^=kOaA=u4yqJYX6u{)%)Kq0Qasy)Ylz+Lloz z@bBWzZ?^l@mpP=)nyV6{1An$pt9nRwpEcGTsCBI|ayt+HrX3Wq)zzdwWGMcU=8qXy z=jvs>oma4oauX7#HnnZQ`!LDHDcVn10hi!NM1gFQ6kDo2`1kd7ZsFoe>R3<3#y5v% zhdo<(7W2-|^w;;w7Q7ZXk1fwO>|5>acns7V2gO)d#}D=cl9QA`dytX6Z4(85r)^g-$`nbkCB(+IMXD&+9vQgAt zdDbUtn6v6ktvwgqgmQj(zUCaJ40anFTAR}H=RHyKe)wU+W;WO0OMSgS+~N7z;_5nz z0F?0*QW8wk_@|Hke4*1W_xO#4zvrpX?}0m?@jTF*`BUA^*!n8^SM`Bkw)ICKLN)?+ zfQ&jbc2mc>yDq#mtw>@NunhyQM^u|B&Q{t4o~exF)pZOGXi+WPF{I%FDs`o5Y23&I~E`jI+otW~nW2Wp)Bg2Pi?Re~*8i(TTZ7}@I?x8$e1>dAB z@IY2@e7&|A6a7vM30${!EcQE;Ht(jIWe+4Y0@WR8DSeH~^Q1U|f#TMEg0Dj~nfjYUZ zN72hGl(`8yq8raYtf^XXLk)HT)`~oJ3xE)4StqB-K+FI*-oH-Z#koXPj^-9`5sQ^E zc#i02=G~Ke!j9YhY@6b0S^S7{e@UzrT4OEv32&Aut*%0Nqz9-C;c^QN#dH<;OK%ad zAuYrZw@5nsb9*7SJh_z|6T1G33yK%CuU&JO4|=u7bj5=OdR+D9>L=cX@p!hZX7*%s zPR$MYt1Tr94kp0Am7XWKi_^^FWq2>tQazh_xJR=v)Ct24q`aifxC8Wzge(uZk+%H1 z&V3D($RMLblu7GpTf|crtMb=1sFe)?M)ZQ6uB>v z+Zh4~_n6t$g!sA9!FbINhadDMl<_it1+8_1ueXXX zhGeEQf)bVW;sNsp0ruA6MhAU2%ophHgh~L7Mc7fsD?lj%qmYUms`5v**g**c8C`5f zvdr`IfaONUK<>t1LvvtPPirWH%)v~HM{X|KSZI=6=K>%TMNEwwWdw2tgy+kkfaRyn zIMX~%nm_GUTF`etkA)`v)4v?`n)qT9M9S+*0K2Z-Ntd=$AB+yvH8|#7e-taiV>YsitXa)O9_7fs*eq0*sEMEE%U!*rEzA;1U!glSVgP;3@7K-=h4|ReY!Mc^f zW0yTg>}Q>dv^AUoBmep*&dJFjiQ?*HKrKi}5VT(Lfz6SAZ6FPuuZ6VS5|dR5rD48w!LY^}WlKLnw6F@*lmBr;JvvA-0AN z4!W9ycT9=$DwoY@+<|}&r#&oA@c7FPToXvseySMu;B61F+cLC%9tNe*b+iJ1jpa~iJk|5c}ilx~$ zDxWDS6)m~vm(-?KfKyZ}#;s4$|0;>ErWMugu+X(P^9J=LCMZ5D>1bi0YCj2g4E@|^cZGl1LnqUeN(%qT*k?7wE|fI z`fryGN(fxIo(aI=N*ZJ#qRu+ae?2%n87|eg-;@0lcfi zi3~~-)hd?HKB%lzPrVR0?o2ws5XArbVT*$7&3Q^Mi!)W{Dei*h`Uy~jS4tJ$tON}- z^kX6-e?`MTP9nwO&(1c}{M=vt5(==+>P2ml*xSxmJsh>4Q~k=Ywzx}ex_-(Rzg_zV z4|nZJ20G+bI`;Pd`iT?g%KSmL0@psi8O@ar@kHx_QV!;lvN&ZXFG<+OCctLwsTe=J zlR?@Sd1E9oI4jmv=dn?ez=8u)?Rn_(e!+4KTkCo%LZ)9R=m+6-4z>nP)@!hN37+7n zKpA7R9)d_WaRDEHN+In!n+@Qy#g@Fl^}sozR3WmT>B&G3SlgUDKTvHwE-*k{`b8fO z^w<(qn35cg`LBLP_Y)ead~9CVzXtYngLuz5KjOxWlMPjvx%%q35Gw<+31x*X^kw!| zCqJ_gRK>Diat*+*3Gv~$G=IL=ah+In%ami}Cpx(mP`wg;N6(C`&dxw?uH(2De>$C8 zl^D1<0`Y#n3St4}q_6+MTzR=0NzZ+b6+t>)qiG&sQOwV7w0#m1Sb&dvWrI7KG7?(( z;+y6ZzKvqV+TtNeHw5jRY(RoR1`gUthKmk$hNF>sa(3l#Ume6;T7q%Lchnh4EK~x1 zI{Z}YxZtN@$CCcjz(V2c3=ittUMu|ZHSQ|0$m3=^s-%?w%){O&3@4@`9 ztOkOCzKq1_T+b-K(N^fUnI;|)X6Ee+s(g0D;#8nhtM_4E0^6D zfF7YeTQ8>k24@$Zi&eE>2?YODa1%^1o#yC-n4_87@nf6+0>4pViO;qIPhYYJ{JV|M zBl=exW|0LojCBrN#3LEaiH0|PSK$K=O*0&ib4!BmwXYhVH@k{=Kmh!pS4Uk)txfjD zD&f*_zRiwrRG3AJ?E~Y@mY*@lu`M5F;m6X<-X!br4X|3Oq=}1Vr45NJ%D8*bd;@B)|dU_kkdQ-WJC`^ zqP-$N&WmLN_5JRSxo#x`<@MfeBJrGjo;4!ArLREOw*YGc>8He{OrZ3Qils^i*D~|j z5j7GMAl^u%>j}ekkV)_#?2`-4=Hb^FXy0NhNn^eB&VNb!Kh`}y&)6-C>XM_mB|f=0 z?;~kR07*&gw*yqZc~i*;PO+PT*W5=7G=<0$ln0FZXKs9+@(( z1{Qp_Uz#FvzVJRn{N2tgA89xNl>-qAf!Qc8JaXQ|6VtKNiq-L!d#s^HB{-+%i~_x)#v8{f zU^or_5KJ}htb~&IK$VHQ%_8{8EkhTw0<9!$tiolsT`s8f=Fr^)SlS~#6h@US=E+zr z(^2jS+plAF)42zT)+ekGat|1CPUNTj;`=^PQZPlquM<8RN*HpXijk!tz&f`CsXrQ_$#MfXRP1QePwQf$`>UiG_6 z6cNal9epdpSh^ij#Rxq-K=K7Br5^!F^3_QM$TP8(L(})hZ~~e+E7TLXt~8#end^YP zC&Z-m4VbhP6OcR!w>UxRktq8h-*#bv3a4z~CrVu;%2|YEfYkGWn^*RVO}qXRS@~1W zVNA)GixtJ@o*SD=b4`VFO6xD$c++(7ny`|9vhdt`7$FZeAqB1zfBNu|y@)&+3FP>O z=o}(-p`-=BR)T5`A!_!-f`=W`P@Rqr>~Eek-Qc4E=80fvarF-2f$E6UmwmK`^4CSe zS1FNc1MDkbWWor#1iTRW6t*8ciN|0w>r? zrbK=;kuAvmQ@p7PpWiG)n^JD%!?4eb8Oya zOJX#b^Ka!x{Wq|iNC*0By~|->G^}zZkSki=NZn(J;ZW_9tbG=A3xcP(8zdp$%m8Qr z_~dVAqRnD!MFGbR%f?%|ffjA1ShK~rUFCX%Q9VyfN*{c%ljqVAV`l6#@y`#vMzA*$ z4ve`oIj4@cw<$9x(oX44y?-$bB=M}XEkJ<}qF&sqD+9u zFiHraH}@@pPfiwBH0Ya5vL`NX{3x?U!ro*TLToom>?^h28FYSo{kA9X@e!E6?qyaGN_CUd#~ z&N1aD@vEVouUx8<`8+?v1{5&w-Vz6qQ=*qY1&UsnEOrpO4^+zlqZ*9a)cJZLkq8GrkIFlU`%Gl!_5?HaA6xtPZ!AlrQVmem`z$-TruKvDFX1JM<}xwXP)0R z{HepJzB>$El_46MH(~qxtyZyT|5)T)qSpxY{JG|Q^&fizEteNh`Nt5s+kQgi;bB(S z_$2K!1aH&ZZx1{X?V;tLKDx#w@`C)rzolB%s$LacDx)WyhOS57qXE48$iekf)iC|Yj6px{% z$avZ^R*Y3v}ihY8L$1(ci{PB%1vpTiR@mxQR+H6Uk;aK!%H=n?doeJ1LFk zv9??o5SVE~)cqxp;-+-J??(d(oWrc|FA}v(2^T2Pf;kTgP>2EMwZsW_Ecx#dH2L)i zt-UUu+bZ7^!9~}Zty`a}ZJKiUuBU{o&OTr$IjvFe&-zuavqiXF2;Zsd`JtD1 zLY;zh3zLwI)*&M|r~iRfh~%P37Vfya!qCy^wR>3lZ`cC*Qa1cdSb|cq;=%`TX}mYm zM`fXN%l(>+e>(ddL)A<-v-H>~5vk)reU#K9b z)zNQPAK?xc`bA&1=?*-Z2yQ#1X}o;Rr}?S#FA331WZz_=9(GR9@fUY@4D`k&fI;B8SZ0g^C4 zcBbxpO8Jh^PGfQ37g4*HV4oD;5u&B&W_MG3yA^a8e`najq7ZM{~(mHO!r8XsEom%G0{L{q-Qr| zxly@ik@I~!E204mP>4#h-T3J)12g}&m=ZilWZwXR+JT#CQ8%&`vr-D2EF8oBZ8DTV z3cy>c+^udyJ>N~d2C<0R`_7d9>@yA$xH1K26HlH|cnsm#)H{k5nP?$Rwg5rY_D%K< z`Za!)?YE#%Bd`up_8d?fs>k^|F19IG+dn;dA;38azP?k=Oih>p@L`X2#Q1^fhi$jQ zzSKpc3!lN)DC^VkFP!Anw-*TLCUbgNh?T!8+sf(r0X;o^-&yKaS+=F8 z+WEXwh=Jcudk z*)Kl%S^YFh@4YSk7Bj6TK0P2Ac=D5ra8a!wkY41n@WwdWe$f{?njDmEuM^O3-|izW zBkN;)sVhI)6l@c$5rjyAxm^DQhb0EUb&z9)-E5t1x7(T{$^@^y^q>-rUwWEl!O?jG zR!dE?5cN6C`{bt{8hQTrS%Cj;iG~5b@CtbU+!C$U)XNE1+MT8~8@WPLS-=Jd)qLPS z6_vcJq~N8%EkiI0`?;ezWF0fJ-=Mo{`()vjc{`Kf<$@BcRxpm~j)e6z1+ z4LYWPIEEamh!{z{4WBO_4kt;%1SAbUV zhiArK(_w$^6RA@x9yOIFy*fG|pM}^+=qNVpva!teQiOH%Gq~B($omwZ#HaS z`z9hGV$FS$;u8wC)IV7S9fmttDZTmgPXFP+Bmu)Ls7PnZpO{tmut7hpObJ+DWVi}B zO2NLhU(Um+5c-P5^A%h)&7kD#u&blWC>n(R7&E3BUIC+Za8>CDaS4SI)ywSqRP?JJ z7qM-v6#rQG;rFDYfdzA;Tn|{^(JysdP6`e$VtdQ@aJ2ET&xI3E0bc)+gTUFQ`<1KOs}yj?(+v^ZpD%L|9?OX{B_+s0s+ zf(3-&NWYk+wtGh?7$82>vMCg+i`37LgSe>fn!3key4J8={k)Xnb{vJ`=z!B@t0Ogj zrDV`qHI2+OPeJjcoTacYdkqOvRL)-ZT^;Qd)HuDtgzD+uSQlbjuOaNJ(`F7HOPPY^ z?fCxu(RS#W&q+-$mmIF5y4$wW?y*okv7Q)KMlZ|dg62BlI_#|$DWd(|J~fgn?l^C( zdLv{bFcN{a!8dlMO*NZg58XtIlA<+VZ-?{Z4bHgUPL^*lC+R%)e~r4KqjT9=5vDyG3y&{@7VH;n#j zsO+zV`-+8wS6O@;Gac|WQ^guwOKhei!eiIZx|04zY|*Pbihw9apwLUyEo?Ur;mPC? zyWI2N)S-INnI_6yWf0Zq0}4gH_Lf{7C`df26y%MK5l=F6O)&0QmB-Sa%B;eKd=S{1 zg?n=UMkXyh4@0E1&lM;=z_CQ0!&D0E-dXqEL0>u#BecDQ)cfXev#~a}MF4r^U-Gh%kyLVe5B5f6>RfQQA%)7_R6XEwHiv7m+}d zeF6oAM|~ez(Y$tBSohxS@kyFPQd9CIn0atGU94004)-J1r#jHtdF!;EH|4B{KbES{ z`JTiVXd;wU2XjX=;P((1jmb31=WY4B2f*XAf~+Wn*}~TW>OlKWqi+VB5>P)Spen7p zy?hQ#$y>c?5$Vwp%d;mh1X(vllk}T{VZKH}7znV%U7znVOSxA3M}K=`amL``U;`(x zi zOk)l~b^KoFZvt%VU#dF8NahMxtEZb`kdXN31^A|Yh62ni=DJ>#Ifc_?@zOxEw^S6H zt)bZ6lb;5t6Ia>ml|5f){t>2s?&=COITkQ_SPU_mY*I_b!mj>3&mW*|tU;Ez{}WDS zhGg-Ty-NRDKS#jo)sXA6J<@}wg37|)Unpvv6~Q1HycHqtZbgr~Gfp1ax@m{gew_J` zd4yI>2Ba)@oa)=TJ}9}8?L&9W3#A?{aQd{U9yFu2k{npncwyLo86^b?yYJfbNcRB| zFP!0 z%W#&GVkXOF^8oVRI7@{uWdRk1U?Y~&VkYZls&2p&vE{Pm*s{k7SuE}Rcf_7-tI*+4 z(}RYWT{_*CPjQUa(^D2-2B4bTZ>+7f>Sa=9wO#Gn=R=aqmVV0EdsGkU$)Ax9@-i;X zd5N7#r!(8ZavoDhH)F9gY~m{dPqt|N93wjubz>iWMudRU6_dp{Ru^_;`+IJ^T3|Ol z`4i+va{S{T+!=o!t@ss#X^IeUF)r9Fz-JTEX;r5D#p9JetCS6Ne9-UzkOk10yX$|m2I(j%NYuOQ?D0&F#3AE zT#P| zUD#zAR*nmcR*RKM<%*&a{?U!MZ@}52!BS<(Ak>H{7yfZM%|G7zXHo*z2K~xm+6U{l z-Y1c1pX|+jH@gg{3u4&ixv}_Z7u@;a3PWc@Lt0~9eht?$+T5{Fif+(zc4K$J_Y*w+ z<$XDkO`bI;=r7cE8536HDmMf++Bb{TPjIa!>W& zN|@dNi`SVAkso>R#P;U?j#w{Wvy`LaV7aapauN|j<2VSq*)XN%q|o#l#yB{NkXQY zAKuA=>sDa&^n!Y>-ucVun)Pd}c`%)D;j?I&FEEHu&*76neRn0(vx)Fe46_S!l-s~6 zVO3DC2?01$5b3DW5~{ zYbWNnoXRiZDzm^`#j>yXm%Nv9Msp)_z1*4^0ngb%^DN0mokTz){w ziN*cLal^x>UupWe>en*N{ySG2AMRTm40;QcwQ7nS6NwkPM3U@YyAvDE$Xb;<{Vvwk zd16}yI=(^6C)PbBW7Q9nd!Z5hH(zp_X~m}eG%c}NipLi7L;(z)DZ}q#@jri5RX*`U zOf&3s**WE7Hh!hi^Xrq?-RW&YzW?{taU}kJHt_MPi5A&gXV<bnAe5tX{=tcPIFw_WS)a0fg|Ns6vkPlY*=*2lAC*Y>d#QxQ#t|cpRWhBjOvR|IY zmLPEy2BKiI^*35tA<%c{mn09W!Dgw7z#)vjxdy+)n|(Rf{?Ncc{>DiAu^bNhpu!|@ znIp)2;G9u+`&nTef31^}j5l;3c0jX!U<=FD(;IoyFMdF`UvBe)G_D{_L0hxCI)v`? zkL;ft3QQVFh_~jMpqHHMGb_EnPTmF^y~Kn^i$ja>_na6;P(2|5e8{-O-thz1=#lrf z`1d|?U(=qo2Xi&LG6>4av5!W0f$irMz4>mq_nPj`Z+mZ88^kueLtDl~gho(>kfc4J z?3286vV2=FBokrGV%#CBOY*I;Bka3G*#F_73JjlpeuG`}!+0&bXhNwmeodxR)bYj) zL)yE(({i4%>$*K)jIQ5lZ}Qb$Kcjb5yEHN@2vIC2lYqTBr!yMr#@s|^{(+v&@1yCz zqlQat1hqvxl0k+~bHI(}6z_`qZPjn-q8Ra`U0PikAs-#?ISt&$(Xc1>8)CL{gPv=I zxTn8HC+?EhE#J#coIK#P>wBx8kO-i0EyVv3tRUav&pc~uZr0b7gl~}|?b9W<$d()R ziPa$zhC2JcGIFt_l^gxGagF(=Q~9nCu#0G`bIK9(4>nqG9)(-@f_uWG)HU2)Lll-3tS?qx_@sxtG^~T zMf`S(zORAnkHyyO>u>%2M(Bh+ph@>uJV%r30H3k&Hkl8bd*@xwA+U*){cC%Q5Kw%U%xHB}jQlf$| za6Z&1bV(p?_?m29sE-$Pwyy()*yjW2vo$bXJ6Qep6mJX^LD92+@#h3OQ^_JA-{0Vh z_(gA$_9nWIa!C6iefQZ}R7WHyCk2zschB#jmZgC8!|*UeO2${arttL!&drzJn6L2!5k7WH&fa{Vq&1Nl%?a%Eqz8 zJc8I5GoP4L=t9|Jq=5nX-qCLaJ2%nWl7c51Vydx3)L+Nx3LX~0LAwJ?$iXo@z$*Wd zPVm-Lof+a)B&mDM2ioknLLIt6eY}ocg6}rZCNHQgFjRtN1CeJ}gaqB7V8oPp)M%w` zdC}M6X(_1R)H5*Ep6Q9S1)Sc*=wVsi)Fw*6Q{ws+6V?^J0?s81VJd$3YCiJYkh}#E zQ@Y=<2-+7>X6`bgWkKYG?MyH{-a8=WKS8;LDzLSd11tifs@YAcr%Jqz+w31kfD!#;#9n|KEyuJB<-+o^`Q=pSZIv2GLi8ILv{>1Th@%ilFI3H*{= z^uGtaf+EgUt-*0NMR4C$!QfM|U@g^qKk+ESIB^xIGXGl9w@+QI&$c7d%c^CcQA;0) zYHpRiKhvA24iGjrS|eD_09^U!O^~+YO6BRG$PsknIe05O1YP=+u`p0im7G0fMJc~< zd5KGs1Eb47uj!&zcTyuF%1XwQey5=($K<9iK#~;|oJT%D@jLvh;%^TrX48jVub}$2 zYZ_k?;{thkk-bTU9PlIZ(dM%`78VA&&=koOQ&|7m7*T!8m{H1}ayAg3TVaEH1>LwhP@k#BXsiDzTYNG;L-JBGK|e znwYgGnsiJyqqX!jNax_MOeO_7G+Ry?FoP0>pjZ9GBHW~2ZffTs*-cXu0d`aI!W5## z{t*7I)*c_^az)WGD7cuv>(6u;?*z8k23SMMA9X~}(>)Wupc}qcy!<@RLP0%R{~AV? zvFjM6PFr9B{5OP@z$yw6=7E^a|3x>995~>~g66B!zb?Q)-0^iogsF#wqm`^;wZi=w zFb35T;&^|JbkO@44ynP1j{0g{ngZ&I%sl#j0NMB8CeO?VEu2PP1t<{`k)}`q!h%Kl zn0|idiKPnfeg@kqF7l@!asyR}WNjNMdCx0+3k!RuH!Gh5NP|qE!BmK?1_`CXQ&93` zK-dSBY}U|_)q}wV5L$1qtPFV5?2-8LstZ9?b!`lcy11)Al~4Grz!LZmkYi#G5=hkj21dC%Ar{2yx|2WmnTECy8xf*A~j z(EuVw!6TMKLF@+`=EZ(}-tzn)sm29jI|Qtol@^Zv4mUyWqf7JWxYBmF!QEX>7P$FsfrQIo`# z2LU1-G;G(L)*gf|8DOJAuuL1BML^O1--#&B z6Y2*t?)DsX2%}jCLf&&qrWCTv+O~li-#Zo+&b0x;GVL%qQ9%ua1H*}56h0_%)SC;w zw)#S^LVYM|={^(hqfA`1&W9$2HQw9Uxjp_+un~5bK_8RR^SuR9qW5oW$#BiI0fkKG zOTm!wC4tSy$P*|TO zVzDd!ZySsB1rB&Iubtog!rJ@7q!}jxwH-`nl30)zRuLcP(vE7~oWYX3FOosu~x z8iAh1(H&0^?(N2pub!>nN|;05ohS;<1we7zs_4vQ*d@_%a<3Ft%hPJgZuD@al55)Z z#~&F&@$&cfHGp~oqQ9z)_#zl>?Th1cUkE-BM_i+)honb8qKm%nE_Y`dgzn=)#uGix z4DS4#sxOTNA@P2mo#E>Bra8g5hz@k;*EI4>5e^5HYb+IYGOFBh{gKDqi%Te zji+9U1sBpk!B8FdI+=JR>YGMJ?Ln;}C$-^8kF||ZVf6{dE=iU|_%;Yw{kjALuf z-NrEx>jTp+oxZLMp0!;#`b#gl#)|{x&Iyk<+I}CR1~L7D9^Se-(4GIgUR?9qqDRfl?gd0 zNktCAYZ2k}r!s`=Htdsv1~iV7+P6Hjp(>@G%V;GQhUA!Rz1fQjKjr z5VZ#P#{PAw<8{)E(ozF2ql|%cfKMgaH4{fMkSkVTkWV&Y?X#$IlKx{#oDS~n$K#Pf zeiYLu7!6+={*j?11Cg{BYAQr6Ft93s&1j+uamL~CiJ?OA$+F$zT~~~o`ZHSu;~h`^ zEi{HsB(69#dw!~e-oC%XB{oU!A5X7a6xP_@b=M2kQ6}*OqTrh;K`Z92@2^)tpwP{1 zI**36W5fejSjv%Nr>4gkVbemyGzU6;<$)@1s%`ieEq~`7{H7~9^#OraB(+-|Qze=ZP9?!ERAs116e z^}8vLDpSs&8A2!myV{-%BnO$6&>Lk{zZnvr8K3NZi+X-YlW371GVs5#EI8xtm<84E z(TXPA4^uyO@)qsw_%)GVpOMUb&$XPsiR^RMqQ-<6lr5Bz@8}-i`1IHAf1lIaXWr=j ztUgjPH8@jNWgW?y`X77#nI_&1A#MHJUq;CQF;7M88AKATb0ZDo+n>Z4oP^p)O01km zG>cEA^(vO+>`%qWp=*zdtPN$5zMR0iKvwXZ%HPpN)wEKhS?e3G1zD{X6Fj@7xk$E; zd&a~XCa2JMVDUf%(S;%nlj;%~*mCp8@`w8V02tr;`@LzH>7R}v4q{6m7t5W!4($`y zeNxH|vf#+S4_4`d|-``I)9XD{$xhE>m6=u`errK{R27_>k_kb93jJmbd7n zUf@mU=Z)j8aqsKXLpbs0#lTtbMi&yXnqa#0zP=ETYY79)HLb1`Y=%Uk0CO^y00!Z< zI?X0_+*^C0QW1eqoKiOz@{ka%$NF%JV>8cJS}M>VN2xP#U&CUxu~H~%3hCcczY5w^(e~7?D5AhE05Np#KK5y!@Uqc-F?J8 zDUDD)^SPj3iXqgi&S{P$vEPquHCAraBUBU&nD>nQUxjD>RjruF!K{Ay)M{f8%aOjW zYxA7CS3ZC}<@@6Idy4BY1vT7ZGwHw554bb`*0cNaXs;*F=*KC}>YG21&JnxgGMO)5 zo!rDT`FT=;aeh5-KpKX!Rtn7VTJ??joRJe7NnL@o#MQzKldDPdT0DXy@a$ zsxVOk4W2fI@dYRL=_z4C_VLuc5d2(Lcg@Z{`g`IY2-zXMD_xtC_*0wh!rApHr76u0 znJF@LcE3lBXWi)ej~=BkOtgdkstIhXtPJ{8uLQ&CpgJVZ4AwwCUpZ)7pL=bA&e@kX z-kgKlZ2!2)68Rfmr{#ucuXp{-Wz*Yp(fn~j?y?wCiOVWX&?L$WtXqT=!}0prYv6wF zBdhJ|qepJIF}~F&Mfc92T(e7rye4f*2E-_t7flzx-6Mnw6k**S8O8f7ff)^p6AC#nm7k%u5;-*vq-r zSeml_JL!WH@bX%kYHAj0qNk=dZ$!9u53o3D9$ zTL04D3W3ZwR9Oo+PfE0fFI~tcUIqy^@_v|^^O8n*Trp@T zgKRbtm!KUf?`*0)`{9kS{Y?rJ?`9z1P_kI#NH?ec@r#gw^_Nyo;sVz2SQ#-)-FMB^ zNo9k4XxDj%KJ=m7FgZP{W@vat-hoDyV6K6kXJNIt078hiBN8_R^A=mCM7Y?m*v zf@R#ZvgP^HPDQ8}f36tbM@MGD?PS0jN3oZG5trR(TEG&svw~H}o=|8$4Dym7jrqyU zKcnEGAUq{V$T96tOJZ~=7%3_VWrEEvMf2uEi*K#RbvvB^P8M!p9oo+qmGHR_huQV{ zh5OBt#n+R3cE3^BrIVNrUeA^w!8$&x#Zvf>kA3FlgiGM7YiV&G(x~mwy_iurU$#UZ zHnwx8j{JWUcj9dN>Hts1VK_2Ahew^rO^V6FTC}<|zULeNVgjET!`g&a?W7W(NWpu<+!@Y@nq$r6 z*!xzSrw&RfMu~pUGtj8u1iO7a*($1ulqx!egn;c=y?T7(MZMLHtPw(QWfrVGLIksQKpC#~Q;CLHPZtW*^}6@=%5z#45`fpuS;u{2nl&lm2noKfF-2 zh4|||PJD?0ogpT1+Di&Oz{)S~N$786|7;p>OnIYtcla{#m={OG9e`zpp*uW{zHijB z^0^2H0@zmQ=n(B?0ukENC#wo0hci++vW8VzAgi4Y;TX!_pmJkR;Qf4~3FJkS1TuXn#|y=$+v-rxG| znb`^Uo5Jw9_^0!5D-0&TU)DDz$UJp}?r>BLei(ND_4-XHg#zNqv%gJ6*KXV6n&$Le z06>#?jf(tqa;phbv_@kQlnZ4?{2nT^RsGqt6~T6cXPAjW|M8OrzLrXy>>!2}$TZUaPcy9Q9pn}B`F83(K@zsDftZGKW5Y44!=lDRwHj8knL_^STnXTzj zZmGnF#!q5S<75O!sByMYMR(>AEu1z%pjJfEd=8;-$cEyrk^MdaAbvc|FC}fLpy}Vy>lqcg6vRp!t3I<@ z@u89t+E^&fqV~sU9Ad4Bb)o~{n)+5kzOIW=Eak;Kr_ilL-21Th4t8Qhej(*!4XB11lu03BzAK z>IdIkmluah)bqdyq8oKGI(oRIqdL13@7fa}Nx@6VBOswZE%K;vnrxPx!;_t{*QXhg z%;$TWD`dX}9%u)*O|xEB={?4Ei9}`YspttSNGeV5Sjgs03Gm4zP9kzI)HT{kS8dN; zC`jUOWzY1MeC@j^a-O5@p#}`c9DGgiGS=nRhj_Yu-Uk+$EMAa_{3fmIwO(oqUd^ij zt_Hs!z8$rseZyYn7^A5ANn|x?++Dun;G8RHG@B{5p~*VgJVed01ZG70kTe)ik*f;$ z`Sjse=i=q9XD_Js34ujK2-f<1HnWlr*2mjRLnYn~PWbPc#xt6_T;C{9m)4|^v%eTkv&;?k0*G-3@fY?@PnRiZyvZ(cyJ zD!Qgk!$}{;r;d#tF9W%t3bR=4=k;Fv)C!drYdoT1aDDQ}Xa{aH(NFtb!VCzHt|a(C z?3PRwDp@sdzF}KSNR5xg-zS2cU$&%UU-j!z5Rh`R$p-#A_PttG;@_3_>PE$v3ijO- z7gkY8F@BVaoa2C%K>QLcwDrvmf14C3m&x;}j8N3&ZvC=U4rQn(BX#Y3pxblrtvJe# zP<=bY&T7T}X}(St;J|jxZo$E%!rIC^S~;%p@widhu-b!XoUs}wp*m7eW;Xjav?z)A zuP6{bhq`hvjr#S810R4niA|`})VhU|Gtm$jt0%{iJ@ey|PY$ATc7xsG1AGz<8`hs8 zZ`E4=iLk)$R;AbX5C;~ZthTczZqC{T@Xs}&C0zOn!tT}XQ8j2 zKmi$q;-P^MdHQWe9OU>-^4JkcgB&-N_y7u$L@-7LpuJo@=^#Up1^*D#r#`^>QFgLI zjMClfJv#%xx)dB~%X%AmA*V~2a5w7=%|_YtAm z6Al)9W%_LH1G1=Ee`I3bky_;i4x4R z`j({_+d@PYmr<-{`uO2~Cf-@->cW+Kd&H+Ws}WRA)0KB?v7+J)Q7s$wpDq?x(SPug z`;1eiy4h2hWu49Pr)w1ZUE0GV+PL)7f=a;QTM|ouhVkbm>Wjq8j@x{1Cb-d)p^~m5Ru=sAzz18Hk2h{Sim*rFx_++d*try)*ef>gn;?Wf z$2o8<(zp7D{~g>G+ZQYcM%ZHrWZbs56tl$MctM`!3uyHdM~)1((iBAXhbHTF9UN>{ z&E5E~Nl0E=wFUwC8``~p`;1LrOsD22B4>Hs)^@IDB4uP6Z1r~>@%KewjfxUurG+Q6 zV>L5=H!XQ*@fYuBnfseE9svt%)C>ZDi8`UWdPAD^^{U^!5~q)JrU}RBNR3-Fg~krl z#daA}77yeaT!@*Y&fl`!I%O2jE`MMkLOfjS-O{VgV}cD^(?s+(I&OKFme&c0gp1y7 zegRDpfS!by)N`$**#5pZ$^MgS-062liigtQ4+riWVVNVT(aCwGm zFYRO|C{t$oKgV4wU8?HcBw=;CYyTeqmk-8&!Kx37hfnNYjuZeN8w-1Lx~W(Ee*pPr Bpo#zh diff --git a/outputs/change_in_cover.png b/outputs/change_in_cover.png deleted file mode 100644 index cd347afe15e4a8e9da8ede6cb3359cd405a97a87..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 23470 zcmb5VWl&sC(D1vvu(-RsI|Kp*2=4Cg?hxD;_uv+s;O+$1;1Jy1-911q|L3Xu<<_mY z>iuv&oS8noGdn$9Jw3mUR8o*cMj$`{0079+Qer9q00{Em0|)id!iUL={_%3BB&R0+ z@d^Y2K_Czm6cjWxG#Ctqfq{XAg@uQQM?gS8L_|bFLPADHMnOSAMMXtJLqkVL$H2hA z#KgqH!otSJ#=*hC#l^+L!^6kNCm*IXQWGc?AUpMMXs=B_(BLWfc__RaI3rH8pj0bqx&-O-)TLEiG+rZ5xwyEvy1Kf#xw*T$dw6(wdU|?!d3k$#`}p|y`uh6$ z`T6_%2LuE_AdtYoz@VU@;NakpkdV;O(6F$u@bK`6h=|C@$f&5O=;-K}n3&ku*ze!J z$Hm3P$HylmBqSy#CM6{$Cnu+*q@<>%rlqB&r>AFRWc>K?BQrBID=RBIJ3A*QCpR}Y zFE1}YKfj=$;OEbug@uJhMMcHM#U&*rrKP21Wo6~%O-;?s%`Gi0zkdB{ZEbC9Yingw+9?&<02?d|RB z>+A3D9~c<;{rmUe;NZ~E(D3l^$jHd(=;+wk*!cMP#Kgqp4h{|v508$Hj*pK|PEJlwPtVTI&d<*;E-o%FFR!kyuCK3eZfN-Ohj)_Fb^!qJGXHyk(r&@Y z000?4T1;5YGwZz5%U5qcX@oOL?$2F_>xKgDI{e#YrZjD~SvlV)fqdG_ zI~Q9`YeS}En>wno#3rp&=H+@b`(~N?RE7rd4qo362z@4A?J8P07aEyeXkhIi9ui)M zaqCHL%Z0x~S@}g*%H-oMu;OIHXR=JS`^%|IPPmjQ+h>s_eZcq$3?iB-qZR~Dw-+?9 zgn&afs8I`GZw>-S)L}CT#Z(yqP3*w`XOSg}9=gDIHjaHNVWs6u>Tj0)=A;vAXk7Jh zVJ5cn)DcXH&q=bw>+z`VIznx~NQw#Yknuuk4<8$ER%Nf2C6HMl*GoF8B*Gffynd~6 z5G>s)yH0|~*-8B>wTE^r6>XAm#HocJQ55wB2&ZGa3c#oUJdx_}=H^W@jGMbCz!eqM zQo!tQ`kvCkVqJR+sV0e{O|uzlP-A}a0Dn@32R)MzaYp2Pn+YfOZ;;rhG5Q{{gLNxq z1f?@Aj6Sk(lYa%j(ssb86~xAHY4-%#zm-FlCZ#Lfe&c4uRF7l&@sGTYs0rSbs4r=$ zO6e=ZkLW62OMmr{fJo2xL$`y|#mdJ;6^rN|F2^%pnU`^Y6-Am=FZ$Xjzhuz;t8UcE zxHK`3oZ_dBqdmffKXBYr9ILG>76a0RdSqnLRfDG2j=SlpphB0Jgz7Zti`SGNuwA$k z_5>^MK#!u|i*Gv=YDek?T@bv|f`^%fs1%QPNe=!=w_y$ErW%{d!-M1yF1_PR3R_*e zPt7h?CZe-JRPp{~z3*YI0R_II$-`|zbzIouj7)#sg8Ych%jbhT#uCN6iLn0Dq_;91 z^51xBif4{QJViX^|Gn_wQ???S_F&r@gx0kqN*LU}$tBjL65;+Lt=+@TeEac!NAlu8 z;n8$p4NTxKilgj|Izbr(*j3W!gXOL+y?>Qciak@h(IBz9FkS8S(}V8d1i9WlGKSrR zt(!Pd51#cYL0CGtGKnR3&du0pv;{CMgY>f0H!`qo!)iwy?1G#woYq^pDxmjzdwI4kEE!#s+f{ITDs=O?f4K6Ys&&b0Pv ze1}w#+rjpU+B)rkr3l;ql@s{?_=!f0xTt=N3TP&wTlAPat6<*Du^k?#&~$l>rkg@1 zKg&QyF;v{*(bT<*{HI;avq1RSu|0m0vg)rXk2^M%X#Jkui0%f-?b1hX0@L&KJ-Q?1 zxVMJ-q1YxwezmmJK1rU#v@%r^K$74=ZUj98KWq~+kF}p$G%{JwH2f7xkZ!}*ys7

&JSvF{^0+E)l4zl|E2WixP}9g2-zf3eDG_%=$7cvBxS*J~LobJ8OC)I7ZDC+x0q zPGQig-;1^!^ex#h^uT36`a>v8v3Q%|=ZyE$sUi9^hO)I<+rzD=^i$TE{DK?&#DGug zzBvb}YyYI8ob|A^(T98rRIvkYr ztkA#U^cC4==89jWh)V2#lK)Ux-AstM$qe{q<)zpn%I zuWwMEILVD50m_JIQ164ZTGb(_;UbFKsTsOp&o)w;CV?_Zh+3c~qjMSHF~O}yCoNMJ zT-q=s=Q*4scPzSK$2e@3y7@?n5rJ9^0je!(d%SgKWodlVYgwUSd z-FGd6MPXpNZw2$5i|sPbT>w>|yyam53MQdIvnEC9JxW#Q4ghP6=s#;p%mL6|s}}kf z3lID()*e4Ln=^R74>4V=tZHt;A;hcaTta@SUXUx+cig;fBj6W=55MA63;1K;vUWk? z#G?%va$u)aXX9;IIeg!Ah?6ZKj~@Ov>=kf z37bp$Fu)Rot6-A!&qHD!^N3e@H9NfRV`Mu@z^+*s_9QviDzq)zaI3B}DPYbmSC_R1 zJ{l22kNAyyLt?WCB;Yr(9QPJ<;5EPb(O{y%M~}z&?H`9w0BOYRYb&L$Q24eI@W*gD zDbyE4N@&lU$%=z&UaK-yR^mz%VAtGR$hx>zpg*una2HGvuohqU5#eS_P$lKgGxiMi z2@@OqR*NTF+6{&WqfogbvT4J*^*7WlPpBIWoSlr583BLv>u<;)Qjiw$(nevCa%)Kh zdV`O&{YnEC{JbpYk%AE4eA+~DqYT3!6V2A!9ITx2Q`Z~J1Gl=v zpJ^nasgq%%nc#6ECz7hp&_h?ry{FX#T56~usU}UmF04|8{1LX*EBvlT`U`G9BjR6e zHFR?A7w}WvW?R3cUFMOU?csFV(Olo<@=W{Cf;Z`CnEoH_Uy+mKKEFn z$QAOCzr$QF#bL*&1S3u3iyd?4%v@ih(iDL21fR)3c2Kd0uLk-*H}9)eG}8XF*P2P< zay3@o;edYAF7M!><1gS}YkQm2M~*>fv#Fy$x3_BUl0~o=z?JS0fZ!Q$Jt6M9Q25dy zQjdWs0!^L=`3v{P41Tp;Qht2%PYw8*6q>e$(35&Y2<~EU)f|Ayw z!Idz_lq{~3dnfl*d@;kF3t6r_P0 z4v3RI$hbDG;0cor<_7n;mYYIY|N&$bjtW9V3Yc(Myc5o=>`aL#$;9vZx z|7?_0Ca90xZSAMDe!}Q}cweuU`;6)+?W@)*HmhVMe;BBO_raKE+-6mXBoy`MEM+z> zqbBIT&`*;(S{!ywdwNX)QHz^;R8~$U=D7gXzr!z^tMN5ueB_cZXkA7hUQ?6MX7O(f zD_fsEmspQg2}d)$6E8xxM#hm0n>yqlRcyM$pWeIK{Vqd-A6q}omDc&{{Y(X*QSg2^ ztw;bb0t4ghN0#V-2b`{aK1AELpPL|uH1jVcG8=f=9Ty3&U7j0}Fvr1hT?v}5*i5+1 z@K-q%RVb*V`HGO8E7WZC!$Ia#$RF2Fhc@{y7q7Cdxc)9jTa=b^!$dVu<$<}-pID=) zHP-xVTI_w-NlTIb5+7uIwd{hjQyndr$$Lt2 z8u?|R{eTs%g8a&oAO6R|Q|_FS+IYJ77x0civ0@Mg_@32xzZdZindej<4FvHU?DCa9 zWSkmn=~?95dZa5?i)gX*>}wx2%nN5%vuOPn@_fhK+NCDHhjE@TcKum}T)9Eiqyw>R z?kSX?HAL}Ciif^w>4)}QGA#37zb0ywimf7H%Qp+%f=>6gDrQ$%_qhE_WBKU7r)Sx) zoZ4lMhrk}_oC^3Sw7~eKo@O7~wE(mR^uRZ)52^+E`UnVV>o=iN{GFI^i0N2fL)xQX z5S7No)X|BXoeD#6B3yIy>_zB@W78IHmi)BLYR?=FRwXPgK}PbcPB6jF`>c|JT?%OL zXP8`|wOxFSQ<5egB+`Q47BgE+t zJ1w=*?RwupzRzJfF9*G=o7fwk=6dai-Q2z@(S0qORkQ8M3>TJiVSNK0f;Z~25h^uoO#TkFs8z71#g7mr@mA6x?r&A|N$B0*r-B6oB@6-yM_Atc&D0X{p-4jIBLJrP zZWenk?r;a=QknuEfz4lLB|-EtU&U1hqY&O(pO%&zFJk!O!F)SU`r8Rbl_{&^XR)vt zfMep*Q}klE{P2NTg>^#Q+>Qf~dd2JH!ZCIr?} zHTI207n);rirFOBML5E%!#1 z<)8G(wheFtYE>EN9!z|QfEHcYr?PAL2ABpcGz z!RFIz*(@TxId`#aFK@P|ESeM$u*D!c`w5_lctu68rFb8|y)4x^jjx4bi|le-{q4bM z?z3sIb@w!&n~hT#s#XLdsyX937^3ae633Mn*CaH*26x8J4^^>^tnx?D`_1=NA=tE4 zkmNzvew{K78}vGD&Y8=xZS?X}=})EloN#~Ng%tYPYNj>1-<0Ny?kvV)OhvoVig%GU zdzThGv+T4?|C`woBof3gq`@~$G_nuU%Ly^M{Oox6%^{l*fv_;wiGmf@ZXS4+KUr5vdP;Bn?O|YNO zBlqN^gX*UyxhJx3lSQJRbjvRcb#Mh?$Xe^)oEiA-_26vdao4X>x~5D(jqX1#Cs{({S2nz3?^ zqw#Q4ri7O0zIs7FO}h;*t_r_$i+mgybcY~LioGNGe z9$6_~on3_#ftie>bWX5|5K)=}TKh6w zFZ1f6DkD09n2SJ5Wk=~x8^Wfl9&1cmCXSFRwmCSCRk+eXT?VbVcQMJ{-?{?|SX;X9 z9KG7|l{o&Eb|)y&>F=LS9nsbj`^kIM(S8{5ExYaM%)u_;52VS2Sud6Ry8ABL0$^Q# zXk@1r{zY8w;j)_v)Bl(!w+>&XL0J0&A!S&+cjxjn_7!J*QbQYldEf4BM!WNe82s8R zQUYE$Z5#*eA7O8`qOZu8OzS}fUW^niO?F|Vb9iUZs{sf5;c}B4fsUAG$aF^|QDkmY zn$A`s@K~J}@0HpTvhW0k6^d>lBCz?Y5ZYCv=@|7=*wbaVcbQ#DZiN*@|3TfZOj27{ zsW-bqeiDDBqLj)Z#LO)gM`4B3u<>-4#fv@M}|C) zEo*K+$rpPlPZBNg042<;#}KZltt7o?*ncT>+_52H-QfAd&Rrv{$u)m*VpU*ogO&=7 zbvr1|#&7!+nW1g>x+ zY#cke!e2?3ES37Li9K8+2elMCaaXdMv?0iHdjSzvJDHkn*7`5wAT^Z~NJ?(u6>;T! z&csRrx3$Vo1mVMVL60ZsMsomQj)41a6Su&m93f5-sFG1O*XwG~HsGPK05V!~Y4rel z5}^`v_?9D{Y7!*^q4g~V;)211B>MWbd&bQASCT%UajhmZLx~{n{6Ns|b>f1!I~ifC zc3^=D->1$iU;Zv0JrvQ4Y#3Xtt#H2Yc={N`Yrxg`OJ|~LR@Vj=pu{vX8gf$nV(GY+ zn~g<5H_}3ProV)VJ3BnJk^oN=$t(2~BkA8q0;?VO6BB#3sv8#`SbLCf1^mV54!V^L z8r-SWf$r9+33rx$-`cRXVHWbCwqdtJR<559Fm7AKF+)1}CZC&8y!Q%Vx`Y-GqNmvr z^n8p|lK{Cax9hgP%8j4!gzj-!Z5dq~vOz@Q6C(87JzU48N{rB7Phh{LyLaj;cF)qc zck+p#MA8H{bRk>#!8J@%^iaMJC(&SukJ<`uHn?W?9hsXJib3+bM7US!dUnmARK`cQ z%3O)cOVV)>i2=-a+my|Qu_>W~49Rzn;YW2QwV{Iivtpw)J$#tRAURJ)`4+*y`lRjH zi`7>7*I%SN{?Lu%v@J^j4Nx(qc*DsO6wayh1Dm0^ z%Jm@c6wSE-M|5WJ))HBlb*UWROiu5V4 z`~j(~te`NS*yZq8q3h|N3iqu=*{kghb*2lJAO5Yulf$|U6#SByH5vmlwe4vlC!B-3 zN^qKr`r{P@Kia|hnV(al1>Wx}Cb5KtgrJJCf>2=?Madp(E3_?d30lEt5%IR-vE8UX z1nCloMIrwA@wpV??y*(sGwWyEoJT$aY|xtILYIk&G_(O^UHAL#Tb!I4;p3qffd&B%aS;BH<%- zxFGh`8@X*LNU6?vEOo=?3e^$Rs-R9h3VmdJu8*am;PCAXyoo@qdxYZZ{BzSIJ>YhN z;b!tqo^2kSV0>VbyQyoC!M*%-#AK3FXir0uL@q6O&n~K~{Op1EsM)H(ZPIY}7P&5k zpMdJLcgb853`*A0AITuvqfO%)-M%+?>X?# zMr$2LdANVZy7dN}>h+Vap**1PKC=Xtay$G6f2DgHa{_G#u~+BuhsiXLGrk4Ny)Op{ zYOt7vwr2pLx6BcG)53qvki`f+`(;A!U)%fgP^kNb@N}_za;(IW;qdG}lMr`+Z6%P% z9H)R}0>tm7s_0f|y%2+0_HjmvSH(_fkW&ed0bueL=PEaai*_@3u)Y1h2jq{U39TX? zC&AYIXg>%{683kfL-Dom$K-pd$p7M@R_$_X#LSnrtd4lg5PiUz40p9RD)H6L1?_d- ztq2etCaJ;$ww<=#fC<*W#KJM+IJ|)^s>kh0qkqmlvZaVN<6;8up^ zOy^ha)+v;lfA+?G8Ivkq@}(R4bGggB<+#q-k#Li!$v4HF$AATQMY0*?Qc|X`)Ew(j zY_XERa#SlNT^7*89BPlKrm6+;O5NP6ymXVGK2 zTPt!W%4HhgL_ILB(Q#xaPUiM2vum|wBEz9>j*PKq&cJHIW-m3DI9y^Q{#!*${uEFH zxdVw%3Fr_OjwHYF-K{6w9U3_NZdgwsXHS;VK*k5^+I|XYiNbe6N>p0qZftEw>TBfj zA?FlAbk4`st`YXSY(f3%L$e4@Bd7hyaM!ATA?D*U1S!$u-3-ENyf`inS=ZxZ8_{-r zq#PCyukO%1D+qK5pr&3q-d?m9yzPc@^A=UVq^qY0({1Bu!uY+9JZaP?8rE%SV|Z@V zQ|Kxx0CRYLJ+|=~7SmdhIzYf>&a=f>xjL&IpM5`5y9{1skTiFsEXU(e6K?Ta*Ue1p4cVy@)6 zS)rXNb9kz|>lZvjwvSG;;I-sf66^!c$v%_Wd@_NK0^`lMWB0*3xmeUn+&i39Q;sxs zouJMh+kb6)86@O6RsBb>Qb@v^w~Wf{RfQAvJq6@T1}EP?%P0B8*Qvj#%%>1nQC#HH zHJ){~Puspb-VP?|<02maj532z+&9H!FC(xg62v64VT7SHxMJq`0Zqs6Is6(OyHX#}s!Z2I=RsQ3 ziEIX50ucKK)TzNzCn%E8bXvh;JkAeEqW?j0ZWCZKYt_+<0QuT9S2g-yEzHC_u^87y zjT5}Hq-mHzFT!sqxp^da+w}xs_EUIHeyML9@$+9Xtgo7d1q5O)^8ao8eh!^@eVDqEC9m{JC4!K!y!v-XzP99*u={-8Upwk5-`%=v#*Rl8fzbt^eRlz^&9fjJjdhkFS zeOqvRH12HKrr`a6v*n9jA}Q3jSkh033yt7DVZ^J)uaR#zDiXS8o<39EDT}$R$rs**|U9t0>Sq-O?;}%1}}YL^?=3!;%|b{ zfUEWW{1rba>>Tm>cLGeJ8H&;L?YndU#L!?}sxR+K4)uh$>BtD$b49b?ZwX(E8$T=$ zRi~YyN05j#FFS2u1yXrQc;a{ijI2ig<8ABRUmLtk$4kPrP0O0GK`66;>~O&lj$!IC zjU+tHwDhxNe|H4V31_sS-6${oOM^UB=Q&~_X;3DIdK=$SZs|?r+XW3oJ_45#3Sn0b z4@iRU?XWHH@RWKJWT&Ue^jor_+4# z@w)1p`P6;&djSuw1mv%gzOAXM!2HsTHq@R~M=tiP+%O{4_479?H2;CqJW-YG(*qQC z1=o!*oV_F#tj}vYvaB*G)Px8Msf-bLG2@=o=IKVyyJx<^mtw;i4IU2F%(|-b zFT?nIeQ0(f{MtC|jQ~L%L^!Fp7|=NDyogpKe}v}G`8mZ+(v7qXyR$SFvrtcN%vIyb z3&r%!qR~@S-{T2?Rk;U~t}$@u+Z<)cy&wF+D(ey_{|SC#9e z?1;b`~j7ifvc;DF0%p4<#*pAMR8uMz&1zg>$ z_stIoyh6U%9UBVXhV~wYXhD!Rr5MNH&!zF+0Zh1W7H3-vW-C3Hx{4)in}lQ;w_^Ju z<|u?jmwJNreB`BwucbMy!`K6;%b3ZO^WzK}$b2Nc-Nc~mpY4O(8p2gZ90FSLIH`_n@Xe zG(5b~6*M!d->f}XlH2u%6w>>IRGMglpvh+UW*COUHeSWavcCk&rer?^jGMuV4nTjRTd;iwsl(#jPT#;6!GJGr7)qEg4tOLq zziWw8%oSGSlQ50cUTQ+1P4Z3>s#X~zR`h|zKF6WopIo7Lzz$#KB!*Qs_HRqOcThPZ z`S8@6lF`Xp{x$5yo<&{KD68h%PZ0#wCC2mcM5;q$BA&)cQCS87A<;Mcz9F4DbV!84OGKIv_e{p@up@$~&yj0@J}Yvw}K*Y!K! z4{U^K!jEE!czAy1uZtYD8(Yd9@s8s2M3b|QB|51iK31F}Y-c97$X|=ev(RGfYDHGT zRuAB)2V9~p#dJ!hCw#<0%IrJGkUcD8CipPtT?K5w{`!+MHH}pjJims1cSA$BhR4R9 zIO1fEX0+wjD)I%tRi{l{M>>Ea!&EIa*o>QTWa3Pv!=sIuVfp-LhBuy>&m7I3TEwq| zJ|zPU2?wK>>!rNSOa7rq?}H|i$dGT1kP;Hpr+r1MYGX-=>G^y@`GP%SJ{N~&^w;Ob zkuWLg(x8LT3inX*rIpo915n^Op%h#ab$c76@`B)~ znl?Xk6}OFm7k3eq$RnQLwU|lXQ>=8{vjy~qP8S1VVcht*(Sr67*WK0>o7O%1ox=;N zQ~l)$LF(6p2YmT{9`HV5-G#Q6eA-RW!f+^Z%}?o%Ar0`fK_u8n2HLgH!*oOICAY!NKky_(QcyMv&E*x`Q@n_x9V|Eov)k)#9`%IJt&Zwuv7*} z4(72KwA9sN%K{9!Yx~oZz0#PX{AYl7VMQ!5p3{lPpDd>XYYqHOHeT3(Qb#WqKCgm9;N1HIpS+JxFUHps{-mL^>jD`Q;b_A}kPt(0VLHda^`r$SnF)#qA^F)Y^A?7U77_XJNh0Az74Uys~0D}U;JVD+qZA{-e;(n z^Zb|z{_5?HQ119-Bm0g}a7?io|JD=5UnpZ>)f|a$_Sh>Zj|I+M&_NF6{p@?On~vIL z@i_De?z!~y!gGXzOXo!Z&G)^c%%zOSl~^(Bci8Sb&F7lu$kkf|LQ0q$13od&xWj#) zf5JZESd~=XWt^6Gc-eBI)R9Fep*q71SZgw5LE z^hrZuPG^&vGuY-y*{^?a5zX*vQT96@5T-N#^>#m7yxX3Oy~lR&MZWrfWkGxPyDj;5 z{O88-69i15^b|%J5)-)MH=wdjctKvx;42yw?|kQu>+H8p=Pz# zkK6wqklF{g;-zOmHf9@1=~aV`wYBNb_peFhBeTDU+M}lg(e!8k#|8C)Z^SYFqx;wN zh;z%Tgp0M+`5daN1hK@qy&T5E+7k6R?6v^FMs)RYXCVwjS0!U_!Sfmp)q{K);{|UJ zgFk`sUXz;-5fEz8LZP)HfHS%# zzW0BIc1NTC9oX={!-S4YAa;AUY!rCJsncE!CVZF5lpKrBtzJyc2lC5cefd-xVu-$Y zEVu11Qq%qxJWy5tNSCOg(jgmQ_0`+Zq~XfA!*?}0c>X8k&05{qTMdJ*t% z=lt1(lW{+3bw690-flHy6{$|L$H)`wJ5YR_1D0Vic!9H!vtK z6hv0Ai4#%5n8N;&{k;?=0#vzEY0Tk~#*hL1OT6rrQ^5MxVkjM8TN{T?_3!4p+( z#y*s$#RJmB@ZyE{UeW1BC?J9cl5k@3>1=^sK$Q=E)KvL1j9fiP4$menw3n_qOnL@X zcu3(%4r59u^V9qrmUHd57-l-+S>>?juwEmyt3uHKVyAU_5FKB=C_=XK9GZd5`TeLR zfs=0|W%#1sVozj6mfmNcIRB-fhYCj5n`ZnNs|ymdAW2fJbNj63`Z_qJ_ql+KbN8lI!(Hxuzt1l=dqB3 zos-}3dYH++ufsv+MkEV*Fx7WQE%Ag!`c8A{TtcXi{VLqQ(EJrna*K~7Ir)cj#O5{h zI`I-2^T{CAKn&>i`=U25wYFph;7!@lWfXk1!@M8c`>d7ckK^G+{~$etp!oO zEF`0(EaiG6C5gGGgS-51JV~}8*syE`x^&CgVB-ibgwjL|MDg(^( z$GThCxFjj|8@Ipf9*0OeN*H`fg(YPYhtq7Qe;dMc%qqIQU5uL6!UdK(s9( z*L*l#{Fv6!WQxF0l?xJ{xqp~W(#Opt+pjzmpbe80j$ILz>qJnB;6%92Tq5HqhlT%< zR*$hSYDIcgiC^F#1C3)}sfc9&kac0BDaLF^6RM#Y{J-?#>dICt#|^^Xn<`be=?FP& z5BxNQME30{TcB6fVYS{g*wKdYiTChePRCaao%4~uKo9f&zCY57NcBbJt!r~QCWe{s zKBwEnEcN=qT@YJ7k%IrEl>D%BGMKJ+9}8?{rmBj&HN<~m-kX$k4uZ)DrBaKNOB|+E zdT(Syktv^;51xFS$6bU&8d1Mw(h3LHU!_QQhw9P&&5}OLLN-N_(RZos4yF4%I)oS9 z$A;{SsN*RU+gmEW-0SMhACoEcu^rqddV|3c>{vzBylU%ly>#M5fNLgbQ>IZG^1fz- z2h<35oKRTbC3E`@vu;c zJkf+quw|#hjyYjW{%{jSyQU7nK3JdvSs@-YW^0Yl3^9uZ)(MaeYVD;O*Jn}in2@uL z{FNy{JXCg|PN4f5Od@kdD9+cfu8jL#xLWpJs(I7Z`<)vG)#oT@^XGMG=^X`T-j%cG zc3Bysb`A3a8Ld!c?p-OSzX4V^H=g;wJTsY8JcWEo*=kgwaae9* zwHkH&);8*hYz)rJc##neA5r82-T=3P5&Zk=My?MBTr^j!jZOPdJ0o9Srp2RTO2bX@E%^pR&Y z1)RK-y(HC=7(;kr_MM$f)p+=;rp6n2oRgrp z;zI6=(}yJL1ae&y!qj>aS~K$Ky@dvD%x8-XTwZ88{WH;1*3*PWvzu%ml4^oSc%{}7X3(XdaDOHTfGe#XYT`n5W!L$wgfL)whSq zIQxkF)t`ylwPYN3B@1jMR(|)9y9wqomPgc&u=o`JwU27TA%HC4L_7hIq_>TMqGZI``=@uQ zzE&2Q#8`(WJC}Vv3(I1h1Xc688GBR9Gtk*k)?L4ldW?%C-_7h&;;%J|qQ-~a30txa zR#DPnI!lwQwYT^ElCiwqxa%TiQvUk z5v_n|rhikd!Qv7|n0F0@IcmNuVT4Y)U-jM1*u3Ybr9@0nZ+j?C&#XLJ<8v1nU zP`5_CIn3-JWq6dzX}>RBWB!#o`S!YidSj4`ZqyhL zC@R*jm{vOd8t~lk?XmJj$GZj-N5!jV6ozq}Ls=}KcZN--;;O|Dk+XxvXV#{ssO5B6 z7eOx-)2JDdM=egeP=G1S)S}$_)Zg&Ec-}xZJV+8jKeY*#$*iz*<(q0A+Fem+b10VQ0o4 zs1xI3Iyn(|4=!!mI?}+OGflY-xQ=h*YI?fuZml({)59O94meqR^}G2^+q2?POOaW zGbPUNWg|EwVUl@MvHa+a5@Lrf*Rmfav1TCv8sLR*%#J!92K0_2wu#w>QF&tcGVI0Dd1zn_pwOYjb6*QvXocW~l7`b2Q>O@h@+9{F=bG_AGHqp_B**?4NTd z=y@i|UrP59&cH5T!?24QZNO5I-Qyv!h-`$dEIhVmwCuEr9r5=WN=P7I@@{QqgQb%{r6ox z)}DPYtANEl{x#Mf%TeF(xi!{qOp0!_Dx?;~t8p5jR?=w&E85-(-5!FD*Yt)DYYO7t#x_& zHOe0!u?}M48A&Ts_mt)sEbW6DVbTzlpz1-%&>>exPCq06JA3rl(M488pNZH2^%#3( zJvz;_4KA>^qCKpA6eN`N#6~$c;i^S|Ii!Jpspbbdz;_0%>QOOKAqU3qnj|g9buZAK z^~g9AhW^{m6(2mit-<_5VWlk!I|=1q9o^5?EeKbhu@vnFKb=YdX_m&>3#^(Nkm1dd zdD@;K+1E$yq}kYizUE>7B$Bm~vJ*al>;4~)5o&Pp?i_Wa(COt!f;P$;RcX_{slWOP zUXk`J*_?%M`|C}GT>maMoLKaB&+ybwj{@mB2_glqMxh)llsvjO1)S%mLd2Ia>uXpUx^f7xP}*%}3J zXsm#M25lBu2f7XzTeIf9rtW(_kSCfs=5ODlOwOIMi9?k}pU>I888}klz+GW)Q z-f~1x296%uk30dcb3wO36_r}*TOrK9l?MLmqs?|pnu+7S&X{r#C!*EWt1>Mw}dF#|1giJ#4 zis}_#)T^K;Goa5cG``BnOF#(GfDSHuRC{Y$?f>EN1w;>$2Ap5y2Mg1_Y9|f98eW(M zEO5vbVWt@?RE2|gRr*0#(&xYv=6=;8aQdFEU~9G!jf`w2z+4k?0Ed9BK3_A(1$DEra7!lLvp>n zOhc^C-E%Ci#n@ic^WjZ^H@+%dwhBH;*6+}tMhoTqJ{@QcNou(;nRZ*7F0~A9Iie#@ zfd_1qQVHGcW6vCvwwlT&fEVJh*# z<6FWQR~%P+r0i$`Ni+zarI;%W{$qW5`;u^P5T_TCMXCP|fB7Kt-4NpA21+t>U_Kzj;eW1e;t`yw1h3E5RAy#yn+VEdgA!C%V@{_^@aXQOi@@9WIt~IJl3xMRv zzTXPeBe)g=CTMk_L7eCUpyV^#(erQBIzX9qb( zPE*n>v}a3;i29lAedU7o)hTlApTNnIEb9Nf8P{Jq$VRADS~XO8?6DR0cZ{v)^V)05 zhEMEnw0kUOnb~dQ!XSQClekNAZ6fL(0k-nh$9SepStPps;N{wG=WQclT$ z0H1cShK&R~n`O_P`M})G+#>ND=nIY{{1nC=yb{s-NIR>?9NtvfNA1o35X*FFa92N1 zH*4GBz)n$sxKZYE{IKe5Gz}lD2IwOUV2)L2_&JLxFpIor4%sL}mq!4E<*olx8p{X$ z)c(yhPMt9Jqn5#VTm(~JAB06iqC83r;wND9F*f{EbC%yp?uzDZ5=7V!OIV5Yr?dhQ z$Fd7P?xPlDO7o*mgJUmv4`$A=shx~=bqfaZG2%{M1Y>w}@&m9nTjl$VODLaeR6lp>dsXyH0J}6Cqa!aE(6(-v zmT*2y?E(Jkn8TEUw5;d}oK6tzzsTd$C=ZDX7kM~K;M0V#{&O`mx?2!DntX(oTfy;? z<@%t|D`#jh^*@S7Vub-5@z0KF7aOx&6NVqqxk2riaJne?Bk!#n_|#|JH{Q0uR}-#79NNP;YOc251#{f$M5b(YlVNAu{vB0)WL5MFsG_3@!-=a z_=(Py0%QlWWD?I^#{>|3+nBQ0HUF1FvH8uRkSeKG2;ykqk3Uh8%ttHZ_CoVpnvJ)B zrCV(#Ib}YHSc$9F*5AT~xRQP5*VP8A9?gyRn91*KPV&z!I7G|f5<{f05}vo%m$7+# zDqjw8Tm^F`XtGhnF@||2zUHP7o_9)X0W63^Qcpw4n?>JqHw~$A`9cyW-<*K%W>7D< z0=GKh)JYipHD7r{=0}s4Q3~MlIz`Y{TB4pu4RVaT0tiAE6sq}RDB{TZ!*ua)b@klq z?OxD_HzQ^glJCGo`D&yv+Q1f9Ef4b-TkyC;N&gcH0;-M~h+p72Mw;I7UgopqXy*U+ zcx)IMdn)lp$wCg;rCIX-pGwXuEUNI^|1$$ajg+L+fHXscfGAzk-5?<$As`H0L#NU$ zEh*BCbVv*(Fd#WJh!P6YaK``d?p*xOIam8)uV?M&efAscUF);HAntvgI}V~beLQYy z+n*6{<%1ix8h;$gw~}Bu6$UB{0u9Y%MD@ zKzv101Meyhheo~rRL~gH2O}VqGB2BiciiUQ(7D)2_u!8~{j~dU?G$%R=u0(3-+0rf zONZI?%&dq0=7d{-Z)x{RG6&zud=u8?69QjY5vx5t3WsasxplW3QZ#&{^sNRD$F{5R z&1Ub)^~htk7f&0XA!`!!+xp8lDaq-z0Y^sW#=oY5$PC}AlcN#mRCcVNqcHE=p3#Zc zPshf90=ASJbWjQcc(u_z2Z)_QHH7^d{3W#qq!%Pi3W%l(`_iLocP5h>E}tlty)p1G>Pg(P zLH{8JwIZyLm^!HrwQk3Xy=I~f5w(6*K_QG8` zFec&Hq9rUPcxAM+X=NXUJ4aPj%UXAV#0Uhu_@@id^C=C3@n`TyXXe0rUANtXX@+85 z`d`c_-qK5yE#rXuDIT5_8)S@bL4ViXYfcDQZnf(~iFI<{-Q$!HsM z5<*DL(c>-hQ;3W6-+5%S)Ixgqu~x-3TtFTXc06X`%oU<_{tou*fzG_#t7#*sjTMHm zm`@~Hy(huU5qb-m3*i&%LjSeXIcB+@dN&>)rwVbY)RhcR=D?~eW-`bdSS0@Oy4K$O z&_^4=iSLk?;V)%^-=GPdKTgUFMfM%*j=X`wpG{ZKbHqPH2i2JW>!hFq<~gy?H<&X0 z8JAY{dTafm1~mJougA@BmxB6I7c`0*8R2w!Vwz)2GL(r2skWW*^b#bH+C zOxEYNIcEJmW2&!$=%q*R;-8IQlNYW+RRcr=j6km%@2lVWh_|5GW-|BI$P;k_!YtCU z!Dmic-8ttf8{wx|;@Mu|yZ$r$FA!sg#>Ml@()upm?gYo*K-m6euT*tcf?9cX9V&K- zq0fK2U$H+F#rD{0eJ|S%`9f5V^B+@_^4$*_<8yuEeM`pgjUFE?w8VKG!ip>q_U0n8 zs5$Vbw;d^}h{=?>&~KDn0kZPdq!qBrShlP2?ML;k@tPjJ_{Trj2kB@08RpRgKSqX= zr)>qP%t4rWz@7n!8p$m}vdKqD{i&s0p|bmMl8b4=q~Fp?}p4vkmR^Dplv zygplTB>TtF##c*x-JD~+xmuN3i2oub)4?1V7uq@|PQ^0?`oa%NdN;kWF~KWU;Udb@ zgqywGtn5$*$S2Flb3kErd!5PDf_(Es^HfJ1|14XH#l!=2$)*OfA}0;{%()o4_=zN{ zmx>#85#5nIYC4Hh30|+Xhbj#M*!KI3<&*HR#qMop6(xVdX^UP%!cqIJ;cL}O=b!w1)sHU z19h1MJmwfk+ZCqpSZDmM0qjx|DFjuW$E^pt0;5l>&t%Kes zX{B0-E5e92j;wf0I7>VajdfAspZ$ByCAYpZoVk$J#HY~S04R##_QGr1ScE{+To8|R ztdvxyQJaBV1N_OE`+lnp5BYTOC$j~vo>x=x!U#mT{15!W4n)z{4am}~lM}>b)q>HE zoRg+lZQ|xn^yM{iOgyP!kCz_8ykNKz4W36Od zLs$o24#_lDMrq2Nb`UHG`o*7Ialen(7IMe%<4d!W0V>2Nbd4F-b0mw))iX+PDS$3f zc>R^9fV&8A^bS!|SsfpqzL{^fjTNlWMjYzDZ@V)imo=jFMjh~lq_ns+;Ud5^>&S|P z$kaef=wvv`p+I){a+cHGKxAAftajxoW`SCV0fGsV#?_7%e?cVkf?ioj%?Z0f8kRjn zLn#+Y_(co|wV(;aiA)nuZiQPn!r!?FVq$T1v~`mq>T-NUWMOkd;xXn5PhEN0cH~n) zzVh_SCKpZ5gd#|~D1S{Q!5pmB$$`0UwL#n4LQbr)%-FAA;8q}0QsgkjBYUoXk3PPD z4i=X|`Y9f>n7Q69wGOvkqSpTU&_(=Cs(^MZMw5fd}eDa+~DTPMIEmvO?baR#1%|a{SicYa|5G{bu5dOF+DS zl^A}ucT=+n%hR*KtA2aJuLS-efnE~DsPxdPSAigA2jGQhn)ZQRMz&=)^2ouzH82#> zQutl#$hiMoM=e{@zB=@ur1pdUD8_CxKVQ(`2MoK)F<<%$uQ zcA}??m>`gw3eD^1q;ARl%5QZN&U%!%JmDs4EJBu$Cfp_3Z&Dg1`gJ2t{e`{x7Y-`) zSks_Yky8j@?RIJGwdCMcq%Zl3V{F|9k#*1^` zpG~MKT6-QhUfMR%${^f5s>@W&H?9?kAlN?QaMp2qBPZl6jt)GmDbM^e=Y1lvO*K;5 zT+zw2z>0|>pHM+kEulA+1NG>r;GYApM>|w2tR#*rracds^!5Mh-F)8C$|A;~(BUx#ND)h;oPhIbBI~H+eA^0MP3xg=1G2v0U ziCS;ddsP_k)O`{vm=^Fe&%K7(3-3I9VwRuC;W`J*~5yu zUJ^mX1CGvca5M9_n{}?lEbCrHJwc9eCTE#lh(;5Uj5?00*rjjCS$VC>p!jOUgzCYu zuV!_lu?AWKS#PZNSDsk9Q~TgrCdmAF79+7#K;ap;HnBG`FCc_kL9IR;40rGWixhx< zM%i=2s?6yadCy~`&URI~CaYVwS4h2G@9eB{6olK4k_xE;&eEhqGb9p5!X3n@66wrb zAFnv4R>osUBkix2VX&MY!-L^|5ptw(6&1S8d$m-vMv@C(jqE5?nZR-9>!*U4m!4Mr z!p?H$-twKd>1lH~E;sgm6=>6e{G#{0lwXRCTO=M5F*K9}*jd#9bd|35PuAL>N%_ic zVDY~^`fNuB;(k&mM9ikv?_rZ`nMmS<_{szOMA#@8SCY?q_jy3T$RX#nIvmpl=|5^u zi6S_bXZN9<_Z9^gNPef5t@J}3L^Z`Pq;u_UzZOxG^CQh}&9Qc}8m%u{R4RqoNgaJ# zIG$RN{Zg;(ekoEP-4|AG#MP7XWJ`PqingxdgA+Oi&SA4ity34SxIgH-Jr$yAk-gN~ zi5Xm1p%&xIkRwebW$dJF>|pLej+lTt_vTbte+`l`r1q--yIM7#yNexuI%LG%fS8KF zU8u8V+S4l&E6PiZ)eF8SC^5%1N z9mg9GxbZFS5Xyc5j&}a6gz7OFR5tY*(c)DPOTCEq^nSOj5AVKNrenO5^L1X{UFv%u zs3f~y zr1Z^7{XF^uyl9cstDEsw_sPuVUK83PV2@7f`$iAe4ji1`_3 z2dj0CQB5uLNm^CwoZJ+Qojro0PkNiZK@yI#u+|OA~J9NBxBuigTaoS)4nKT?L?m>sZwLyitjuTlf3s8bqyfP*pRFPZab2{H2KDg}3 ze}o&Uc;O9VU1Ilgt_r`}OivpQp=0baq(Sox*{fKk-f1hEP}4Uj4(@&W_KlbN`z<|K zFnS_pvns~YP4mQ5f(nBp+PeD(IKbuX&yQsThM+RdFn?(oGrxJO5If>yRl>YnG+i(8!Vv|&AJOBm+{bD97Hb?Gb?_0ad29h29lp>{S|K$w6=_GQ%Nq8DicCx`6)Uc0L)$}9Mv&Y zM1&xrGeK*1UT^#iDV7uewB-~edz6T65qCJ2m+K;wd0P>olOM9ckSp2~f71anr9UOo z$xGY1Zakw-F_e}tLmr4HoUD~3A${XO7~xb_`OsVLEK! zV)wA`=-lPxO6g$4S0;hXM%{c$y{VMo2?qPK`KzliFO&<4usMgXk?D~|Fv+~kIk{;JQd;kYd8Z#D^EQvISi z_?Hxa8R&d3_%K}zJwE#*n@;NIhIDm0CjY6U92|;L{Q^RZPDOSJ;ll!x z*YKZBnTq!)L<(V02Ib)7&6YrVg@&E(fUup(`vpUq5Vx;8g$!2!H!2fbIV~OIsxf}| zrc-x_uBsu1>^sv8B>d&NX$z>S>)3k!%(BF=84H=7+hgK3?Ul>`WWzskV4^Vz8YXG` z1RLP4tzJDQJzsz8U1jVSylWgRa{G1T6tv&9-LPMpKaO{v7DVJQ`UO2*rVb~ zPt~_abN@gs`}b3%%#m#4Z_l1nz(wz5{xwu_vV<5>Idys{=gSlL;ErHOKEtj~SO{B< zeFR6~Wsisv@?=)OJU@la(3iBqg`H&v8>H+`ROe+7(n=z+5s`0X^uV4B$LhPQ6`?=3 z2PNtc!G~kRoy7wQ^Ith={}kTL=60lCtrp^XZyK5kN6i}E9R(lXjCK12yjgi9-hY2g zoT8+4DDgP#kd|nT-MjzjJ=IQ08hs%XrmMp?GD=WF-rIXKjUnMkx|Bcaao+ukilM&Y zcd5JcPwwgGSNA6gthuK=PWOXkUzCi^%e&lyS53wYRb5AdEg|3qsZ)8y(A8i$3{xjm zmi%5J?-&?<*RcYfWUNlU?V%(%o*&zX^YuWo`Bgb-U~M`@PWlb+G1*=b;J#$?qh>DmtwC z0Bv5?wK7{5gj7=7`u%kklJNduZDjele{yX3STmT-BTSMqTKW*uFVB$DbAJN$=M`OCp8k)`6gCCU;M#yyqbVl0VweoUVzenDpN2N;E{w z1mC;97J;Fvn0f^|GF1P)&=bBq& zmRG-?m+tt2GezS9Kx*A*%7^EBgz+#nn{Q5o>K2Jk1z5aBxl>j|&~ z?qESkAX>PXDh>v}!>DC}Y60U||Dgv-i4WARy3AY&gr4~6X1-4CR>EcPzKBH8BK|iqwEwQFI0k-k9Y0Suk@S!b=e1fS z33MhYv`dgfT5c4(@aECn9EW59KXm)dxd}ifA9|^|)PQY4x|qBUVq<}mhpWpdJxVQL z+U78?qN@vaFRiYpNy1ItE-uacOvxw%T`g+d$wtFuO$8aQ9IEdcOQc!9$+kWUgqD!d z==?2r;MX@SK1S3B%+59pg5m|&%pd0;&_BJvZDLKaakclueg{^rFM08rH|(MC#}8Vb z9J-!Q2wFHsmGmV{xur#3IwWiPN2i6|Gqxue?nRw_Ok{y)6f$BwbKs@16}8iVffXZ4 z#{Xw;&T1rqY`$vp1;!bUb-Do!ju)>T2xcasGYD%PQYFxupK@sQ1Cmx-bDH`Aa(vvKU+Z}gAh9!x;HfhBmAZeY zEQ+mfD{2()fDxDF74~DFtsaK&_`cG)&|6H7`K|4ok`37)75Uy&T7cKY$v$O0QrJ$D z5}lp8Ra}|(kLUXT>UY9vE>XU7#w#5-+|ub){V&69&h)NgjpJXobxh=E6vK08)#_mb z!%rKL{?5HcY`MTDDsE|-pkH}T0o0p>vG-jiH5Y-U+yZW~YJ1PQka^xkpEDAF8Qwh; zv|pRFs|CyiG>~mCJ)Q6yPdU&(42!|n_G-r-ZVD#4Ir&$_XOE>^hgIK%`MRy19 zKwWTOUUBVeamP3(vYiR*GOQwUpK4N?Cl%tOYP`b0nKELY4X65tI9l#1 zk1Nd)+P!*`obCO`RbL7-dqDC97uA`8BaKeq43Ug{rdIgyp&sZMDpYBzokKbXJuU{Y z6f#2KF({gn^F1vkOYPby?a_Is-KLgWbQ4H^q|P?#Fwd;kx3I0mc|Zh?|mW^FY>YGb-DBT^E^5-;vJ&cwnX&2bMntm*kz6;(fGuIZ{GhNiA_ng zK}FB#!UOp!3-G)bRW%UtL0VQ@wXIurWaRUwb;?sS_%84J*wU4sh0tYDxEJ`Fczx@C zCmZ3Fz|}5E4bhSpgR!wow~H#YW2EWG*&x`v3JXA?_lQ&VzvrNC3JR@uzlHW>^zd`xBK!$M^ur0Y+Y^deI1hoJNebYj>sFI+vf*4K#Gp#D^c{C2$@m(xcJW8^;>5%3oZu-_ zPjb;~^wLn8d94zcv=>;BOZquJr%v)~3G(IGS4rZyiNYaz$@#B7wt>@xi+PC8an=e- zG2(Ju+J?y%9Wou3lPWN}j4<#E=Dh^#^9_PW%=|WlSBWLBz1ZI$srxG9=dj*n6ST1K zkXp)q8zvYc-ebY$lc!=;wsIUbzs{=kZG>8COe59w$0YV;^(ZXN<+mj7%0Mm2RHBfN0D5 z#SMT}^?o`gMZ9*7M+i_PAm`UP+i^%BQ`*B~ReXxY0T?78iF@{IHd*=zW&z|XgoxBq yFG+Dr?}jAUTJxhq{trsJ|HHZQztrQsx%a@$jQl}P$&!ryLRmw1qB5a6%{o#H4P07EiLW!>(}Y%=;-O`Z``=Sz`(%B$jHRR z#LUbL000XM3nwQh7Z(>dH}|buw|IDXczJpG`S}F|1cZf!MMOkIMMdx3yC)_l_Ta$- zadB}835kafA3l2Y2o8r!OH0eh$UJ%SL|$HAK|w)LQBhf0Sw%(V*|TSAYHAu98k(A# zdU|@#pFcM+FfcSUG%_+WHa0djH8nFcv#_wRw6uKr@}-rPm9@3Cjg5`1t*xD%oxQ!i zgM)*kqob3Ple4q4i;Ih!o1444yN8E|r>CcvmzTG!{Kc6N47PEKxa?%TI--@SX6mzS5HpI=Z=P*_-4TwIJop-M_h z%FD|uDk>@~E32!kYierVzkgp_TU%FGS6^TM;lqc<#>VF6=GNBMwzjrUpFXv>w|91S ze*XOV%a<=*U0vPX-90@$y}iBPzJ2TK>+A3D9~c-I92^`P8X6uR9vvMW8yg!RAD@_* zn4Fya{{8#Z)YSC!^p77u=H}*p{`@&VKfkcB@axyF#l^*?rKR7$e=jdDudJ-BuCA`F zt*x)GZ)|LAZfMU9v&VY9UUJZpPZbWo}Qkaot>Yb z|M~Oh;^N}+^788HN-#LE03ByUujF){L7?mDm@kgJYfu6R1c2ma;2Itoo0;Krn@A+Su>8g<^5IP0eOxdrL<)wiwZYT0N2>?HIQ+iBn$)rARsUd z48n!rf^fh%0l=NGQUE$B?ns0}#aYrqL0UxYkVhRJph|@W1f=N&j-*ao-tpsajMqTp zkVNHI$Iyw}X76{1f0R)VrA9^c~=j!W*0FH483=y_M3#!94 z%me`e00@ReR7R|FAQe;tL0s3RUT1-0D%! zBJo9thQ`dcgRcc^z9hs+4~EH{B7QQG*iuL#GpS{AONb`9Wawn{;2t5`yp_sD{Si-K z(etauCC_}TZsp>?`1p~wW8{-aZZA#yk!vWk@w>s0ZHqywUS{K(95>>>#;f*uzperq z=flWCxV%7;PtREg?%V{GUNc!!ZKnMWnG}%@aS7ZFHvSq_^x5PkCpg_)L%2dl1XrZD zhyg6bgD4X`_*qYhH0iuO$>DNa>p`IKY(<+Eo#7>jy4kpcl<4Nbom-$%s2)-%3Ieh* z%WBcFOEqMH;-*s4E~Zq=j#P6AFkD+CH;5EY{6aLo$VBSe3F!akwve+6GoYi@g>)yS z_RhPOzi=Xl;8usw$S7@^zjf*9pc)&BL*ILy&4|^nE^D5*Hx%jrynj|4;6tY)*~On* zLnPGI4n^`E;EH|o%W$%PoplRvFT!_evb>>LYn+a@)^CZDc*;0^kYpu_h!(EQ*G&40 z__Eg!(KsA^uSkbRIjAK;`O3FS=z@RURpC^x0B}1l$kG zN=)M{QDH4QesmH7vg<2%rB6RYZmu!2T_~?zuND*bvf_m%hlGFhY`y<}lXLt}Kx%r+ z$_CZ&>;ghS{U-2JS+R^plY4u&L-n61lo73w+bRZ z6NGbX8}e{!wg9OG5g%Wtt;rUe3wRt%Jlxz3ui(s@g_zuVca?&egBQ%SHWm4M+$yiH ze=OrZ67#jbb+K^mwRe29rZTrd8K36WR^i(ANVG636KX8qn)iLMwY5=fpk66SOqmZ; zqSsjfU^kZQ=bmVI-n=$*a0c|O`!x2{K6M@0KB-edWhMC$6tK2bYs`44a%v7d71J3H zA8bA3Q5<{u`)hu;!tA<#$1j1oOs}nSz|b#WM;*_^X68)Px6nW41M2Fjro~rz`?HX_ zV|CZv8jcL9)}jhtO?MJLRc%c^l?NX$^GEYT67#L^+N31U7e7^&XitP6wDw*=R@-A* zLfU87{0NHtV|0ACmFXOlj;BHkF2>V76l)f)DUR`QGHABmEW4*k#aixoQsCiKKr%cU zC8wXsk~ZaBk!$8J?d{5V&WsXsw&XCc8I4k+kXcPBy{8!uw#w6SL~*qvJnY8oZXabR z(dM1*Ry~3%M=Bl{@bIzLJ(5!HNW8#L%eVK{BY&%2xuBs;(fL05>x_c><7==y?guV) z45nf98@mq;U=^-f9aGoz{OUF}%bmS#bZa`;zS?BghBEfC!PDk?4hyU!06XRJ2()A` zTxWY}D@E(#KDg>w@p!XJ^h00BI>Km)&>r{04eN*#i=g#6R(DQTRixM#JL2(llneX^ z^uh}*O0ifOl&>cm(r>15|i;&LP0Vnimxo2sCGTmE_0zcLdtd)+^fQt?6 zTBBvW_VA`H82J;kf)?BIv`cG+%4m2jaRtKyNH3I@f+dl*0l)+8hkMtgm%^Bc@CpDq z5lQ4uL7mZ+M;w6?9Mjy`QB_A4j>scRK>*)Da5q2d^q_pAI1yuFgc%;YJ;2l;P-Tu-XU){WnO1{9OS*lqw}ubIV1#C>s9M@`^JK?u<> zsZ$lplRAro{wO!(UH~9`=|X1MTG$YPnT>u__Y4QVhl9BOVY%yvBla1?ruR6V(mFZ3 z8VA9PgPjwM8MvDQYmOr5|JvZ|GBE2|=pKrhut`E$)==0#`7tDp4AwbRK03R|oRTg| z2T=n%!etuyr8B)r`|Vswv6ck&oEg;^cSQZwi~J}>(~BA`kB^|jVF}BM=`;gYYZ^JR z>fF2ME@V=yyKING;E#b@aY;w&q6#TS`-P5MjRf1J>goTB`f|)JS{VdjZd~*a30jYp z(tEV9JjkG~;~hZmT29Tvb4lb)Nz2b@k3A0Pk8s9;M;QO^j|gPXKgW)ESx)Jq6%3f; zz#(^u*s!V>7ZIHL?CaOHOMO@#FCceaIJfcb zXyI#&tazSLRLU^98WBY8I@&S2rh4v%p8z>sNtkRshk}Y&BMOjHm4rFO%(9tfQI8g@_OwB(WvJw#qYunvJK zbH<*XT7>&niHVU#KMBSx%pU{SrNlI~zOUg9zL+S5Wpm6GImdMhLe`r!SqQlaAQX~$ zqCs5SiM$>=%&%e;vs2uTYMtiA9%(|o#)o(Blerr$v9E=UMJ7iN&`dgnv!26xn@%y&6&~n-ui5Hx!Z6Da`jwIRL^ zV|12r2YDK1@}u*Q3imK#X_?;S$8_BN(JKUw`Vt5(?gLMQvp8+&3Sc{MLuy#_Q~WGV z-jRI@;D)F{5&-+kGHaO^rt8%Ngi5ae#N+KIzn@Dg$<0gMBX4O)5D7Tk|~dUHkryjAR(jcGhRfZTmdvhU%`dv~cBe!Xd3MU0DZ zIew2QI%x20NM4dengjskcgg^UOzIJ|>5|G*#^Cwu@egs(zUo|$DGH_uR!(o4dQTnw z(hQs6KAi_WGnz}+HLwm}ZRaFUiklU%9mFp0;$4>nHE9IarouqVxihS-0>dBED*N@R zoiLLL4EM75t)IT47Qim!NNT3&=6k$a9a_H}q1|oP5tSCLEgv;b&ACPwAC->VF>85i z_Z7RAqv%$)9%>>p4HU(mha9f)h~H`8JzXqWY{@=WKWww)#Q?&2WRr|U>qnE-lMDfL z=E@QaGBuf);~7>pNn{>D4?ZiPA^%g`9wChqLozWMsI6t@t;%x<^cOJk2n!V(ni{}n zd+3gS+ipZ6rc1SGg(W`mYB4%TR!G!BQU$Q7&^^Ca7mtrkRNM6a+$1TB)$HwdMaQpx7w@D8#|kZI&pQ%u{6IKV3-PlB^x&D=4Rpb{e3Y z(JQ*4BrRu2Qg9(ph@gUV5w1SflrX1$`96r3F^Dbzpdb3mzgTMHD}|}}v38`H)avL( zgIN<2bq@|`s9<5aI+QSi47b@6+k*N`45nP^OGn#+Kmxf8U_>4!x7flq98CWvL@s@a zU!af2^HTxrT0OWB8}sg3piD}khhi3}nxt%+xAMsgF?1=DGAHr-+3_v%hZNE$07&~- zn5$`G8-rTK3JN#BSao*08wk+h{0ANQ)8qd;`Y&3(oU5_8o%J^#|L?{Bze~sw7I>Q! zr^*INBBKHTrePP&ji(mAdVfJqwES7W&EG2ZGZDR)tT}Ho#j+-t!@w*NE2N`Irw5CH zsx3f@t^fuZf`JD-VQKC^Ze!zeFmk#M@l9NS=I`Cta$&>@5rf%UcwZ-%&bvxBAS@J< z8>?O7uGWU7P9*T&fLr>I^QgizmS%0ie=6i~$kU9|Lg!$5F(wS)+$YO887KUERl2Vg z!jN|z2$Qw6bBVqCxv{mg`xV)B>}>NS!wC~hEB`<|x-JJUs$IPvYkk<`a9SFT^cZfnMZ;s=YZwGAnF;MiIlpo-uKm|!mwe4T94JHil8y=&%TkD`275zO|M^~LSx+lqcNJafF5uc^2@tz466pO6Fvt1C#KHyH#Yj_rmmW|>%Y0(`1ZW;GgvXA9}IyfSaFRq-=i(4b|=Mv z6q7FF&gsSY@yCkoY5!)=tK;eIIe!n+N0TFmx`xJRz4!*FTLQ&c{e^NBReX- zn2TxH`1lw;>$$JCdZ_W{V4N8YZ0`w8YfNVBx-)xxXzCcR|uf!yh_rE z48c){<&hS#PZnfTV=??$$iZsKBU22=16!ZswK{lD@z7vFA4q<*Q!2-k_qPp&eAt{u z>%1?8ltMEs+4n&?SkhMeWZsc1YPPzOB- z&t0klbQLgu`9>=7!@YT`zmWOzBiA^q1)YVkJOQRm;))HIQ3x_)X~)xehtc~)y#NL> zukWt0S=bW<0;eE&5>`W9T#Qa^1ib*JOs4qzB47OFLMrZ`>3;p)S5-djc0@O}odMW= zPu(G$0!wL|B)UqWabPU$-LvpT-o;9G39JX@VVRc)L)Ak$daM!y2Z!)stdQ3_A}7uL zCffQl=)+Ke69-)?uRbMn(gc(BhhfS4#?8-fMg_y%P{sJ_K~8`7$8sT>dbgAIYBE0& zP-7Hcyu0&-%n&*j0-)(Q?yFQkEoVK61{yFoA!Hc1@Koa9C0~e!p}80s{5|zGvOh^f z`ojZBL5LbTOlBloR=`z{cd3suSg#cEw=SDG>1KH!w!_e%E@yT_+VV4IRf4DBxPk{l ziIjiUnh$gYZZ?QkSn)6j6#Zqa4pZTsQeltSdvk7L%DdNeX;cnocnUSgr61G+5jH zS(tfAtoUmA7z5!AXu@{)#~v87r#r=L&=#KhpJ%xqBt#V3ae+$1P77a!0)XjwCFxyI z2|fZO34()w6lG*Ejyk9`DHSZgW{ulsohplbkE4E@&+|96W6Qc~a+hc4yYNh?KWWu| zT-TRliOXvP(Ot`&*_Wq|#b@EntZIiV#g2`C;<`Q`8@TnDclIl0Gsg_AI*O7K{O`@Cx*p=ndUpls$iNOZE6R zW1q}ok;cWy@Q~7CNXzS5-#pT_W{ii7C7xzn*!|)T8m;tSd$n8HK zhe;>>P>t=VZ6C|Sz!MeK8Q7esva7n!^4Ai+E_ZSPb@I5o#wdJ*O8{UHLBVF%ra=N; z1;Ia3v3KX`@j`~tTQS`lz*-^ZSVjWq#)0L1O~b!7R$B6-PJBKzEHeQ(e)!XJ;ekBd z9yJS_lPBK0TsuS0e$FJ>tw_9gU%^lf302#RLxiox?`ATIs-rJ`ioCRaIJvv^xjp6K zhN>6tKFhHEC7`EiUAj|60Xd`pka|v**y%D&A2aUdF{*;%+Fs7W6Z9kcoBQner)Qe= zUG8y+A6|#e=rNa#p1#M8Mf{Ne{Dx|=u4FrWn+?BV_v1+m+@haOWqd4?D%j)-VLnb2a&S59CmI(a69|k10NjP402r31_ywVKF^2<3Z@rVF@Ket+q+!I6VRk6I zeWrO)X@dDHrIGkP4!`*JErcCXW{0C1nN>%3j z)kzHl+Y&or1>|upfH+rohGONLc^>zt5_^wYg%7*+`IID_c#WF;*J4M09Wkpz8TxP? zANWs?vWBjZ45w>Vy(ou(DlMeegHl@S{^aBkPIBcQ!qXo8@GgnFE=p1-FYd5%ugZfC z9Pk(buljsaq?u&fCCrvT*5$n&rc0y3?wT{_d9g_ulkrMYOfIoYL7m!vr#YW^iRgFb z!)TF<>bOJyU(XCFRi2aCdjy+1UfJCqB0JUtIF^>qnw9 zoG_!9))wFFUxTI_h~ULGr9M|2ZKZI^D?<@!U0o?W5Ij|jmqanFD^nLU>W4C)%ZZ3K zpK9l87CZVr+l!6AlSrU8W*SmV-<>>3uQ$|SyA2}d3JRC< z{f-`7cFQL#;1m;Ae$gPK8rJole=KGq+#I1PbXeu;!!N{jDumsj`wOv7DJU$5f9xRtKY7mDI(O20FOYK@f@i-TS#Qll1E^M7uD zvR;U3aXM^t+Ku3CwKs@z5K1ht7C-G?#48BU@GQNnxyzZYZNfSI+-5b&rH1&aNqn)b zpSsRjtmW|UD0By5O&N#TX38h9Iu~^o=L_#IS86F$u{Te*&hGYY z9ScU$)InRTxiHPO*q-Dxh?=>M0}29n(}LCd*oc85B@^Iz)WLkSH%J1^!${ty3*Ufy z)c$GG0rBFZ3n}`Ds`#A8L{4myL*sjU?RgutQgx+W)TrYn43vads}6#p|6JzH{Hc3DL@Pm}4GYnSgiA&7iNXF>(X`G1bXJ1F86lC%q3*5|@kDmAwMvr4X6LAod;=oM~X07*V*fP+K;P6l6x8Art z-xB=SeU8_mrkcMU_{Hpiz&fuMC%OBvbqhjR&O$lqa$ZEl7rqwMSgd80>vu?mRUp+}<-(qN*@NT)w85@;2h-(~6D2!|%UTc@ymNoN&ee zfHy*lCT6VlS2fPBiv+G`Pk%hHVG{Z-ZqWOO|Eq=2x_H@dt954kRgwiJRa%|u6=6hA zv9=9$Q7;s zTy0)wq_6apz_sQlZ1>ykEI7KXL~HG*=K_v4hPY^m!Qn7knQ`W+<#)aj9_QL0X1<-9 z*41xIHs4|&sOXjX~jso@+<()yvd|#BUa@frt=X_)Suh1qtT56npoY z9Kas`tP%(f)t7_YihOY&vLR*fy0zuRX73#574vh3mHeF!7mN)zhIV)zx^+6pw<>-! z?09Q5JuzJe7FpR!DzuJ$^~ z6;nh0R*v?2MHu(XJ?nUuWGp(eAf^BFr)w~?Ups~)X?_5C7F3;(o;vR~h1~h)jOu+M z7A_7?^m`~}n0EoPZ-p5>;a^VNLgd82mz?5c1NS+JENE^6O}o%n5v|FfEOp<_zsCW1@`Q7xJ5Z{wB%LwB>ZMHpe=_uVM< z%G%rhhjT}#uPWAGz{v?$+~`Lc!x1|w(~9Tcz2}GxgH)omA=i%7#)bKg1A#Vx=U7Q# z;v+CkW=F_APLOc+robqY9k*~Jk#ND`<*eguGFr0H=;Q_7L>PM)gC(Qc*8AV)k&Vu9 z*w39bs;ST?DV!)zlj+bZZmR?Ldf$s%`|oCt2sdiwQz-W4=lww1)vwC-he>`4hVBTP z^i*vJ47(^C46scbwA)3oqSLBUy1To+5_DgADl|3zO01r1pv-($!$F0_L4|X)j?K=|L<*yf5Fj- azdn;YpK-%mLiC#*Ao<5CGUZani2ni_LbL_| diff --git a/outputs/understory_effects.png b/outputs/understory_effects.png index 54038089506e5d7aceb062e6f1a94e8e7829cfc2..9075e649bc8389481e9cbf5cefb9725ee6553b4c 100644 GIT binary patch literal 77983 zcmdSBg;$l`7d3hmq`SLA8tHD~&;rsON_RJsBHaoCA|+kYC5<56E#2MyZG6AqxMSS= z7hJ~s4$n9o&hzZO*IsMRx#oVt-zdqTA`u}$AP`hpsFW%M0&4_;z)&DO2k)#V1d)J$ z5FMb}&JYMe+SC8fWL<+2ArK0Ptd#g$kFR?Ro<77A^}I)%L?tyehtcUF%upqVuVRSC zaac8wE;oet@^iWtNVX*gUf~mSd9{g&&rxexEN|tS^-Cx4h>&W#65}hin2lq)$l{G8 zuo#H7_d0K>bmuGXRRK-hmT*x~;F`XOmXHwe4ugE0MqzfTHTQE8Ee zUI8{Q85mWsk6rEU#hg99AX0!?!~MmawY7DED=!UHTcM_0=oru~d50n4%a5eUzuxZ8*Po^>-EDlrWdid?8H|yv;(s~%&{%^d zQMU?1{dlSJ(16?-jR-DTDW3Xk5C}UNn1mrSj{B`38Nor%ExGgWe*?_dmM`hf zb`=#BmGY}fO9#z3a$ib7paKcM&3Mv0GxDufJu@~v7me6y{NT@gA&`I{u@vuk!EdW( zzAELvS)IF2L9a`Y#BK;z%D1+)t)8*D%7Bf<4UQ&vYst%dFL5cp1P_6H42ETh&@RzP z8+c!#H394&g@m~{vPfdm_S zWZ(;iT9)SKzUzr5bxb1__4Dcagc~l}<65uh)trGrb%#&V^tc{J?}inM^XOS}w^E;g zki=^0AdoJ5z49Wq%D{6yDaFu_->&N5;9#c8e93*uH++e|ay9Hbwfw4n)H7dliu|+7 zOMF~hZXO;UUfzhO^|xJW@m=pr(kODhzd8TiKz|`F$C9x*@ZMQQMusXX({tlXCw9(2 z8ZWj4GhT#)wD;k}r+z%>r&BX|CVEW9=Cm1`#U@YA2b1RtUCoz^X-3@q;Zht~und)} z^e=8iz(hjS_EaN`KR0_{l0gFu$})w$-2!XDn9leeeSLj{^NB#{NZs~Hh|xU%>n$av9#|Fl4mXVS5%N<|Y^)w6X2 zYfhdkmpRIDh?J`XVHI=xuCA^$W_hUT-q};TEO_#2YHH(4SO=l-zaeUIDJiu^ZGlp$ zid!{~f_^WvM+gKyy{nqB;hFPLI~=|Q`vjIiyie|o;lzX1SDzJsAX;K`8Ntx&&wJ-c z!7=aATNp9v@P%W^FA90p)>EUiOIck9CN^jhPoXD9Dc&d2-W|P~bQZ<@AP=UwySd&$ z*@hf3R%ONQ?hPs`YP(p4Qa(0ZGznUdhd%LBxCclCCi-3+k{7M$>+6$NKU?67k8FKI z+06m7oY7tc5u^J!cPxqM4-4DwaWYw=oBe?FG_Q~lSccoZnJRia;*3pr|NGFJn|yel z7O^@C%3$Nqh>97qYw8dR+q`MokRICo{e1>sN^mKgFc6^X>grMM;g_)U=&i~gCuv}Z z#Z{to90_Ii;xrOm!Uia?*DDd#mcsns%UF7uB#wrCAx+AB_&d|4PtSI*@6gFRBG~Es z2L&=i8@Gc7`!ozEGOV2K-)0;Or^k;AIvyjOr!ClfPBB6?rr+J6W|Vvo1<|cr2qbnD zY^;joNmbnvjfVMNoz{$uV*#{$7DfoPKo(!++Z+|;BUpovsEDc;;kq4#xw#=2ChP=U z#AWe`>)0CKb+B9aaJjSOv>~xPYJ2e#`+cayJW{p+|E6EI3k^c2pd~MCP{DBXb$Z#M z7cVKLc^vv&oX$`QOIL?t9-FD=8He0_H2K`=kf<_(rHu_qna=+mDQ3Ful>T=-X{d0L&d#SE zt%3iG0lA+>wXsLRGj)#C!VY{SC?LP7X=>u@Y&4dZMjL9zTuq4G zcJ^vsw5lF8P3g~_+6CXHtE(HCmJRYk&a)17mCQGi(&B-MNx@~}Anl!4+1lD#TNfRf znwnA%oo2Ptenq4fa<#LtfZF|nu)9_Wicm`Bj~xpshkYD)&*>}jeQGyd$$W1Q0j!eI zXt4&9GhOxwlXVIENg*7$FqKX6z-wiV)hJv$- za8Tf2Hl`tF-|9#WExI!q4p=LmmNLPJ;|oFPtF(cVl9DWcS42uKweRX7h?LUVuez^9 z&4_5AGoM7{LAt}fVOhGBx!+G;)z5XG0~G|v6ea-Yi(XI6Q@%I)Zt);#z8);BZ)I(b zoZc@v1VZs|=t4n&r!RIOEQ9X0i$Fw|1Olc8Q78Aw+QFi$|KWAtYDUV%YlGa&3N2`rlzx8WZm{>V66FFEzq9(+`ugc(+mW|tn(FS+`L1k~!GipI5B=~v_J&k?qr2x( zQBkktATVMZpWpPvpgxUPBG`vI&NaA)dq!PM9>M!(f_Qi^3V>>tcC#I%)UKUZmZ6-cs1!6{UfWJuA_k z8Xd)|5j3OOM`xwS3dLyme%{gQT&Gv6n8tG~6f?sO(WXC+CP#d_cc+WJ8ABqP?@pFvB^`rQY2hVlzv93LYUgnG`zl04X)tx=sB|oJ zZKqA;yD$SSAf$wq>FvYR8S{I7HcwdL=Iz)nHt`=6As?FT&sMiLPXDw_cr(M+2KW6J zPUAN9g$RA3i*fzQY>3PEg{`su(-uE*s@4|}LTe{|t^6@iM8#CK+?#Ji8x2k!9je+3U?rv%0(&{b~5ZgRyEO7krJ@=OJJ0IyM zOe4jVxHxkYI&*;n}KWrNcJQ^r}Sh{|!`!0vqp6`9Y zVLJ6nHvkwAZ8;{*fvMzAq_3G#j0aiLS=?~U5p5!SWBgMpkky-szWo)Rf?D_h>Lh(I`hCb!+% zqNJ762d=~Z3MbE?i*)we=T9xQq zX{S9#PhsfKb^tJQnTa2GpPjZ7O8eH4_~Q#iRaTRewVgu(_(Sh-3@pBB&Xe&TPwOFE z!I$7Fy&^jGR_9H$CNgm%+}zw;;st+!geg81X}RXBde!#vv27pBN~Vg84IWqkgdu-I!N zBBHGiC+Tv0BsFSQBik;lDG`I6*wQ~u zunQBAi#2vLguSmY!edBjA9f__g(N;I$O5>^)_ZZ|Vhw9aNlB{RkL_IC+#}+Jz3Im1 zUiaNm#H)*K+b&PZVqWqkv$*J$9&5^sjgnc}oGgOxdAYjm*(0hkk3JQuRNO9NeE&Mu zLr3tzgLSozLo!+#j9*1}r__?xj=UyC|-I5pLwO8wfb0qFn~pqTB}q{&H*o3{ZN5-I7& zLiQC}!K*mhO&-T9T@h+GSdd@ls%5PQ4ZCj{)#VJILnu@Y4Gp(41wViKq1KK9C#hA{ zJD?1T`}k7Sv93}+=Uz>g=C+LPv^n8x_W<14;PlA8Z5L@C1aCt}!v&KHzVyNJUe;r{nSBeY}M0J<1Teu7mQqtJWXq)w~eMdgQ^8X2{asq#| z-#{w&T#YR;A))MoJOm=Ob9l(c$k_K)*jx-pqo}&DkkKmFDdG29eSH?Ml6~0!7Y8se zRj!DbC;0s7uIQD4JfxR(3(RutszpfX@r9#Y`B4W~@-Cw4^v9^*X5Z1{spX@MY~YQ& z#LD0y0eX0~5*;9>cXoHj2vzfbpTid9!9v})x{O_XDmkq9bBtNALrqv_5;#rDfROzR%X_j>{??J$iMruEyA-210%t2-Q z2W0`7%mqmVLZ83yw9iqr6+@;mpV5&2yB9v4z?aN|90Vu~EQ*P*orJ}y@>_9VHz!)t zK1}n6M5=as-_i7Hj5^t@XlTj8gnnG?6K$F z6$J<($oK=X6j52;WHL_mdM07X8rMs8u_fc9ruK7`jzQ0$3};^8Lx4A0?#aiOQ&2`4 zlnoWIDMYI394%ExO1Hht?VEjV5(X2C^|S~O_6$Ac*gdyKgEC$Ml)EbwxFGQPbbI-e zh(SjG)usNq2gwSPmgx$}e?x+F#_ql*;<25@asQyBtDDxpu2XBLfAIFgD3PN=5(35j z@9LCOGO<|m2&(yG#{JNM?PpIL8)DK67O%NkxJ{c2(1!vvILIjEf4^XG)2*?|LasJd zsLyJ&0Q*0WjTr(Z{NJ}>)1)hHx(HZ~6cP*o1fZ0k)_L!lQC3vseYxPiT0=rY!pz8+ z+9{v&VRQZdu3U4X9QL-mohx?7KpElsqPBGb;E~#yqaz1)g0J%+ej#F?*1Q6x5Ws4l zi93zk%d1_-OC9o?4}KM+z^GlHvu_=!+{-b1=_+*5e81$KjDh9gX6@$?GQA9;5ts88 zrZnr0BTPFuF|9#O(Mujr1F! zEsbuj;MJslohFryt>|xqf%o42a65vYR2^X^&j=QnB3yNR_ptTxK`OOGyXrmIas>$B zc2%?LpMGZSYNsY9FeSh$z1d65$k|joTaIUzu);|m1dwvM-q_do9w!s`eYGCjD8#XV z2#-^afif8Ox((itl5k-igcd}VX@@`s+}_xBPESR?Lj+J(W^JDGQO0J+A{6l2(0n(` zAXvl|BXiufG}f%1hXqpV$7vQjA@Ii#LXeyR2OTvnnqahJe=1*L9mebgscC6F){!}oqQ{{S%{;{eS zAVHJpO=i(G;X+nCb;84<`4|&dk$PyT6cf};eeme3JN^W9ARI)BuQ@)=*w6(NpoG>% zMDW;5$0mQ|z{kqDvS?#6#x$@~)hkdd{;V9c;D68lcL$G`EFe+hDT@@a6QCHI@3{$L zQ|*ulg&Hf+Ve{*=eK004Ha{gu!J=%MpRKn32SDR?i%npSxQHZ|h-~rbeuA1DV}o5Q zE|B$!lt#{bsPJHyeA$--5f+};mdS6ee;NVUO#9)vN!k(B04!9_VgycNby%wuXdt3&YOI=zugwsay1Dxw$O)NmZ_SVA04F< z3PHLBLxwm_#e1HdusJhp?iOG^$%`tymVx;l53JC0xtpr^ylQz4`r1ff~a!n(WJ zBfCs67n${uxU=9aLtzoIx&~SL9w%P|$c-W4b4W_MFk9L{DJh=-K${rRQOk&FYZK2F zp;Gz%aHDeh3*1y>d&07|qiFy1n_c~Ic=oe4HS@Eb+V?$Zelzv(o^sK7!Na^e@ z6T}7WkDH#M#w2KAzs;=d?9lX2W)~Ngh=)z)vu0GLb3qmCG{w%l8}XrYd}UHpTKXjA zQ07!rsC=$5uh9DQzG~n-_9(G{hq|F5+kAdW2@CV~rv-|8_AWaV{RC1=iH?*pg9lRl zN?al@Av4be@+bN4*V}JXFc1aIA^2<9P_MzOB(Y*P^olZROcXkf$wWBT6!~6Zkc&cs z+w5uq6dJaF#7Pg5InAu8;mOzx(e~u3wy?9?P>%3osQ0c5^Ph&TA8X~*uSaPOCVLou-SoY3!w-1ZkV zKat}63eEy|MH3H#V z?4|=>JDh+-ZFFvp-GZD+^c)~W!!c>)^`2QKdUEp~nRYJd^TUKLao$v~;fBY@ad?%p zWkE&NH#N;>FUGmibtKL)ETxCK%&qqN4`hJ_F(~V)rIowx3OSMAxLFjDKp?zsjXAN? zp(J*MMSyWb* zk2t!<=sQ;6ZcLw+nz|*t9oaU_{IU&hJ7rgG?f!cJvfAb?L+ON*1br+i*o)9!fwi#8P zZsTzZHvhEs6<-;RsMwR%P$}vM1~xZ4tQ)U zsERcY`QJCb_?>;To>%8>Y(VU?QMi5MPcP^Ns|n>4oVQm@B#T2NGk+$`lRVJyWI_wTE) zo`jhZqEnSJfpn#eO_kqBMgsqaDvKQ|2yTqZGL+p#vOiD_$U!C*QX=6IuNnn+XtPIN z3e84D_}z_kN&-|wXS3!~^1_S66@RuI;vzuWoD{nVWboy>(o(yH2G@3Cl&E1d4or#m zctAu)5kU>RvN)neG$Q&p2c07eZzaP7x4!Pz6?u7NpwC?cSd2uAx@EiV!ksFGSRfxM zpCEnd2ZZV@MB;&&-fiV>DHCeS`pnoIM09duV&ae@rTj4?b_6z{je{>xL|f&7a!Q{y z?1_zV`^+@HoWCuM*mc`n_?cLaDBJ-F;I^K$0hQ6rOlnUILQ(sl0{yPtjuWC*>w9~V z#H6WHGI_o`MZcR--=e}y6S9eG{;02uNcn&sjVtt)&5iG=nm`hQ8QfxF+pvSqjLzzX z7kSY>5u-f4|0{=5Jdoy1X=yS}!PfELJlne;hVvdzzk$%fBVy5f$bsfwKdhg978GG` z;MUbteX6Ts(UO6%zq71<#2K=uk#Wiu+dfg`fZ|}b%2*l{hMRlE0~yg+oR{j>R-Mss zPv2$45lbOH%5GJEqcn0M^zW_D0tyvRe+C+4palPWVT6K3^Y2B#D`+f5$Q7pH(Rlf^ z%D=a0kPxwQkf!*@n{SrYG#|=tV-7!&B10ew$U=yGjmKN45LG1gJqmT7Ly~2IFa%1; z$=bF4&ECN@1~(~yze@sPGDb@FvsoIShk1Pw@;s)teg{AZ8WJRrK9T}3Ew+sQm+yix zu-4!YeB&;iO=LjxYo@2Q(ey8w_Y|%_!A+O-2g&AO48P7z@7s^lj?ct=02wqU0N}ul z0vn7#HKb(tM=NIyi|Vh5sBq9>i{a$!jBy#Yvb-1jw4%0(&}`ETnb+`{y(K>u1xp-t-RNWS$m(2XPPj)imy`_~DSoXIjw6mE8@>+W{w0^SjafsU#uCBA_jpp4L8-Qq|QZKF@gqRfM0Z;~d-3nyo6d;;)>z4&_!* z#}L6fB^P^z&bqu3zBm+E_FEHnTzv)!K%r;o$5*AeuAB)$FJbk*U#b?>q1D%7wKIZL z0B#FVnb%j>B0B_1AZD0^#WH|7=v(*SrP>ZO@e;bbt*y_#|Hsq61YE*`$XN4~bu{>m zU2ApNn0GcK`04QmcYVj1fIscw2tt>YmGyz_=g*%XiGQzgJ+*2iq{RU3?|GT?LbN#< zN+5x7c#M8`^&-B6x)jiYcjAke7jX}$L+K4yy!j}t=S?e-HdGTS8zsV;UT(5C*)UL~ zuntN$1a?mlm!xKfpOY>pPPZ!#o3p8v_i&y%iWsl|zOldD5xw-w?mE58Z;Dy<{knOr z3<8Ye8nD-C!o~%%S_6^}cDjUc43ladOQ3z@UXG5>>|Y!oBtxeWL+SPUrk(ts(?DbC zQV;d%^w}?%9k#Nj>W6MRpSaMdy;(o}hmOq0d-Jv8$_En6)ei-yw{^;*{Po`EJqPKe z`;CI$-qPLHo@;N&ZEL`L%R$Yn+`GG^mP-q=Y5Uh}IYaoqSAa;`Qz)4hZ(BPSy1ut3>4`x{FgN447(5Tvu0n3tX=xZZZ$I^x z9Mbc(otQ8zMzWrCG&!oBJ_zk^?`x-hXxIjVSTKoEM<{B$XZDCig_eXo z#gWhudt}El`xgbE2xom!_4XFD1zNiekka21AF2XjNVUCYZXZaKTtHT9aVm- z!u^)gub1hGFvKF=l@DDG#u?cs(%%%Or6m8H*EqS2zP|6ytV~ z%>rBbpBG?@ur*WA>17`c=G4PMojC%f4BF-O5DCZ59sv;<+GBg{)oxzYQFA87=fU)x_RudOx9C4R)O_s4t%lD&6s{S)tvWz$A!Y)3{*+!p8bCRTrm_1Kwezh5l z(>;fL<_Xk47%>+i^u1XX>urxWiV^&~6PGC}-}#FImB_BpvX0?_chwnh=xTeYENV_6 zTgAt{BUjdEArT-zmppBh_RgxGQe3iex}DuneIjCFTb?-_a7k-FqfZp#fi9+RIc8P} zO=Li^Q^P~>TI6HD8H#DPC!^A1-}}CTlzular?T?AmxL?MpX>l6IdZso(7H$k5{Gs z?lM;|LVHt&R2J%_JQZ=X6T>ly#OMkO3LN=J(s*n?r3P!2Oy1nwp!`XuTL5Y$ z0;LP)NY04YmRghS4#mH2bqbr|;+&ve#p4@5PA855ZPIgJa3%M#siQ`yqjK+kl~DQqyw}X7DJ0n!xkzyHA0njFk7UgSZUSi097t>BkmJ>CCzM)Q9i&jR1<_+T3Yfu{1ux|zFhKemCKcrgnkKizYX=D>vk58@}y0m z#}_0CptfVEA@8!iXk5Ct18sK8kMI=Qf%)_8ud-tqHMZaKGOOru;L~nHx&f9P z9~}k#5&$RV*RDc~!(l5D zw2qyMG)i=;t<>k=w_Xp}k76jmIX$k!TqdIvwd6#ePAPS5K=9-9_ul;L%a*QleVbACU|2p!>XsB&v2)IZxnPoKcNXGg<8%u@E} zYRmNMN3E($4O>ODFFO&iK1PnbL?SEB<=nl(%*=N!19~E4?R(p;A<{rJ0#lrZ>5u@V z_cb(D%m>iEjU`7)%HVR8ivdt@Lvr*a(LeimF0#nWKRTxQ%-A?eK8Iku_{1e9J?wMH zvCb%*ohSQS~a~E2>0t}6e$1=DNqX9 z=S@=rM5)|F|97Uw|15LAJ5KFsNx5`1PNC`Y1VU%w1i-sps>+anD*&FPR|4;MYvFFCh1vF)RDa`W z?sTFdKq#_N@AoD~%rAp8jB!-EaLtQK%T$U#<7-!;K_J}##&TeFAdqjui27x@{N9h} zP(XMFAuxm@(cHE(Pn<^p?T&^hzx{o;YJw_}SA{p-hiGq**hVlr)D-hGK58vHGAp|3zWjlO?6Ui#_s*MfWSp zgB#EO&GxyZWegevQ+kk<*~<7-{4MEpg(M4^XoJf+$ALy&e)eUqnz#%LG}{RJB_&2q zjlYDCSm3bc($h2>WM-tKb+dP&ailjKQyr$k-#02@NJwYQ=hms_*SUOnGMmw$9wK@e zx_T}N^jhGgo-+|v3!O100Po0V!{3j}-!(80KTSZ)VE-wwU~{FVrEL=eB0?hpu=Clk zCm0j`^L5DhOKlJb-KMl5=o9Wsbs_Gz2+DANW^DIUQ?#@{ZcxWacs(lZ=ME7liyMN~ zQ_6Q#HT3^j$!WV5Naf-R3P9naFI${DPv`$F!^McRO$gm%G;)Wo94%G}$HMZnUwoin zr3D(VmR44UWo78{Dj?}WiNGVQu2cYTAJH3w9 z_)!Xh;uN4ViQZ6D;`YH^mxjs7$%clb)^5Gs3y6DIr+NTWmc*?4K9Zhq|;iNcXNR9_B$E?R+MTfn)hP}^D z)k@O(?W^$&&dFcdZ3#D6=iI*wFAQM$VKmW|51%K85Y+X){4=h9}JMWLYp|M6@MR%7y-Wd;;G`(GRhll(`tA%CGkLH(#f8c$V@d-k~I$qNjH%LiT(J2=Ev`C)xAWkzB>Z*mj zE$&GF%vn7PrnG4Hk0goVc@_X~6b)oqh~0s@ll%X9&XiNuOoC+TETP62}IrX&3G zW_O`B@8^4WSQQ=5pe$Wqb2+C(S?+r4Z|jy1{=VVmo$p7zbm$QN+89Q>w-VY|zihzM z`lIgP_SFI27C#ZKAXV^@5byW^s%u#Kf$v7!b*s=zmBOB8>LK*z$C$rc6h*AY%H|sJ zcUYlaJ$;0Ml8XnSENvM_1ul`&SxpUcuKLwJ*CdGskX|Z*^g&Qx8Jtl%q@t&@XjOs!B#HwqLZ+E^fbqL3|0C5yXVFX7 zhUYNp^TP}rO1$4ZmVO*=^}NEOIjp!aZPlXnp*1;;m}!@@Y(vpd>n@a^4kWDnK4a4s zSz-SBMN*_*(poK-cID~&WT9%-zk901pV{1)A(mYm_!ZZ$&AMrra0>ABHM~xPVC+Rm zwhsULQajFpmHqGmt=?%qW%qgtMp&2pqY#@4E)@BF`K;4ZG=KeV)u*NS#Y8Ep&}w~+ zYRK(tksz0#$y<)DT;#;+2%HoaBb+M)xL!G+;^E){LBT7iO)TQon>hZMU+YdG8jjxz zB8EkN)=5~Hj7?A18Fz%1pP+-Z0e*gdUi4tYcdITfWwnxni#wX)7ks&qVR)UMTtR+C z;p<02z(=?x+>Po2cM}Z{Cs6kxVcx-hcsF^dP{Xi}r+Z<(aX$+^lHZ+e^WdEHk;ck2 zoT@cvnf`V4lKf)h7p(0&lWm_rch5c(geKvYJs2PFkYh;%8n`>ug%Ka1p}4^>2%D~| zNG{Afp!3cTpq|6Zz;pN8$M-07H)ZZedWrA}{3Rx(NWbkEOevnxa$3EAW!H=98nfrC z|9xBz*?gG6|I4Yxdq!ZbR4*#>ZB*(l>`N>fQqijkQ0aR@EMG!P?CWcN*lQ95`+JAd z)vwZaX}dg)2Ye3wc#b+Yvsr&d&@l9~-D#)Kv$O5_l>7f|-8KZ!7oi7Rf*^$JaPpLU zsgYUwt*Wo(@?)bx1I3pm65zQ?SIUpA;3GjZo~G}%udc1#J@+#H5tb*(!otF3`idwj ziv^KVXlM*2AM7ueX~wsbk{uq1@xc0`#eB9N-1*0b2Q)j3Nf=mx@AhNda9HI@-|K|N z5ASDCC8K+qdqk9S9EW!g9yXgprntI3^K*_qI00)nfI-(?qk%}4$2JTjFFL{Ypt=wn`U?|f2k3*WqxInX8B zx@JD3p&lYGqRC>xmXj;r!II8XWwSP#Abd5HeCfP6h326ndfwvsMzxgTVRc~dYdfb- zd3<2l&g)NT6zf1#TNZ7R56q{pacHvdc{LPqd(v_eQl8vVIEuxE z>gzujk;EXj2FBM79l+-+5=sdq;3I%LICjK#p#c|BRSz2L6lW7^cK}0vqf}qlR{HDL zZ?PrE(nl$y9}&bmXlR%Jh3j>IrbU@f9mhpOV1n+!nLBCZNI+cCmV|?)%Dad9B4pM_ zx{eh>Mln3KKiUGD2U7@?P4+G};^Pj7+uSO`^A5@m9yT_N!|oE_N0S!`-ic%c5O1OM zgE2PQ(+mqbNmsOtHDos37JDxxCuNeZX0%{u!rdrAPmr}08PW`~tc54cJVDL5GPW*v zx9Ow0)Lz;;%`9y7l^r!ipfHvFDL2#3@tB_<%o(Z5s4Ku(nS0k>iH%Hotzr6SU1X0OxGUBcoywg7i2*tj;`>EH75=+1h8SaEDe zJjub}A^>_S)B`JY=`QPNG|+mv_C6-O_)j6L`kV93^KZcRqu(M{XNj!x5YynGcMI&i zm4<2VdEVU9B;#K1-imRChCdZ@NQPmxHZ~;;zXXcbQ`n6FpM1P}3Pt|&Ua?3$T9ynJ zmW_M;g$?8Hj6;@?y40`7oA>gMr^v;U6+Sb2 zy@9kUvY$@A(?cWr*g>{&5&}IaK z-czsBasfuI7c2sRBrZ07jw`SI%x9c}c^_Qp8}&oonNFtVN4xTVHHuaP&IKUNdZ?F-7{`6bYi8wRS_EqW5Sj z^7qyU(&yV9J3jpg*BD6c+xG&0gRP#fdqMir9vuYBf==H8zAIGDx~}@WqkJUsiJpNA~70%C5ai5%xSM+i_dx!Yp0h^}xsoo1Dy~Af8$eN0Xj_b<}Ng8eMV_3}pTWRlw*1}u4 zIRQJ@DC$Sqr=4--o_W;tGjo@SOr;iu+~@Ak8(bT|FE;B`;XE;!OvDp@d$#_HUOABy ziG_IjbS#k^T?mjo_^e6^0s$*2XBwYGGj2dM7*UuK{-HP==MGJ)?&Q|B2wGH8LK|-` z_Tk^R(x$vT9@Qjd+iM1^c)Xe%m}gQ`p5TH96a|L7O!YlEEt3_)8B4L>A`24iXw z@oDg>lTx_mbw?e59riNHL2}_kTf&EjL6Ft#enbp5A77Gg!YMsvHCcS;V~R(mXOuKR zZn`;7oAqvQO+*nO%bvl^YP4;*HEC)v8La0#C}-F-j7{Z*Uy&>uqQpuDe6i^Yhdh}I7ZY0#ffbPV7ge~|xD)?0G1qohz#vJVU zKHzgcuKp&l^{Ns1yLkOoD)(LWyJ9b!f?6qkDyED9yg#vcgNZM>!<+CvK5r&#ht*ri zz`yi1n8$Yr*?b+0A)WokKrPo&N87-PY>v?i^kB|n$KT-d&UcJ(O6t$QNddF-g2_JS z_)|s)d1%S#T0MjpYz-m8>SmJz{EdgTg=zlLtrlK>ck&_@Q|@=FieG5h9;i?OT0Z8% z@p`xhLC_k`6c>ay1Q8}n#D{x9q z2aCfOo|~PsEN$M!&F0p{_pFHeU%xTD<9;{V{wc7(CD&k*J-qe>L!bdV&f!Hp`Telz z60tCwY9By^Zzfsa>bdb`6WkW(C`;x&j9$xI187C$^;iHq=N;pNvvv4Ug|Xax7sl8> zr8_jIn0Vq?!{!7EWpSz>MW@Q=}+{FDJTCU7hpc3lKKPO11DCV{f(= zr#c2Z$>JHC*Uh`mML#-r{1V&Tdf3PEBr9S~{vogB%5ZTDhrtE>K|^T3VZmc7xQ9vX zdmtUNO(q2wWDNXLS@zkJP*pR z%PRfR1^o9F?hZRMUjBfmkZ)G^Y1!7lRqMmk7_Ij?`Lbz|yd*^+OO+*IvvtnT>aca1 zWlE=9TIciOBmx%a=p$?Tg=q18+u;5`HBM`jUEM+lcOvxRaqhc6;Bw9Yvc z?pRCE-?HrmxAcX6fvH8~ctFNvKK3#yT7WcC4{#o^%*?MpK5O=yMczAH5q>r^`qH%n zne6KOZ3St(Nz%zqq07eWf^Rx5GfkPk?YGiklD2*t8w)Y=&10XTz&CfeK*7t7-o%R9 zor_D7aE>#awYoO7`M(9d7y8N%76&?ZIDoq2J{b;C~h-A zhHlOd^bxeo@oA8o_fV^;|-};K2tu)5`T;)X!9@USd6)80Z=feBKNvK!{(db z^}I+>xfMC65|Q}W-Ne!Q%4Z^K<)jKXC6h(krJ%j{)GYVuzdR3e&-L#s6QX}d#C>#g1Lb&4|BGw!XAz+#O<#qMZEWIRoCF))wZXX&ze%E2fX2o+m`mj-%azyYi17d zKms{?zw)yU_@L~d{Mx7;RIjk0gBBnw3@_lHHH2U?F7g)Y)KMLN?Khntm^!u`KNZ?U zM{$Y&Fj#&ndHCQv>7J=L>HQ2GPoaSVAEUsZg+F#5jD|GHkV*EEGDVBFhO9%V-hNU3 zKH8@~J6&~RVssi2p}DkR{)kI{L^rxPRpGvtpozrVY}y3(kWgycT6&r3BAZAg>lgP{ zt=mej8&3xJZTT!=abDy^az(0Y1D~;zvHA0}8_SN{jke)EsOr~zyC!I-M`emsZqkpR zm6b2lnv_Q-cJK4i8s-e61tpZOqh*%1fix>zxuI)XSg%+513gCNh*$na^aVWH1(t-5 zU^Kc&dCA{4>#pdRzH;_AmVf{w;r8fSClid)lhGb)-VjJ%&Z|`Vo z-{t!gbA#LcqzMDn{QVXC$xnI~e(Q}J|M&_~>JITkhd0ywR(t*n^G5ia2kUT+1R6RQ zxnZ4Xgb*hptQ^Ny8kIAw7WQ|ffU?hw$~_(c$Kuu)c|YFJ$A;IVE&wsf<6KvyPz|rN z+Zeywqw>CvC_C`K_OHu&N!%s165607Y&S_{AE9DC)O;I~;V=A)ow+D?_nVUa(0A52 zJPl~X``oM+elOn(u#uPMWQ5B2n#&pj@3TKK4YJ+<>z1uqgn44~6^lxH&@_$Qz_iFL zCwn?BghTVm5w=-8?TtmdtKd+j~OHTuVseKGs14bJ6? zbzHfp9nWL`8(+S(F)ePB_9PlB*dR0N$~be=HRZDFezB&bY4gaH{ zAiuZ(iW>#y?Uhmi3u|j&3w=6DaO{f2fuWnlaChzsWHE8R42QOdLt))fCt^V+{>JDv z9DukU>Rng$*Fzh6D)W{N+OJPjCc9hGnk2}1#gU@VZl!M!DFHZ%YVf#~9U}r7dyZ+oSIc1^#1bt{`R&#Y$wS`Bj1~go<+YVU%ESe#^3

SA!jvx3`7j_XTV?=JYn97>sq4ME@rb5a8^8(Olh(~NkBA;YH64+vzzBk!b z_z%gpvscn4^?|-m(fOYC>uq!la8gtQYyuiH_ud~%$$47cpNv1lz@yQOVil39%BdzB zmR~n43T9AzpjiI>OW7b%BS{WF@gphzN9tT~3c3DrRV;6ztWTReMDPy7yv z;XTU?y@%924Mo_B6(6RO*B9!7p@hu%zyzg2A%3Gb->wlmv4;O=a@-DXa zP*6EVeF%phFQGhJyV z_~M+p>-R&%@Y8ZEZf`yuf16Uq0VB2(-SZt-_gytA_kUYq;up8SQO*PAc-?+pw$5mL z_Q@1S2%d_tMphtIFURJF0U3KX^=ixa^xLI+%HhJ02RZ%MOFL1VJx6)Dla5(VIiD?X z?Ys_ibsvc~CJ>uj=M@g(OJP0DWsObtWZ*dh;j>bnNg^DA;NcLxNYGfY+?0z`=pF|1 zo4)sA4!^M1IV5w`*FWK&;xKLWvk5WnkATJ@4Ls;CN+2L!#K1MqtNIp9e}I_%0M2$o zPal~?WGrdN-+Eo@Uf}F^6(^Tv46wmb{C+wpVO>c*r0m-d?e)>yeDhyc1l{@<=#%j; zy~EnMf(=9|Tim0AA6_!NWnk6+rp0e)_nDqSH5?Zg3}Td0oaj;>>owal^4QtNk}K8p zDqV1-ooz~D5%)$CFvJyv7?7(w46n}leLiYBnSC9M>aX;zrJt{E8yB=v4S*Ycw7->| zsS*{~3b|r|_jADxoLY#`|1)L5wR3($a#xcmh!g4=KkCyEk~?=1?c(-fXCv1H{zXBc z0Xb`LjL3qB)zYr_Atx3Bmc)r$`tXB=x)#$qH*(SxGY+)~1RCD@cz+1Ykl5g<4FxA2 z-&rEkQ-OE&|MBboJE1}9CiSJ1AnND{s;i+k5aR2S;(aZ&P88 zkJ}5B{kmD^bwf8@NZ@dWSkXkOe&fZj4=^V1&tplPHwT-~M&%PcI>7e>rxccD-q<#l z4Wc$su2io2cW)*|75Osas!*6P1*yP6kQ?^-g5_cIck)c!k6-@85JGynu)^2E=`%3E zt^P^+|D?%hm<*+SjUN3e_kz((rG->j%%z`eoJyyh#g_)L7i-ZRdu~o!Tl6&4Fx~X; z_vHhF$o!`14Mk);lQPoPUdnxbic%_&>sfSbhF{FQ%A03LkwmbxwN*6KqQJVou3Fz5 z!V^S-mXK_p>utu`-%=i4NVe3*fTuv5<@j%gSEeW$yApvOGqB>}QA&YMc4Q)0FQt5E zfpqY+1V3^j<KeGkN_N&h))IL3EiOA1;8 zxv2739t+aRGvFoc?$mp`L3y~#x-^%0Oy)n%14^V%mrr8((=#5B|2q{DIFG|O--GT= zt!ej*iyhVLet5{xRrJRA%$k{6S1(KJl_5BZV1QJ|Ei0?tV$$Uk;@C3JuBrM1ix$+0fV~h{L<+pe!PTZr>fkzZ z&&&}+HU`l`{g6yZ$6FY52w>Poa9x+Sc(H2c*$5)#O691)c59Py8gNIasZnHJ_?(ddoIdYE?+Ag@myhG}Iq(0B z+@tz^>{$+q8SlLs-+SIMRj&GO%K$2h1A(@lLfj)X<9^n3#&=DkdtbqTZ4tm+`xj0! z(SQwOFL{?y4&moXcOPzke^a<7RuuPyYh8BPbwz-uLcR%rS%TTh7@U_&L?!w?O&%Wi zcf;N#n)ATOfwvm~BZ`bSSik^W%Gj!IWYhVsJV-fxCH_Y_L-ibdPcZBb)bzWlPu@=R zj=Ejr=!I?r!Ge&xQ3xRs2+Zv#!awey-C zDQ@Yfc`2>lK73^qQ=vW*8$FZK#mLUGOP5d1?G7)7zW6_sajy>|if&ad_URR_KGMTw zAiV$*{qP$C`M)@Cq73gMBbvxu$l{3~-m7{(N&bjR>CYFP;i)^Zx1MX2r0>178Pim$ z9&p6~Jo<=02tk6zb428AI@T`-^fS+WYmg=UhaZMOaJ+%|B!QAtys9c}RkyC`oLK%S z-MgOR-#}Kt3{j~sS5zoz+d;*5Y_9p={zDTyV21%8Pj9yrs+U9BPCm6iMb!@B(Xnwb zDF^_7cR+nl1X1*kf0!TN3~fe7l7Dyd8r;dlfBtVkwRg?YA>Xpw`J2j|hxfdWF)@o&VFWDWzsdbc$mWX}#sA0ze;I|s5J1H}mOMk8t~(nPzum# zfqLa_cUPd6QO~U74)1DiZszbuT+uf%4<);`U8>7Cs&fKNJFz0~>Tb(^+qTTJ$?uJj zo0Yd-nJ3BM)u{sljIs9B+nUNRc zo1vA{Xck;3B-Hr7&1kP)y#l@f+)73V5f$V)8-qH`n&`+%lk3cm{O#XW{6Hq_X!4h8 z-~`B50DAV8P!n@Ij|TwQ=LuP~^FN%f?pDn_3G((IP7w7&r04z1x4lmYcX{wIk_iAn z9O^mtbFFtf5`+UM?(3Dhk(%>`4=3B=g>V=KwY@uo4UzUxV;c|6|EeBl;W@lf$Bied z^z&U)(8^+TxncBh;vaNC#}-CFat%ybdQc?*O9!7{qYNWA@)0DjciTh}mSFo$#xs7t z!!>2?c{>R=c&y*^MDo=qHSMF$vZ}oJ6LAZ25I#W2@xW&u6)D@osO^@lc$rdB5Pj1~ zMXHVQMY&#*!b^@;rtkx0UeOP-E*`B%_c;B{@oAnL0#H5hS#J`+roub_#cq(gyMe`| zu7Ad(%FcO%$#QTsh z;{XNFoNPs<4@K%W+c$6`XFi{2O9E2JHccLGv+@UK0+&1eLrr&fM(XOGL>(Y91p$@5 znjeP;UHoW3XrIV1_<%viskr4HJd<3T3*NkP(z-!8P4$4sB=2JL}WZo(wp zd*}YWF2}%ha?cllM88^`b>8pa{Jk|G3fBjd-C!3wq{&r+{07dRcpZHn#MLH;{6Wjc zvE8pWM)(H6$$&?~1>6s)9Z|&rMjz4o^=shH2)z7n#gGY!jz*K5=d>LcjkJ9lmkAlC z1*Cv`Al+)Pk#1*I?H|rywvu?b^D$gN13;3eNR%LS>7msV-2OYEo!sl@!W+M7EQHx> z;Ry)$PZD=YcJ2?}@ZJ5>+}x*PQMNGBaC}n!akr5Py9)(t)o)GBTBHs%iyc4C&klF> z2{!Jloi=T3#~to21SZZooql^nvdBu&5#`#Uf zkyFR*B28}m3#Ua=Uc~~3#lxGoNo_wXEnJSNQxfVY2b9`=WPYw4blXzGSwg0{$D;9H zlkc$&>PG*(c7XFRe?Rxg1&hVeMO4boKQ$D8%$I@2V;l;|BI~K2tpyjw(&lTsFH4*+ zHK~>*xZ%g4jOkk4)iJ{}+7fS8=kjHxpOZckl$9#5t7vt%u;<|COp>Cm{ya6@cETP; z_Y_h~A&6i`Q@z|*qPmAdx}vS8&dw8!^-ZSpO+}0AJWN-kv9zJ6H(Q@{7hS|6W7hC` zoTdzH(_}M%neL?hHf2vrN|i8Xzw9qpb6s=~%9MeoT_3!Ymy@GvP}TNWSNoi@e-mHN zh6E`V_C|cN;CTIhN~`JUcNY9rP>*~@1hd*7)1~hcT6^LG&JiiU#-~kNFJh?4X5D>Y zg{pN`5J;wvDTl+AG7~gDr00!swP#0n7nJlBo!!>YX)jE^;SAW-3Yz%c_Q5mu0Uqie zvDKTcuh?;qAPSEVsG{C@wHn;H_vH7ZMSS_aJ{=wX_T1i<{d7R-kV$Q;ex-Q5SQ!hM zg3615$ZPB4?F!8<^X}J2Nve=c#BA93xFG{HUW%$}bFhw8W1f!XcvFCM=Cowl9@^7l zyY}~jS#uICgw)wYIqHx$zHi;OwEc_R-)ddGj_V4|)0K?KSxXvmzoM*m+nM-&mDDB0 zMh^st0^%d=fne?7n+YB3n+5Chi11c?8uc=;Kyg}p>9GR;K4`Ah*zB@hm2cFa98NQD z#1IazKpJ%etStHh9+lg?q}_H?Xip)3h>62{R+F6hM3B{gG|%WqZ=u{+O%aO>lMHMY zs1{6aCmyu5Y4F*d25d(D&3PsKJL!!Lr7fH~RNMLP@Ala1oDWMQrdF2K3tw{j$sIU1 zH=b2AU3Tmm*XckYdA<;ojbe|EUuPI-1^J5N&muFRxR&NWwCyW9C7O{AyjtT0o zv05)yflt?nQXU_tu?C!{ZD^ZWR(q`PPNC?>D>Gd0jUlO>r9KllJIH-2*x1*y@;3{v z#UhVv^LC(Lg~Phlp{(ADx$KAK(#6kI$7c}1_glh3W*i)eQ{_73Ni3<1f{&@p-I?IC zj6HZPje=T7op5?E(plrK5xW4QHiy-VZ(iRB`Gt@vX58&{<&R(<;Y)W>W;j&>kCa<1 zxa7r~sAFfk#g2Ugu&3f9NM3sVZPVd#VDD?Ojd$y^tka>Q`{A`@=4mgAOh_6W8A-j7 zX0q94%0)b>Q}gAb7U!g>OCQMcR*bB4=Uj{7Sj_1@nk~8SMLa|B4C7;=;#bw<;1 zU%~ywP}XAu@yIaRSoM;L`f`t~dbPjNb?G+%HLTB0jK^ZH_1*Cf$?D6BlWMxBy4@Tr z|MT0(%^U&bXsvXtn0IfvuC{fi8@agLw{Kz+FyMFS$v@4GHQAc+0}6tLz33%&W5zgSZNrh6qeOo-ZaUs}I2-S~ z_4R7pgarr}F*>xVBX_Dl%}2Ig9RtFNw8^OuJYjwl8i9sP!6Z%7jbmKhZXTOheA2x; zHpMhnw6`p>8uToD^O(uw)o<7?iIcWvtJUdR-OIGr_|BLMzY401Fpj%1j0EB-(@z54 zuF=EQ203swCY;Cu2lVP$PWcM_MfBm#nV^@>r+ETx{pqAV#!iW?H?^NhG4;Yut{1Fr zV9z~Pd841(c-t?}UT(T4FW8R-QE7PCRi85IG&$OH=yB~@a>Xv_G1TCri)hSQ^qmnv zGAGFe5o%wfn^{%jUG1K7L%nYMmpNFMKCq5q*od{NsmpeZYyuCS)6XtQhrAyJSr3^kQ3|a!G=3Smzvw#lI)IyrdsYBKlS3`ED!{0HQT^1 z8L5xdy>67gX|1bgO}%yu>OEl7EDIEleM3F=PO~^G- zSCa}b|5?Lmk=2#(@`f*WZ{$gT8|J^!(PRo7tSiR};=l`CzQ5k7?O9CYNIG$B>V@eh z4Aja3G6;gpSPBRvE|ut!A{)Wp-X4|z_nX`-h~3}ixyfOjKVSWaNd&lfxQMt3PE@s9 zgthjzX_ppno46YaERXl-bU?~gcROi(BqlwjG12!&sQ zFvCcBxsqgzv4g{U4eK{<8M|Ozy*Ntu@SIIr+L(Dpd4bcRvnGMUu{4~Lut?eq7{FeC z>(6-mni?~TWub=Zi+jxVbIr!m?M7mi(A^*A4!f#taG#>0xC!&`GqN$EzdnHRP;*Lv z{lpvvV&0;_El7Z&Y;7s%g(@7|L%WY#kKY~gW?;qiuBjy?<|d@2{c(syrg#O4ledG! zI+s@tD>2{?rPv~upU#rJBON?J!st_q)ERNQDyK?#h3nq&ssoG(4K$$oN_?ww+2IXKq%hUGI3O zX`P-eZ|OMJEsbCCO{4tJ?5?VgJv>`0oipWxraEf`gG^XLsXDJ{MsceG0#UdeC)VFQ zb$w1M#6u8{o%P&d|FndbCMNpU1Uner!)V4fSo8_7OSfCs!$#FEfY-)Y>wD&M{=z zijyL+%{EEN^YYqTL)cw2j3n>ZYldQC9h6OIv{bthHEY)Ud&b^pyiX z=8h7}H+h<>BIQYaPAR#?P%)+ZtG)cd=P8y#r{kU5R4}H?L=;F42HySNwSz@q(9oPHPL+=Q2nDs`HpYzvc?Ls(M6IqEsi&4_zra%7u!OS(2&$G`YENJ7%anC`zMs%55wLM*cqvbdourlUsWn@@>O=FzFWAq+#Z)M9 zxf)a8uxo`Dh1B;mwJ-PSBNXk7D-g-l{3Sy!HOpTdV`4dXtW7MgXWNg_JJd?WN+!Oy zdMtNK2V{sLtJgN}leIaBRFZ(g#~}Cq-%+q>TFNSAmKDBeq5*wV5jkq zT3%kRvU*}D6Gkha5t0tYO(T%k_FQL&?;Kq(LT_~*4H4Dx653C>cM9T7z z&?FU>3Ws?fwT-d1^uOaQwXk&i6DuPkE8B@(5~bp`TUN(^cd-h0Zg&2lULg1WS@XMO z8N-+&rWBKkvsBjf$FVZT_n-eTb11A#vPnl3!FylIi1M_a-!+-Zr!X38MxTY*9Do)7FKRD5tsGIz6> zaAI^PN2y4FAAUBiMw#?GS5dvG~S7u3?>_&84QAlgX3<*R~^1p-Qkq zxO}j3(Z5r9aH}i$Xa)5Nsw`aWobL$_;`3?x!IySUT>sH2HM6J+3#Z<5j9suwZu?2W z(;lfu0M{1+QW`H44(Z)JRngGu+}_<~bR9M~HKoH2wpeKVn9uvs>QE;A622HERG?{S z4IN%lv#?G#abWtvt%-43^0Yg?%j2D@lHd*X|mgiN8NL|;yu zEN2u+mcr+0VGC9n@A1*xk{U>^Cl_N~{mL!VTWTkYr}R-&{p_^oZoSf6&je4Fg4ip_ zrdZ9`L&PK}63xv{dGBs}JGbo)*4%GfKV61am*KgUbS>)tfZby@a}GrUxUBEBzH%W*GoHzCYGkv)0>*a zL)B2c*<`$FA`NE8cR4~CO@Xh`lLVGtd$o$>%NXQbRxu{DT>N_ONjuNLIe6RVbv6oI z_hx#z+RPDLUMsuT-R78+ad4`1AS3uS*Q-~_WQqpG*%LUzay{9YwsIGwk{OF`e+x4c zUs*QHw&uS!lHRT6v19o>6rkF2UAfe@U|d<3xL=mA{k9lp=&>|;j3Mb!J?N_KmjhE_ zdsf??iGy?up6aPcIHV{ir(@soaK52>OBXk?Cr8-hA}}cERrJ@G4;(~8nEL8m@$vOk zGRR4Nx%u7l0loCSZ94?{gZkFB)5FyqsV1K@Z*x^bEq!V$2X``IaUEZKA$e1$@KEcU zk>u#Hhey37;SP_XDUjA*TZDD2-V^{2{qFk2M^m6mTY)KQfdA5&D!z}4Q$1O;R62oc zP=_2pYcSa={mU$FyyxBD@izXl&sA#owtnkRX<;jJswf}dm(cn%)ersPwvVBZ5&PD^ zQ$ngd*}s(r?6JYgHg z)$v}jeYvXELJt|n!J?CD!1|Pz%R37G6*jtXJeZf2R40+sk zTsqDR7(22!$yZYaZz@P>{d3cKGIjoZ_dL;`+b6cKs)I48f2?s8{{4yDv9%fgdk&|d zM-dJ)WJ;Iqsot(Mbmzb&mhS3_fmbT?^`P2y(#H)LMfA{spAdZNPAiTXbmJzNJ(pqC zTsTb-Y~HkrBe^u3=5zIo6xkdGO%rVVYb@Z)P=0e-HT|&^wbvw%FZ2^l25;Kemyxom zax$cm@~L3pU9`hg2CsUziY~^J3_0RsTNgNZUB#w=;)M>Luphf?illV$53eLzTY?$b z&agjXWD?ffwzsmU;%CRMo|E0Iu)xK?I2EZtJECV*A00oAKSv3Xm7%&n79Y-l5?WfY z*VW8!3|8wn-R{K9e@?y-W2@Yqx6ao#@m!MHwZvC1*OWz{a1tpJ*0`Ooo(?Zq$tk)} zV}IG7Pczo5M)N+W2xe%(gj;YA>v6%AKb@ECFlOUSX2Q(rGG>Eam|yY7!wk6-Q)KW` zU>4koM6xPPmEA~=2oOPBA@7ryV#T2q8bl@7`Ij%{yX2|!X6U*O>Q&Y^=RLT@|DR@Crx)O zl+zF;jbvkV zJTX&-x(>bQ@BWlDbQt&wY|rjZYEG$hRd7m`{nWgyu{_O_Ixg!}rr}JIlgY=yDe4r3 zN@&}}ed&lj8AhdgD$%4fgA-}4A&VW&^LO!y*~??W z7i+=OYo_cfFCkx%8yjGG2cs|XjHY6fmmwyCL%sxP%zthuDoBi;cs|7Y zm_Q4C=sW}0a*;)SrB}FEXoq1Xp^T$nuO2&hG830y(o+ohC4)%yXLGYS)G#^J{Ej1(?H-~s$m!kc?Hre& zgvNx0=dHZj#9WXZc4s1M3G@&Y>NTz|o3OAW7!0Q=88kIdd%3Y``e2c`QefkzRnV{v zmFlvYQlVMyG6Hm{h!2HjC?2;bNaO^brv-~C;jH#5Gq`nq?C%OtDk>#sJgIb|eMU;6 z*`)1^wiUf};BggsI1)ZfN>lK8aYJ*Gt7&+clu&+;NN&&dm6Ll6V=6BnUJLh&TfM?% z#;KXZ`ewu?)Y;ctC!6ZPLvhhD2>^k~jg8$FWfGy4>Z-qBNRXAy#jdn~rb|ZVE`q0z)!R zX*YZ`y6kJL)$|Bb=mNZFw1g-LsZC&Dpy@>?n?}SrBL{7k)u9!vRs}hURf#59GMp-h zc2%io6(%2N?WeIoZ8?*eWQ~bibb-m54&R`O zjZe85F|3*m2j1P#)K~f4qV= zMwnMUbJOX3)P*0x#iaqYYE@_}oq<1_dV9AR>v{L(hP#6Ho>oTDM8qf|^=d}?*t%`{ zpwO3|+VnI}Scwyh(rGY&HNL-_y~vb?GhVWreY@9QpE4~`hL%<_xYs@=w1{Rqbh}fO z;lr<@_-!q&wEhTs-j=WGCt`CmB)E=#GsYY+Gi7uU8K~c&Y4#=wm@@7}Vwr@eIp7`5 zlc&NGe!cqKiBY&%kj!62Hpz>X21pd0o5!aoCy0LSt*!h*J`rHUL}puCTS0+%00X>N zeyW>XkPtIxMvtSyG>TX;e!$4|4@YuHcr(6e*J{%EOcw9h>xoj4B9fF0iD8S>XW>Oe z4cizrpL1MXu`uzKU_BT#p&h0_h-HA`-ZNJ-W0|S(@BYBlPlKag-IX~eDbwY0?@;m* z<6w2k$~>i~Nxi^8Mzwm$S zjNRI)^Xv}WoCV0pTzX8ESy)XP6QO9d{1|ZcQ@1v)l_-e+M)kF5WyYQ(Hd%_+AW4}i zWuyC!y2^~m=KY%@H7?TO{DRTmQ5F8Aek!{pm|>|i3;`Y50>qJB)ADJoWC1Pum?01d z!^H&OG z{Jf2zosuKWHWqn}tUhJ8!r>r;jIhZyhM1neJClsGi5 z4kp~95oLUuJo#jj0ETU2)T&1KEFQDrwg}vK9A>OoDN|fSD8w`4Zk0b}kGdR)hAqtG z`bxHKQMYOf*uxQmH>ytoHE2?C7@rQ!#PXj%uPXd*P}1&rcu<`^q~t zfcslrvQmLg`5+njlsJ=^JH%rx_w&uox0aZBS{E zd}dbPfQ3_pnD$(VmFF8n4_q0_(}XtqG;PR=4M%v(JGJ__Ymh4k7!+(_U}~VlS?#72 zV`;dqy#2xi-MM3**}DKVTTaz&NasiM`u^`Ec%>*)0&M#?1~;npP;Q2R3>m@ErBM#t zD96SPdY$^&6PkvDD6y@4=5wtxWW0n{dFGF4dAnz{JBN?TfBc6xr|oWiH%Z2G%m_d) z+tp3Y69_asTFesn_m@agB8?Sew+;DXBa8}G>7bPi(SuY~+sZ7w@sh^Jmqqq5fqHNY zV}{sNAhk0mOvYwI<0L_7QY$NTCGDcfHUxuD#d_Fea(eYgiA!B`22I&_PQq!>L2; zzWSCp5H=)L-7AIsdgr8?xUm`}G}o}}NW{-Su3AT~i7)MTGyfp6zAwRu2()V~y98xi z-C_5%SN4UtZtd1%wjMv0{rU1Y}P534>tK zuxiM)a?gSvzds*^0xpxhA)g^ZyWN$hMkBjgNRl#KT}qyxy_r2dv+SEUPyJ+EQko7Y z@Hvp!oXfpZ<~vHalkrZr0p?9>Q)|sq;dhTR`HP;DyF755{Fddw&WVjfrm(8h47mD> z@$8v6<#XyB({ah480$Z=HY|pM3I7}@$>!qJc;WQtZlNEk(U2Cbei(HT6zy*dMBi@@8_>h^$F@gBr0CR7JSgQj3OxAIMZmsL@On2Kufwh2#p4b}W6G<; za=!b8o94P~OY0tj>bt*_$4at2=li@v@pS~~pIh4wo5drwC4L7qo3CLs?(K?W)+E_6 zCumjkOqmXFCs)hncUM2Yw1?*BIXwNOR^zG=BveqK_p?-li6KGKWJW99XuCGWnJad{ z7_6N+=KJ!uM;-0!b@?8iKQhI(J4=G3Y+fu(hC#aHyL}8+%z#lJhy53^4T8Yizo!Lv z$5-+THSV8^c0dvtBrj`>`V)qRhJ+0?8k?GKJq0|PJ+2*bcRK0-5-nS@ds{KaM^M)> zWxCpA_;W>zO3n22bm9Vk%JQiK&Admk`deO1+FNZC>TlsjV>Q*nt1PaAZ_@{JZ3%6G z;hUNYHX568FVE%WFmOp=Uj9^JCJm5m$P|W4nkxc}r{$}7lq9Hm{Ts49*=uUbf3MsF zo9%F~$B9ymD%(dW>qg4FQOi6J7h8t;uPtEuL71d{-{_V($Jq{qMWllhIDT&&b9^MH zph_F=DzLW8+fonh{!pYvlhltbyk*G(on?#fr>RadrHMB0egJ#*fx4l#{=o! z8dR-1y#%lpGuO@AZVV7o2LJ{PlS-6AL6hp2!;;W%;U;6TWB4A`a2a!k*bw8GBzI4S zG?~rnc_w6AuE5?kJ0RUy*n_!1PY?H#l)0pl=`TmxN3Rw!DnDp?jy+$^M)A;WmKew} z=)J<3A=9>tGwija#k5d&sQgtH*94aT{KrYd&3}KPNlERTs@1$0Hy#-@+secS&msp_ zNz!k8+)(|^6AUulXr}j<9sx-C4CcC+aLIAR_N^cLN5zL9-nl+i#YS=-M-gqI);h ze#yx=sZ`l-fy)k5T5x4V$~vixZo5Zdu}8~&XG-C5>rGn0Sm@1nMtRy$*E8IjCbd}= zL%)F2fbON(#M8l)G|rqn!kjod9QyjW;AGGypC{|H6x$?|f&81-IBu%qCtd4FoP)V>}IiD z5dcPXup91;-FCZgo#DI^+!cynQr!T9!FqdpLDw3cv_Y`>CGD-vuXWp^>IP9to4INB_YOnh{huz8E3UdvH2Caj#y2ZvnzG&!AIaQ*K)gQp2pefXO_WMxfX{|xD zppK>M#dAO(mFMvOL6=%Rz@{(I3Q0rNKP)V)Q@?V(|J&zJ(c5PZ%K`W*zYyAko{{~S z0cqjEu|`U&myssyNp1%X;=3V$Cur>LU|r8DN`P?ucPR@h?C3qcDKTVj>&52i=;vjh zACd1z@E+73wqB1fS?$+efre5@2#>()Y{Vy{VUx9B+31hO$%5UVDc$+hPsr6lE7nso zOAh<}y>bgFjX7w9Wn6u^97LvKVyAO8`t4zRCThU=%sgPTI^NZ}zXJ4P7N({OdUl>| zONZwICnF+^s^!Xhc5PP^6|Kit=X& ztUP~_!~5Sj@_g`#3eVGYFcsVRDK+J24aQle8v^1-_ltA+szL$~x>&4xR*y0safT|DlUI7mmaA5*=hS`lR ztmtrJZqT!<-9$TxI__*U= zN(#iQT3S3#cP3^h0XtwgR@Ikf;fbNg?0|6xaPd=*uK~6;|EP~8Dj$W70LLRZsK*VL ze+6i$K7#xqnPqw*ZB6(Zy(2Qhlm#jN^C;*vQ&lP>5RAnRVl&L3I;(|ZjWS54`^XMZ z3Bf>6eem)UIInMNO3_Ok8j|z$0fc5%7V`3usPWHDt*uoR2ObihC=guCvImBFLr{D< zJv(DJxxDo}aHyM;we$M?_N$Sz^IPm-IwtjlK8QE!|1QmC7sX)GFrCKhG>S6Ao^!qR z-E%Dvp%BCLffS!yWFI0qSGuAPnktZBHfgb3nyq}~Rwag@{?kPWAp^D9AF(koorE^f zGjbT{JRZM~1Jri8w$R8|`wgbQOCRZiuYAdLqAC;5Qo_CH{3>4Rlk0Zgj>Q2` zSfDcpoKspkLmLrf0{nb@?yKS4K-DWND*;Dnigl}c+F;izT%63~1Q5=Bmn-OA50jxe z{{1S_-qEpmtky{V4Cqbk-PJBJ5z&LzgQgImIovSd#;h#|?T-)~nCH7p$HvZ>Wf13V^Z(SmyV-^o$AV&3Bu6QElXtxoqU++R5B z>}?Q`GO73Eht6?|&RX3{b_C{p#O4BP5fg|DBVVzexH&Pl8%t z<2}BxP-YnX-wP1jI7UHW5VX=8@9yq|yM9>CP0q~BEG&G=2X^D(pfjP{?}3jwDjnIS znr=M3D);g68CChuo9K#3k&st1?ZTafv#{v#h)@>0*ajLMc3oXvr8FOW7&z9Y1Uk!0 zO8R$Chd6k&$+5P8zjiU&QF3ys8~EJ~9$L6(m?$N~lw}0fH-e3lot9Ud2bs?J#jb~) zp`vflK_%?MsMr;W(dXv8pp;>==9Lak_R0r_M%)R^(3sngo8SL(Q>a5|L81mR?^%?q zo14jNweo)@f&QCZA8h-bZ%c>Y=>OO@AoxJ~t9%3jo6pA&G3f2jiZ9Mb7#7F(Oj~fcY4vI2=Te3Mf@8?xc7oQ6Q7R?(^0gyoukt+5$L-~sC`3zW6ky@ia&j1CL^D(wsTNOu=U zR;82VxHtVAB*-e1PZwcx^d~kZCI!xpwjU4Ea)I4AV#S?W#4Ik_Iu{p-KW5cL5f4Vg z<`7`glC6OBs@YZ`e0?Q@h~I8W&*VbOD#uP+Wn4M|KE0 zMBrKH;#Y#ajM?sE&On;Kd6A4e?3W}qx8CXLFB6Q+M5Y@ZO7i0wa&+0~UT!|FR>%uT5zy(W%Y&eIK6brOuCeaY^Hy=)NE$vDi%I>!a~A9ui2g#`a?>U=?&AEH6-BKl!_~etgNW zT-W>qrX%i&htb$78oyXiOhU5u>`75&%Utbe)v|*$U3b!t(!6RYh)ZM`ACKBB)FS~% zXukIIH*%Wga)M$PwYATb`Lo{&ehdReUYI^g{7_|`F|3+zK2DolHnDpeaxZEyB}o1g zHz$&j?6%myL+@%Fyz2Db^*lmbY(3qzMcZbu#Od$?)b!T4W6R=6$Ngjevl|5pvg3SG zHzoc7o_pgwOz%Hu&*~NJKd4Zm?GuT(7@1b1GQpPTJ$WmCV(;CGB&kir+2rd+DvaX~ z(lT+B4BUEXmu`!Fzy*ID$|orUL)1!BOiJC(AmXm&OkN(N!uetU`@fknNAE~)DOcie z*Zp2yt@Jm0ZvQ0_5yN@@e=aXh>6PGrZl@46Pk!`2C!mmrMgHI0G9upp`8YO=NB=go zfIV-B|DfFf-2MM^QejzJTZSG%pdQuz4%`{_79i6z=dsA!YYq;qj8!P3zfL-+O10hr zVVqTwCw&!F@>v#= z(h=FGn@fefEp8t#xecP{6rI2&df=SQQC_shpKS(P3F}$5Xjcqi+SW3=j;`_-C?r*- zM~rkof=Ffiy85r^pee-8?I+yK#2(@(dwO@C@}T1WfnwB>lEXZS?{RIuO85VEqFZkg zKY1fP>hrX0#5!PLCUgG2_5EC_u+$1+?@`S4P-LbdzrPrMz^sJ2ytwHq0QoBRQ8)&4 zQ_#IY4G4({@IErLwm#h2O5AQj#8+Vi*y1b$2Q^riS;W}(nv;~dB5>PFhxmIN2MbNx zfT&TDtW>iu0&C^`8Vw`m#F`iAeNVj zowlXDy&W)v!FP?`k!FQIhQz6%9E#z-J1o&6qeD5!$o~~Iit@KD9Cb<2;kwX&p!D$- z)XS97X`~YeVSAHKfPdm5?U9O*+cQLj^_SXRUAonGh*u66hzMF1nO|nZ++7X=U9ui6 z2P8}W?@3Ur_VG%9TMh8!nzyPOc=5_rJ3mrdjjYgQ{?uUI57MG--L;63QcKF~7^N8I z51M_f?2fT-;cZW5g?xGb3s^a7v;lqc@~bWUikuw3rlg!N&c5!K!0lX-zd)5-T%2if zs{@{bJNEy~ae1d%D;fqfSR|1F1wLVc=BuZ2;ud4dCQ6InBl!tIn`HQuKSe!L-FO`T zZ4CsTTFJUr5|SV0A;gaWK`Hz|VyK9*27iUGLF(+ovJdW8QA+#oBOu1_@?z!)lPYa$ z0u2!DT12R~@Qm`If<`MF_aFimUJ`>wzE^~G|59!3ir8{~^Xqy;IwBb-mQ}}ITglqG z;zIm;O~EU8P|m}oYpWkfr-jlrp~*)P6j0je;9h!(-VOK*k}J?LmXmkkoU_24pRH4O zU1(}oS6);@Ou_O3dGBdhMJ2g)$}c4(M&7=NC4w#kN>rmBmWgc%?Af;vL7u`F zwDWYhxtzAkehm2ziz^zDx>8r9GBVYdx!W$h|c597wRRN+_GXb#tgjebo1 zquW@%sv!qCzaDE!WTmI-B0c#eDRe39rmS2P!|8YR_3Mq3u2}f{zr8E+DF)tDTUGs~ zyi`RaqOYv9m9msTf0=l6Tq#>91EM7fB$H(PZ3V7|Zjih!Ot26!!1b~I4O(6RztoM$ zP)q1ior1O^wwG?Odv7)wrOSl+QAb01tl=pTs6RPzhX%06jFPSVH}d&U>W^-`Oo6#_ zc7wSYkz9U#&X8*Oqft1(WL8aWru9?{fvR^Gvrk^1eSModL+72)7~RQ7*53ckLsH@M zDCDPnUk6W6$qFT1mV{{pur+nV2pQv-Bwc!iHx^$-?@4|^#h9fZ-&`%ASoUiDW|V$)yvV))$S4eCpMUJ@Q*Y&z{dLxZWYuNmPOx(!4p{lsHcYsRd(Xkd^6j=|!uC zw8$wM5=sW>YLA{sJeVt^>`_wUBr@8|4DAt;^NJikL54<54~jR;>c8jRsP-hfK{L?* zumD=5ROgK&0dvC9Va|JlVP_xie&Q_z%y2T=4C%lvwJ$a3+g6d{Wtu%jvRIG9h@^QC zsIKyu<9=#fnuJu$pd|Y_rz>W`9V~brQ`Oi&yxHk(@S23Tf~OD9`>C#z%}_}T#f}8l zsu}6KjaDeDKV8SOd{h70zaGQXZ6pZdo%ObZ^XodxIhwoFhP@oyJ{%Kxu-)D0d)g<* zz58$ zjM;fZ8UD^L+82zZbU_f~UtTsnnfbXb#8@L7XI_v)CGKlbJPPeUEE>qB?V;tt@C$Y9)G;paXg}=$%QCc28s!7p@7V}Wu5W#5dP$Lz zIKQAS>j(v*(&E&NJ=xtd=zV!CLo96uqstqS&@H!me|_}=9|5Flp8B-|?1ql%?`?bA zI(6UnKLBbvkU4{$9wGGvXoO&T@gwZ_9l5sX)V@;PpMsea}{bz_DP(MquBxup-@0JtH1K<&*_-5Ti3Q^y!Y2W_YCZh3@S8 zc{w>EB%1?ym2p_%iimaQJU3Bdy_O_*h0P$xbaw#_Y1)C!%n+gmQ1y)1Za703P#=`D zh66b&lOKMKv%**(E#cpkmff5i20*?C59^c|(61~Vgs7-HRjQpW^`ILwD23ns zCXtgo`>?p@$_1K+oVvEGe2qwv{MFV$E+87UTay*}@l(AEXH5OuAT)xFQ8lT6#Wi~S zl7y8zhD1s={?P%4UAaJJDgLkTbxjar9^LLhNCfaF8{pShKHUZ!*@?X+V@b~@MkY~); z9$#7_Lk+k{Yh@bzcRKO& z-OG_hu{VYX?_hwTGh_|K)OS0%`aX=NdWtRCtNiUkPj8^1@eg78H5q@;scG6(^ zP$qK{4ePx_vYEkiR_fd}U>+-z2E=d^3V5lNFnS%#)(5ZbsZjni)5y|@Md6($bHb|B zLX1bpPF(_(0qk#auiQNeFUeHbsY7E*b7NY+>P`p$3T*`0~B@MWzPPGA7~z>PPbII&XTP0_m#n3hw3R&KTxydaq&P z0mT*snn{PmsgHe!TO>$M?h?V`%JS4({ZAb~CvM9bI)vKiK{#yDHSd__&^tg#3;pO@kk5^(|h3b&p2LI>RovELY9ie}bBZ!8M zT%x3XxlAgi7?Y$3AbpP>X3HO)!J^}VfkY^&`YeK!ck6L4VIzc1yoPLSW~S(uGr>tJ zWIX8M&V|jJ_oJQ#L~vneYfD#sausf|*xax-1zIvm=;)9I{zfoGez+y7 z@kBq-)ARH5vopLa#sko04jkSa<7iQIcivFcB0%g1j!fY~(*Lb&l$qiug&0Cuc>YTs zW>Rn>P*JzblVb^n{kP(oEso=r;PCncCSnrz->1E=^14Z=0_j`hb=f4Qq<*E+JzNtq zBBeelg#9d`<1f#@zYE=s2=ze{d}=qXi`e9x<=>0mF?5GmypcViB=G{TTjPJ(&axvK zGXf$akYw`5Qh8*VlLHcL5};BHo7Ln?cjiJ7(hSnz|9{3uqis1}PVb%Ay!XB;aI zW)R5uLr))h+lrJR6^fW%Kr$6(#@u<+hNRNfUp!ckZ(!}wP`mEf1Pn2WX_fJBq4=gKuX*J8G{TGr$i5c-GTYl$Je(vQ`@AL7#+FG%X$IaV<5}b z|A`Rn<clA}w(LaAc!4(VnJJTEtM!_P8!{aYZ;YpW=SujQj+Evc9d&VGBEPqj}+JGoH zfGWTa77;&$4%C^!>If{kZwO65ue&u1x;%Cu_+wKNcbp`c)l8we8IW4U|4pv7$j zjj+M#P#f1=F@<1s{G4KJf^n-Fz~*UNpHscP{3n0|5BrW(Rj0u6%Lo}a1-tAS;Wu!!b?DZXqEPSvW_^GQ~Ps^##3?Y>S);xc2MKDmVIPR+P zSD&>~-X};<`7UCQml2ts#`Ua5x4kDrf7&HYpLzLM;i$m3Pq}6SEwknEK%CSr`4a@6 z#YOEq;mUbyM{8?VkFMR*;tVJab};f4258Iq7ge^Zz^cVK|6z%rXnj}F#IoQ*YrqY| zr@g+5a#cJ)+_8r?H8v6iqCE90R>sMs92YC0H6gw`+n+Paj|Z!i1JoB}$pYh9AQ>`RebEUlxzt}XM7 zH-U%XC3(g^5_u`pL!bk<$A=(4M8%P9m@NucS;v=Kt0DUgun^csb?R z#ohT{)(4Oc2whpuMRCZU)qJO!x!fO%9;L?NRY>fs_H{S>YX`*vmBI&O*iP5T;-eRe zW?xAQ07Oo~55y7iyW|R{q-7Z+NTnH z5jP}-uX?*~oRC?Z7?e@pc3sd+9H=U|NTC7lgTcV3Z%*%6`xMzt<{FNrzuQ<3KS&Aj zB(MAWHlf#VRt0>VEBHv@vI#J(M( z!Nv)E-!n{w)JE>o5QY0zF47oAfj@~U?>Iw;hc}P87wnZn5%5CSLm0~y?s`wK>*t^M zZ>%;28VI<(&X8cd6of89oEEb-;+rO_nXWH~y|g7u>SiqZzp-Y(Xz{Hto{aEHtWY?< z0K(Dy<*gRj_{F_jSqmC51J>2|nk^m6rsn1$UHW|jE|X=gST#=G*$lhv!9bjw8`Z5q zuA!r&<0vKllsb>q6YK_Py)=gD55GItGB8-JH0X(Qr*V4s|1kBHVNrI`+CwNq2m^?8 zBP}2x4MRz)Al=>FUD8U5ARwKJNOzaCv~+iO_u2TK^IhNk@e+pp>}SV{d);fTybU}G zkI4j2#xnFCIBxpm*osl#b^dwxrH@ONpBt{W@h4c|aU(z&nWh+B_vhY{4{nYl_OQY;E|HW%Gb8Llj6X0M$ip=)5Q5K{LKgN`U=YSB z;$Vw6U<5^^Vq7~oJGH5B7S>C!i+!Asyra`(B0PK(;dshNA0Vf>2AYBlGw)DPP&NZ5 zb8K{x5eM)290Ux?cDy;D6krX(X8mbx3?C_(|BLr-2I=5eNzt!b4AbJsFY_t}DC>*q0 z81n}cY=?8AY;?dGCPkhETv1SQadG)%N%m13ZC2~wfw^*yUh`iwe6I-nz8b9~^)3*j z1-yskFSOiMrGv$WJ~6t7n~h~{jSg?mYZ^7MHO`8&pf}Y-iAB&z1I(yFck^6Q$%x_2MWDW}5_CdvBqe7M z7&z~qrB5lFx2XH>C|ex#_{gFaAi(JGqsw1F%U!r`T?E9n`)ANWDdRO&wJw{D)=rmm3fP2Ke+;Y0 znM@y;^KgP$j_6M{cyd$z2CJ9$9P(2&j>{{kAT^m^EwYZ53KeW1y+qJ^Ym6*2rjzoV zJNh~)8U_0APb3}0Wz2^>uX_=Hfv9mhi?*eS#A&9O%?yFph?4!H)qTq zo%h%-h=Sh%PL}H3*BEZEPh7ruE`-8jaf1h-$mjL-brdOorP&ZwkS)W=fZ!CrAI7UO z5n!snK6bUNmiaZZ8Jl<~{+(TQLHaj%J^jw-yiO-#clR&ui--S8K)a)!cL?3f@2&iu zffJ@9KCEtz&BfDOdJsTLtizCJ1pC-~=okews`%o~ljmZ@l|1G+A;d3r_mbboSxKnx z@SODXr)Y6na!Ln}ZyO)){ML>l)4kTdn%_*iXW}MG>!m~T3r{pDS&q$KRNQ~%3!!iN z_rHsEGKdi{Q9q_)YO%zxeCo$&v)fLTS#yIBa+=4jpxO6;M%Morc)|q37X`#GNb!fq z%WR{o*onnKa{Ix$xWDqDiI7K)lC(HA%8<-)X+VL3bvc z`xzu*ea1&pP7Agfaqj=Pvb0z{4}$^V%G61p0p}y&c9)p$UpNwEHLlJzaTe+dr{&%| z85vAd(|mV1!hl3`*9FVrS=>S7yJfB&u>hgtbNjpIn$dy1QI)uFbd2%Kr0Ul$d!R*Zj7ZUl;!gGnD!zz~I?Q}saPF+m$Li$O zV%X>rG&cIr!K9}S;7bCA^NfKc$+xNg<-=+%7JsEDcz>$(-yfgb4AnmSH>~k@;3iAa zP(?=a05;YKVLw=_F7CgHLWI2mr;y)ehawPQ1t5OSOfxt%Btrhjqh0LZpZe8+c;C_W ztx%erk2`y9@D2dy&`v)LcaXmjv1D<%Ph37WRJ6APm^z?7k7=RM3c@=t=!KA(%L#rTgKL z-e)a0W?I`s2!FqQw7v6j+D0-JI!VieHx@W+gNJQ}5+THlZ$Eh)!2W21=DCAQI;oOS zM|RareWXx70FlmWLMDtPrWq0bCj4RQgi=~D^3NSluPo~q z5cp_-&@-?OI!H%nM-~$IzLwM}ikCG-iHmxfkC?>E#6ytECnt02;2+heb;`gR~!9CPtm3uI*Dy42&O&g!FhF23D6v(_dPuoQ`+a zELAMDN&Peo?@wquek9eeW6^Yi>yqp2{IC%IV9lYFARnK(7X*%5wgH*MSY2FF`O{0{ zUz$^(7*y=X-R1aX{F|G4Ng>PY{0OiQ;B2z|z^8Z*FyWmVknp5bhy;=ehghxIe_4$F zJ1(c95fBCf40a4^GL`?J4*B;0EBT#MjQ%)4s!bm2$Pidltb{B)0}jhX1>1=7Sq|=8 zpN&cWRf`IQ9sS`LnDM>8W$x|4Z~GYqQ5MOed4epxwbgx5DLI@0sDZ)O52;>S+gp&o zL|mz4vsc0<`_j{N+^>9gk;Fr;k0C?=Ab{Ur4&Z^tO~nor!mkw#LsJIUsRJpVh>=R0 zZr;mz??)ZpOV}9r;q=x!FduhFx5iuy=pDu3+fFkR!g{sYl<&Yh0(w;88} zwk{+(3vji7PvlY;(4sdK;~x~0F2n0FKcE&K2y2b$zCU(biZ3$PruO@0Q16syGk4Ns z_)+pK(s$LBCTYA<2IBng`$z@79v5J^F+iSvS9n$j01@pv7eLqTjRg?QjHvWaeF6!R znjt(ZhD*KxnvopYZ};BlhQqj`P+8hNALhd({Q{;(Yz2=s1Px!7-(48iUSeKxUT!p& zq|TRaCRbJf@$lmbxR2!niw}+;Trr_{RUw1j0QfXBhTrU>`ZF+)5t(~!K#^zt1Sy(K z>Diz0la4;eO+E<(PJyr(Q@X~}>)+I#6@^cm%Yp9>au2QHw@kO05?7q3Mn*gPK7F)o zB|viM6@pvvJFHD5_d&+&xi{#5t1t5r*a%;Z9|)MvyFa5Yk@AyVXWpD(PzJ6{eDuYj zC7&*G&Vls5A1%;ns?XVNkt0ez-WYM(SlIaP`NJJDck0_0<&vuvKpsIXJi^!;@5;`+?f%%LN zQigh{b?4-E3&QsB(|BVS+1WVC-PuAcriDO6bkQWS?et=Rd`T$`ltH$!t@`PZs= z7U+x{Sl=FY0_ePOFC3-IxEjnF>H}f&2NKSw#a}I1nk6?FzEdSH80fL^Ew# zcIbp_iIJCe|CyM-VuiqTG*__xIL$M^+G7)_-L_?UM*s3Tvu7^&^7{YmZ4fch{Mm4 zQ4R_3f z*vXrb`^{o!?Kj~bERGMT7QHHP(?PhzBq-BttrpN<8brTri3*MsnTa?d%d2#R;ZyU0 zqo0t1gCaGPNyTZ+-JmXxay7#CkzDAXnu93Cf?olDJ-d10HZn4D>)Ro-{H3e}qOkd> zM*cvF6=#9-bMPQW?T<*=^7J&gkA|4%K1*en6DxOuxLHM^XkSm-r^wq|+m8CCKV$@> zwJebRyd0GQT6Stsb)}o>ny&HEGp5f{n-m=39_1^}dCRe1pIIrsWQ*KxSA-i7kf;fj zq%|aXu*Z0uHG>@~wT&{r!ISEcfU1b72@ zj-VC2?uHzAg~80zlcI)(hUZ050(@Ih%FO^?)2h1CZ*WgpU8^{;zjLx$D(oyT!1`Nx zWpx@ZJ%9BjYBQd5==&yqWVR^Es{)XwB^<^Ta2&`Wx=Um`I z_bs)lf8E{L@w&TQ5Br*&oNQ&DH@-6Nk$cIXvb^baRN@^NZDkZ#9H=xljtttMY6?=W z^z-kNkdQEIFcU?r9dErw87?w2zrECr^0r~SK7$TzI~8z^a)I+A|C-?Ii&grt8WcD% z@}C1}4F!{gUSp?bJ=KwigzjCke1;4jV|?0?;1~Df*jwEA1i0U5V8*9e=W*?zvEDV$ z(^1vVjt=(3a5Uwm;zOsc$$+cXz7F*D{2FaQ?msy@J3Buo=XbFh%6$Ex+|We*lo&uA z)9y)uO^7^}O~dI}C%G>m!CPu$L*!8rY5ac5U-3!-1h{*_rv!jTMp zsp6liAV?N9hL@*UWBBDTM5i|`(p($+2leULmgD}r1daUZJ0G#OAkJnL|XpX^V)v&=S;i1v>v72C#^cD0BT`_-#~L1p~r^P$aU`t^yu5A#cx&VWSFZnWV#GAi>8IpnV2ighz35NF~^ zG-BwZ2|xcwsL)J$`mYl#yi7BfV*Bp|8gK>U6u;CR$0i5;fc{2Qz__~|jXL5e&b7N>~>awQZo%Dxe|60hFqlyv%=H_O9)Fl@my@*q9 zKJ|Vw_4w6@^&0G~YwG{F09=fatM~5iHBpA^>B-Cx2oBA{zUV!lrh_Sw&s*1TQ{=4v zB&dEqbP3TgJq2Y;Hx%Fs-}7!usJ0opJ`3xLS|)@EPw%5 zg!9io!4BKz>lE+G(QMgiH9JfDYR?05asdh4j{<)O73c3Qi2?NK)sc1S&i27G!}3b_ zWyEE?g-rmW7<#!!8cgcW$)t+3(n5?lmf(0bR6_NJg7wg!CwZctZwe zW@dW&1FcO=2n@qtP{hABO-!lli15ht`|@~r5W5X;yS0EG^n;48GL38Q>zj2J_BU^& zkYj>GW^x_}^Jsl*zaw3rM?wptqN6jlTSkOjPz#MC*kO#{o_JJctK{on*i-=52W6&(HFKMh&?X9%70#K@3eDgS`&%rC#2rs@ybVEx1EKXJDwtRX~}?o_X(u< z;jLyD}6Vl{(xh(dtC>!%wBd2c__TWoOfHaFmT#FukQ!eEmA8PT5QyAkRCqmk5vm zR2&+ZA3;FSkb0LI@AwA@tlBL1_FPx7k56pK{!)?gawHKdfLUDt^&SusiZB`{f@TU97)d) zhJ)afacxVeJWhCZJ`GxaOh-fPPzD74^z~_1Sj5#iXCA(6U^>2SMQ7D=?0cnyHC^j$ zX>JYz-5c#dzXv>i7@0YQMZS+OF#7I`m{Y#c&M9vwisLS1!mF_Qea%UcDhK5;nCm4_g_(BIZGSSeRM}$0soC|MKr`;e>rOeH4Z1NYh)HH4*SDJ!VhYyP47F2e}9*qNa6xd`FrVN zBZf#Jk4i@;VeKZ*DX8vd9mDKOG`{%n`#==I{E+kPKc~$Pgkgz5v2iHv8PpLWC;W2< z2ciC+RPZKUHleTEYLE@w2njKmxQPiZ*aQgAW5;M=y``wgPgh*i4hQ}euOcz<97#bd z5bz-&0+rqo!Z6}PZ9`Vo!4EEwRZEun&>)a=z0d~>=FW5~$0p_6zVnlHcz>%ikcg0G zWj`_+@b7KW^{$|jbx47RrDBzYmmN1NW$bn+_yr_Q7z+o=@>Q$?|NCv7@mR=LYG-hU zgeh=!zJ%&d{M4BG>ZLC@)MYII(W}M@;E0fDb2fuOd=XH=Uj;wu+<1pOIy0Mk9OpjI z3vLI6UQj)cEDtYgQ?BOe)XtOKC61Y3WPg%(5#ZqTHpt}Q41?)Be)!`|b+jA*my=Uz zlgO@C5DXZ*D9&NGLAO6=eRqO2DO2Uvoo28eroe)zwDd=XJf%FPa8JfKnLH)YNMr~o zypD|DeWP^wCH`w!`4B0q6^EC5_(&)OsumcHe->49WXu8k022)rslAVNsV|OrIn5J^ zft&`i(_UgIYG`aNCJYZN03n@{B53v=0dj*&BSo>%m6k$w)cPxxpX=MEMupNnD$UQPxWSv$9YN|12DzSFAk$TOM!yQ@)tS}8k zHi|Aa_m%bYFw^e~Z#%5Ez3l5w|GWk&M?^G3{>P|=69c*fDkTtsWu>Lnn9m^1FQuY| z<#FG=`*gD-#4Zuc-IwzUY_3y&D$sjSr9d?pSf0}4Jgdpay{w}ooyh*dq8ZJjTUvX{ z`J)(Z^iMyDL;}?s@~}dYX*jqQdkAw~(0cO%GaFAcLBpKt2sA&x*Xhx#9If-U0dPJA zaGBhE7{?Jlq%W6taA!+EAkRPt016!iwZFAF{^7{=(kZr8Hwta$;t*t>L(=7}DnYW# z%iH>D7?7>tP!~c_aUf7iaS0jfaTe@8q5v3GmhsJBwL)qjFu{jp!4X`TJO5}X)m&53 z&wZLUnn0~C=YMSzAbv=L0m#jGZXfldNfDayzz*Om-<$hxY1Ynm{kv5DPidqCIf){A zGt-0$nNT1E4nRqfe%tK7PuyescAjjlc~evHGicinJPDavD%!&)=HKae)8?(#M|0qM zo9{lLEL zqrea+Q>}@nF*brfy?6QRHqW+Vl6V7?;EZDhXnxZS-=r5kBtg0y9$|a)ImyAm1*0H% z`-J7i3$P&|5iH;t-T{+R#McseC?zm99z^zOik2ku6|zPHoLa0M zn|zMCx3SQagY1(Z7>B^BMW>xbP;fTB4KOC6B>kJI8(##$xjIxP{b8jkBNk=c;_(6^ zP&cj4M;@SjO4BknC2K#I z@KabA3M=!1X&0OQ@6L0VMkNDAp*FdX*hVyVq}UsR|FSV52NV;yG(n;nD*5(9j94Lg zqZUD;FTr((i-%q;-Y3g7u_whs7xK=c9~byQv&`DA<_VadH`wA(V*fYe=BGf3i%Mn4 zFQ9a@?0;RLMV+7)6W0oXTp^TSQOcYTQEJ}}0Hx#lo$6?RB_e!*j|%KK0u(2^S0KC! z0fJ0pb}EKWxpkRjoNr;SedB(ic`VM6@d>P`pU-3JAjk&O^4KRJBi>h#g2N!}_k|^u zA~`u!mt%JA%#>?$j`cOCQ4JXK3Wz7j$;VYQ?e(zfC)<&gFD_fJG?9R^fptOi*c^7f zhf(OxtwzH4ZcER;H|FraP3{1YA4R&bKeBKdtTpu|+$rS!^@haA*~m->lCa^_@=w*ZMPI6G4)O`K0j*MUV2fqX!~q0v=VQnDjOJW$LinxWO@ zLRxe%!x(PR9V;evZGTG z^T~gO%2O?NmN*~iRAQRNbW-l_?qJIh1KrLhx(4>B4UODJJTgnHyYYe91Vmmx802Y8 zG@M&-sVS_B?WIqf#@ydS-|6ZnK(RJQOEj}nATN&G2hPmQfEfxZoE2oP4JL05VJX;)g{flYWP?Hvg7k9?#nzv!BjTfimx}Ji+^76V3 zN8JzM7rx;dns%o=wjC91X())W*C)hE!^@Yd8!YB$)NeeQ>(W1zNzFYD}n z%^YIc?${yXg8Z29?FcA>s)IGM=>+}y<8kx82v$s!l$@L-G%h~gkrcXt^>p_1ilr@h zeu8^tz^Erp!JYv7Kn(pE^F)o~_ZGbcJ{Y8#LcP(;-N(lV#2!RN5g!tFXVA`grJ4s; z*VmUfkDfn&o*HFDH)d*LQp-;ZjAy|&Swn7u`bGHy>-X#P`bB@<@!TR_&-bwkg<5e& zBIr&D5j?y5#^TEBRrKf2n~(+;_$r2sDiVDCplmne{k3X-(@Ad+FXO}AXZy|84A0Ja z_}G&Mk%L+XCHEpPSXf+KjqL4Tiqg~3b>0P7R7@?hd6C^T-deh<4)peJ%TDmFWB;jHxGIk7%b14EJw#_N^wkQvwd{M%sW0)L-S43OCkm z>uc+yB0!F&;8o01B1;X{Q=Q!^_}e~xe|}#52%15+=RUZ~dtEhJmOhGv0($DO(KN&O z_kq4zrzFu^a7&SB@;J3vQK}|{5BBx-8P78?GK#u5?kOrLz(gNCdekpw!%5V4wAw2x zD_g{+bc34--gqnZ^CFIj1_|YYv9a+Y&u-eL3HTSke`Me(+9MxCZ55TZy-e^cP|l(5 zCr|tf&5pS=2GFYS%Id&RWdK!RBHa4vo|bj~_o)*l?M?!HPSK65q9&fpGujZ`GtYd} zhva&{3@8o_Tc9~7QGG1kJ2y3Sd=_!&WYN*beXfZ%ff*|LIGOkWFM-~HfzEif8i$;a zwy!TVP2gLP+s@^{qx&bPmfFJ((c=}1f$&mhj2kBzCiEN$F09W$_S4K)DPUw~KJj|P zsv*eABJN=7QOfqXsfdZkjFH#yUj3iK*b(txNfFJ^Bgnx-H-(OcW&Y zx(F%1e~<0S>Rd6wQMV(3G`NMLD-D`+sV6GrooFegyA}xTR7|f%X@%&jYHGaUXPndy z7~k3z28#jl1x7MKDgBErr97?{!lZa*%n|J!EE#K5v>DS zlbTFkWd?AC*I7ef)9QDz~_Vi2ACAMLd%mh4^WLo9Sl3d>x=IFE0!Oqy=x=Q*IJBb>KNX@yK^2B=c7R zbqMewcl2Ra@_Q|*Xp~pZ*+?fM^`^-E>3_d() zeTq5rBq!kEiOB)TdF!;@v%kCrD9CIQ5Fu@BjB#l52+MEJI_SB%xq%JjLxoUBk;Ur# zN8oRgLzu9>Z67*tbj5L?lpQjHC3Xz84)SlMrBPGo76j6WqsnWh)NyYK?_nqfbN9f_ zf4nZ`oyfNAnO~J!!}DT!>Vx&^y9w5=Mx=)-7B?b5Ujex&lQVpLg#XXmX`NMo=ye{j zxuCOujg5W!^y!40C=T2cyEvB&9_P-J<@`l7yvF9o!88Vqb$j1ji#0x zB!eopQM;J`*5Bv(1a3C)ncNGMl{GYe0)L>a4CMvm0(Ft^azlSw#~0X+<>ca_0531^ zg*1mxA`p9Grz>iDZcXPcDO*N%iUtb5r&1uzm2O%s^-?hc{z`oooHG&==`L{#C5xyF+Vy=k?{Ab5C zlOjCczvu2t#-HE}ZiSFs*Ij^()hiQD76A3WT>} zJ>H>5$Ld@_dN6P~W6J-15E_2NRu}K#*8}Ut@dXI0i{%#tMRZ2 z-G?4zf%3~2RY~8QY=xXY+&-=AJyt$=nYunvYmm*(dN4Pc6>c9!X3M*41UUbb=oHVho8wcw$bBjag84bu7U7tsjJc%os(OqPo_VL)vjJqnTms> zqu?7FJ#rlQ(^pR@#j7?eqVP81*LahHC41LW!~$ZZX+QC0jW7Wwa0_1Xq!r9-HaH$U2qr&bEmJd}->diJx@1qz&^JUJ zQ0~R5J-_akayM@eRLbN4=i0FbeLkyLPVEo_VPL@cTMIZSI{eQMq#NB&`Z^A6 z%kC@g=T)Z6TIyzA@7Xi$fDPc#+Gt?CbMAz_?6Xjx>>hp*oUTnRBeJ9$*sQD2uh2q0nb^nB^1S8oJPZWcb( z_M=Z5UQGTBX@5T3-P6;G-~P&fvbKRh#|>q2w7>ynK7aQ1Fzf-nh-$X|R+(l~=Q~^H z>)j@{LU8T-hcFVsm)eVU<5c#MfZ3@JVwLXotI&g}{NA)-1lv>J8zfP)T{_EdGeVyb zo1v<8uhH9qhS1F2|D7mL)rSWW7hut>z-s55j?(?%Sc+i9XQTc$;`90(nOD`~=@yyE zBe&HfmcDo)`d`)63Emo3LUxVrSJyj+JGZzhLPD+|>#(k>C3@1Gqaa0Kh`CX&L=m%7 zr6ir}749?dnyZ0GwL^6o)Ogdm& zaicL__LgF@Z9GW87k5eQd_THMuf-n_)QK=y)~X=BEfj4X^R=q``r#^p(KqICH=Az? z4H3mAfMs%gd<+WE;Naj?M?QiqJex5@SQvjmG^U;phZOEknnX7qgr0qVqU6Z^-5vo( z0;OrNRXACbG~!jv!Ftm;g99J}WERkT_P|qs{bYbUq(LwWhJHZ&HS5$mOo-!Nq0d?i zf{Y5FIv`L*b!&qjFgWxLCIQyo#HijZ1c*NZ@W(Ko#PBO*0ZfOS^dq-QY*-++c39v*J_*n?om;ktL5@Knb5 z%l=9?70*X-e*hq(M<2tINK?Z>I>bqd=Rk@MX$iw8A3pwMa$*^k;9D3;UmX$;>oJ#a zex=1Y#uOyFxcnJuacO4O4HXU9VTP9wKa?L=gHnSYR7a< z9LbYm1XIVR2#{N-M>GUVA08yi**8{)1i_&1o+WJEj^Vr0G7waWlJZX@>U0)wu4ru) z)k(blNlH7ppWBtDKpFGk$0LHEh4^37^XdKy%D{^rGk|RtGCW1A(1?&7 zb?13gpuz+|t+1XCW*32rth;4gmbI9__UD@BhLyVaO3k;++w&{h^IuC7QY!AFCzguC zzWh;6h9C!0vrbTb2Sj6@+<}{M@c?Zx23ul(|pQ9GR z`aFLk)%hj= z+=PL1Je8x%ZbJMJMO(3YwL8XvPsr5nOtHWo|Elqp@|7s3;hguF!-7C2VPG`R~B1~`7w-FnUx@jL>MJV6m|zoEAMq#taU4cY6l}>nM8Ge z>IOcohp+OnK>TAXGSxlr`8s3{@rLwmjZlY|8+;!lm+ZNoZ^C&4VF1sL74!%Ih#ut% zWeiP*fynI8K7}G; zvm_gkrwa!8V=?*$>j` z%Vx*OSgo}i4?Cg>W2bR7l|M}p4-Lh@J>L_^rit}_n^aqe^=n_KIQ3~r7i}MUiboUY zvP(h}vfqRI2ouLhyPrCZN`rmKKG(%P^5sB%dGi>e$9B-!A#Uv@4`8rc6k~8jp#a93 z>I?(p2R5>WL9y*g^%jonZ$1YA+yq05Mu-x|%J65EOtYeL8B24+CBR7J+sTLS`U_Zm zNYH>zFl^)!R8DU*KYKg%ch*}^?EJ$M0r%LOD^F3IYE`~73Gr4nBnU|hj3443dfEI4 zv{H*+>@~DL_c6(@?{Wq}@Dnly0MwtJw)so9dCciYA0~Y%Ko@$o&);coBtpr`8nq3( z3MtvB2GFd{&^BD?uY;yYCwZk>Jm^Rk;$e6B@# zp4($(yUOm03bJ^u{SdsdNpR|tZAad*~xH4a3vc~?#$!?b>uT@EY)!+74 zaim6U7G=zp{H|k6XTLZMCKEHSa@^)gs6Y;Y7FONHOpZQ^fH{1c5&8*`E<7d`U}9hEskOJatE;R3FXr;6w3Pk2 z0R%nz(;UXOSs$@UMc+K4k3|A54w4iAX|4)>j_ch|uW>>C)^Z%G(G>bKIZ9V`^^M#E4&AJF9EzgJ9Bsbpb+}_JocK-g?$- zn*%x7-aUTGm#x!=3Q6i%cpJ}s4xB1bI<~L7yJeH9pC$R2JXvJ%d{?)w-owVm26QxM zy{nm=dHkIZQx~PFvWX>WyyTD{IlQKh&h?IpC_*AniAwb&RbB6@&H}*m|Go5qeEA+c zr#1?+)K?3&hV6v4O6pmzBe81n2V{ncmt6;^sI#8e8<<%u{pH2Je^&V@20dxNE zZ0i>_oK1m}QrE))zcYzyF?7i|e7yblYBRY=DOWz0bv*2BG|~FzF@_C*m`Rub_z3&-$>TG8VY`<9 z#k-ZkxJ!)d+~e;8*?hnL{P_clfAZ5f@L;&6mF~|TO+`G`()06`0yvMXEQlk*#Q!vn z=_G3p^4wXUH30zny|qW-G8)zK`arxCjg}-rwFF0Hu1)Y79|jx!fuIdIm%b^{Txuu8 zkrjWgC+^~T?}~O8PgUMpHfgnwO=cHOyd|u=UbRyDKgezM8k746@D-sM_4NYl+`9wm zAe4+{D3_y>Pgj6v3w!va=6rf@#s2^l;x*Fp2yImSU?OJqXn0+VJZrxMo%sp>Th>v z4|a!!=f0wdOOf}!?(`UFUpEw4?_4jFsm>1JTU2P6M1EIZD@nQijT zs9=NQx`|O_SSbBQ2{WjKvv}*VQ{tZ0&yrj6CRoZT%)S7ygu!3Z+d}g`G1D|zvo75U z<;qAdm$R#KvbCoRJBX(8&$?VkDp$>Th4WuMY+~o z_qMvZ3KSb6JA-u=r|!CYP}MZ#R|4T(|4n0>Vy2RG=Rm1% zNXa)~P;lW1c%4lKUb(J2@98XS5e_h2FIi!dm>8GIp7Wh#7AINheBj9c`IE7}d+qgE zqB20^fHTO7hF9uNggH>=e!NzqUp%yQkZd_vf|`2F5+R|eqB0im;p9d^RT@Tqfe2zd zU{3r&k@^HTZWK&RVfqO>J645RNP3XZi!leTYavY>X&CVfuKq?(0IJw*i+z+jYPk7M zab4HdEbRjAJ!ci=hYbH{^qerd9*0oE|NoLQ7$!Ev#$DOyk~Z@xWuY=7f2JsdvoGY&FrCo#UePM85napjPzhlDz8 zTs@+gqreMSeSlTlqL?8cB$HpUT-8ao>7?P_^?My!Gt9x+P5?;j!*n87Ce9sc!u1gNN+oA7n~f+)Fj0AvR82$9z4oJx*rcuxz-SMO@J2&e|9P!-+^HX)qi8F)l~b zq>bk|Z*iEAr>fLoXqHu5zS;{PyW#D#v-r+R_xqNuk$E%V`dhN;Y4HRG+B(e+?_ns< zwG%x*e_eHTwd?cQiF}?nK}RWd8BPFH+6kl&;mrN<11eXsRiPtEyh0&Ti%~@%kGmf$ z^W12Tf*|@Od$%^>S=%lmak&#eKORMXkd^di&1#&#>!rv^ekF-)e7XB^ysy1$Mlfj5op}ASeL08 zVLe2N0+)p#SXxf5%9eP~2eycUj?CL(g&wXB8{BGvQ8g+PHryU=yoi#p^$aIPKo>5; zM%4LRd;Q!sr)>ELA#p@Fkk+5bc?As4N*9@Y$!_;9t9R~u*lp-8s8X4!IFChih5B=m zLE>!Hz~_ky6>q}sH3f5X2F+iI-euX@+3D%cKE;q!?@zs^@o{la`u{4fm)kwSh8v`s z?H^K@%m2ZKMP=(5=$O@PUB>OV&-P}VRNs-^D?KrT6l3BXm{t;5ABUeO(Ke18t{eQE zZFc4n{B!!fy#4;K>doJ}D95=ieNdwGahjM2$Jb*%4y26vagnW8KSzEr2@E&h@VAXA z26&lUY8Jd557yvYxyUot>^q{E2nGgaMX1x+B3_yJ&w)t)%b7Fz!67C5Os+Z>$4^ z-bIufV=(Y~$r`yp^f88C%jxgL&kE83n?3MVhaZ)`Mbl@qmg{#sM>`z$6-DzCI!6Q8 z4xO)J>|X>XCzH6Ck&s!g&*Ti;8M^OU_JD%+y}e~=9)Tz|CAYk8nUU+L?{}i%AxBQC zy*~6QZA6l1$|MJab#rgyOI?*Ko{cu-4#5>FZ9yOK6a1&v^TM?r%`xA;eAL1>)4ICS6`Zf zX4sw4ud7ExPwQxRKH)J0T9?cJFRj8k?E49J1=d+)vHMaE@)c2G26qUfERY5|We z{PCm92j`bJ9*WC`HhGCUxu^C5I&e}UbB8glnT?*}oZClP%$Bbm;i+j{E{UAi{O33O zOZWq$4erO2-wpd;klPdr?k!SNj_k$1{YDo`NNRuWF!}o~u??*m)*6Pc4_J!Hwhj5k z*L`V)7M0%e>VQhNPG%S=513;b1;IG?P)c@{{>I7_%WV%s)!w({PQNBhCVd;DzPxX< zbtn2PaP7+cHg0NZw8D1A$whr>m^TrcaejAM={gW74A zx{As(GDK5d$rdD6%g8cxsu#MAGc}KqG}|-M)6@4Eo)8CkN0A%=i&)TZppL^W1{u;3 zhW^p*zVM*_QLE(_WL%u=^EVr}HD*1-Zn?m&E118lSk!e@E|ND({ZwCU;c+}Q@4DkP zZ)d`qGd{&f#OHE1t|(C2^?Ow_Mm67X&o^Wt%me#Txd&S|D(w?=UGL6SV)ajBzGs$} zW0D=V?;cAC#@($NN^=H@4%IE0Bha4YXd21Ap)@qw;SZlQdDv*T_q{Vwr)eaa(-95) zj=y)-C5py=3nj3=ZAe@|-Ep1O{OfhG)Bc>{cYROOs}$3vBw#uLji*cG zY+|z3{30ljsq!Itm4*gm@c9+)>m;9H0xq(uogxv{xfeL1sb*hA9bAK@UZEXA$H~uw zxtuoS_6C8B_jTx8vMujq$&9z5AS3g=v|1YC4!_v;F*=u>zAKD-v9h~&0}PQcd{!4; zH9l_cs`PXUIyw|nOyJ1_5v!V~q;tP1DFDy2*h>`59> z$q}Ilz7`xx8VwaWwYS%5_ccm{Lgj2^nMbJuL~dHaFYIy590r*Z$-Sr6i%dA zuYs{i$z;+K-v_`tf+k+`Io*ICsq>jihN|av*O^>bPj7e+BK9N;BE8P-J$ItNyZ9DTMMP?l=bw)3a{_a?|$u~9YxfY2Z>|gN`pGXB$@Zay z9ZJVc*2AA;U2e!(mI(ZJ#?O?-tO!6t0?$4(ktR_xCt#_&$;!D>|ou1cTq| z%hj0uy2zJVi;c_eL0t~HJ!DNSN0x%K#yA5c%U&3Um6M#-_4*lSNXJ+4mp3J~RW`3N zB4A5F9o@7uENPs&--L+oB@okD0R^x%Am($YZv2jT?VR>fNhcY<{Zim~TYm~aJ`vGW zoh*b+c&gDm$9ftbjpe!(2*IB0%lzqd+(>j2xhikHosuRM{|?jLg^v;+(<)un5T4t?i?ZQ|w?DYw zc~l!bsI$G>u34QB&NttDEKjtHjzpIQk_W-L9p2f$5J%FdP#ysVw}9!i{4-GenWR8WK*4F* zY%>#MC?X5HDb3T(YWMU4pF%Wr%VO_pwX9HAi28zR^CGbnRed;ovh||m*7G$?0IVy~ zhDbL?n^wJBNyF?lr~0Q%`YlE>0wlHtg4+LK>MMZaY=Uh`LV~-yYj6*?f#B}$?gV#8 zU~zYc;O-VYxI=JV2=4B-yzjsDZoOAEMQv>XyWh<8%<1lPy8VWHfOFX2EP>5=RgfD+%c zY|G#;n8Blc2t{Qru4m6_bq{(+sm_^*CT#_oLMLugef%DHaa(a|G>+{8>kICiy&J`z ztSMmt&H3Nuw_+jm`vbzz{60-sBX+BnPV-|sF<5Cm!Xzp9qTl_3int;XyI`dd$!H+a z55L`!BuxzaQpb+*)}C6Y6!sPTWB>I7%njC{RTD9=q7)H4=L=~bwy@i#REx|&U)D@5 zR;gJ_$#MT`mkqi`X^+Plo(AX+>gxyzJcWo{J(piIlW7dsDXxNqYf#?jrG4_{ZTA$S zagp~QCKjfRtocl>D;v3TcntX*Y#o8phGk)20xmA%_j>6BJn+cDo)pu)U?*VYZxZwt zB2Ql+=P=DcO7Iia?|c0FRz4r0Mi$eBR(AyRQs$F&D{nZh9))_RJL*an6m-WPQO=!=~j)@M{t|)qZtY*F6ea=s}Fbw1eLVb}mYI6~Yj7N>~#W zauN9W1SPR6V6h%|KIU&?0TNmsS2pCn#E?f0f*^M7G9;3YLN?JONs^9ttZaMakNMBp zollBrtE?k9kB13A>4m12m!lZr;++hXs za<7p`4o!2p^;|jZi@Ei4nm{y1sf{Pp6rMC-Jb)!3femfHu6Y624hCvc4FJY{dX5E1 z{Hd&TTVtf{26ycYug~aC2ZTomD&3|`5-XK`+c4G*IqZj44L>;=slfOZ1d9HB*7zVw zcGndZG?zsD(PBt_xy#g>cLG<%h>Im2h{=C06Nhv~^jI@s!NFtIcy|jN-zV9vyY0@~ zm*vNjbL4P)>k5mJd#!!YSafzbORN9d?tx$7-}Mqc7KCYDD5Vgw%ZKs}KAuurYyt5V z$wqfqoI{UtES*u`8->F4#DpUkByrd%6oiRzrGiV>%Edcg!iCHSp970PAvW)h&znlb zo2)7id0|&pCL*Oa`;Zx}OE`59W6zyM&u(+a$rIVPUaQ^ew4Ad*2KNK!Rk+tAAw-!&KG_o(mp!~b9=tAWl@j#A6+}}IbNmu;-NXWHaRx3Lauxx^TjApN#u=mFkXFJk&0Hr%*UUY+!g zXzHYHDkiR?)%flv)FV`_3yhvG5Cw5O=kfL8I+(PC;l0H2;%z1_s53W zT}8_oeoh7){wWcY$|PuFpIo~Lmw>pZJm!%LH?DE-?_sc0yo=^v+U&e7x^ItwC6iS$ z?|W~xs<9Kp)ByXB{CnCInXS%s+`cJ%o?22GqnsQLsw_(GWBX6PPjcjd_~LS$9rE@x zP`jz6C{l%Vy4Pt*<6(~c&+Xm!50)aG2N*OD`C*m&RDvZ!@Dv&OQTlcm@MsCp#s-)3 zAs&0?Z>o)TNEH2AODjYq@a)LurYtCYJCZ19-Mi9gmRPY}25D@QGoFJ(HGLOuTa{+2 z(%kEXNBjag8-&l-vnR}zbz5{b%NT7*AuvM*7vM`%tQ-bRnxbb< z!3$gJO>c8SFtQ=>{O(&6`b@yxXI2I|4#y5p5kk=N>BDKo?_w>M+>WopUhhPQXOxWj znvmjOYBNc%Ul__O($T|&K%d`<0P>&n3mqeX35FZ-F(@{#a={|HwX1i=Gvlk+!^ytj z?IWL%3k^+Pukp5cxOFeMF7TlacnxMRAi=XEF%k=-2Rtz#FXr0aHS64%gPaOqBTqOE z;|cn_$66VTZlPU)unZT=6RJf= z{BE|W2MfgL3JOVU*%UcK&E2E9h@nM@p{)i9^9J`l(efXc;n_{hiDK7hN_Mb@i@&Us+KbSW14Y=TaZo$8LN6P0t{-c^DlMq2J3_ zM9=Vz&yE;0V`%e?I5;HX-<7m*gg}w|Un&q4=3VHH^x(RudM>&G34!`e?O~{lu6g7^ zGj@NwFDpGMr}>WU5dAkg`y)}V0VN(m-l#f!{ECkhX1O64zQ%x8NXjC1@z9rI@9=zf z-rUR|Qcv0cHw1OZ-vOTiB~_pEt-K2fKcWy#U)CcXpn?AqV8zR7B(7>9t~v*_JX|hO zX8z^hy|4bw8J(=W(Lil&1sfJUEgXTvZ8NxEY6wD20Fq7d&m>ss99La*?#7Gxbeqp!ek!PLsqp!>|QsSs|OO0LCWsfiQ% z_G>YWP0bHh;p_=n5;RO014T11HiR_ zBJjXcLq_`qNKar=`S1PbUaYHGC9igr6Y4lk&UA(TQaI&bD-Hnv@zK;&6zbbxq{sB1 z*bKd(r4jVX?AE0Z;2=OfX|M&OFm6<0cPkr?%GQYfKIgz9_`u>L#GJ!kzpw=K01z@eS30@`Agb|k#GnkE!Y{{3LuufcCTwII+D!MKVGXI3 z6_DBw!{f^C(UhqFko`xScq@p`PN8k8It?T@V34^|i~ck7edSR;a0pL~4hd5QjIa&9 zWaxdsHtyv!u=-Ps0*KF?#u&hHyWi~rYO3^kI(>ixKLN$&fBb=r-M=68iZ?Fi5&DXq z4kt0c?xewPedZOXDH4KFB5a7k#19f*KC6-w1)=%te;n{ym)i zh!mUaa--W`o3re<;G(*jnaXCaEaMU?EWw_O?h~BY^sTc7jFz{a86}ZJfd`Cm0Gs3& zA_MLexx1WF^6y=m5P{6Ui=L{qZentTzC+M0ha8Oru&jU9Q&uMA?>P_H{C-k7A8ni3`Ye-K5 zQswuzxY^<@JHzcu?+l5^McxHz>6R~>;*UCUk;7BRk+*hA_g=94Hh!PV9@X^%cOAUF z@Sm*~6`{npNz&2?8*;GyL?xldXo9|bm4v$m0x5|o6lN9HlE_ET z8Te-a=lIWO179hCCgu9Z!0Es+#Qj8oWd3lKcDb53Gk|5@ohd5OBZtfu2T%Q*R{6WU z$w97T-mQfSt#eKgKGj(xs0U{+J&&J_#rZ+X<%gM=^EJL%#{I2q{53UW(;pWl^ zfW=qGxF}YFKYzv{?2cJTrO3^^mdq7fCky%a{V|vPZ^AKHDYyVpD8PmN+i7UCq8x7Z z3Ao?wo~Hb{eceRc%<@mBiH7l|692$#w;D=YL)d2(xJ8GZ3#$Qm7HEsv2lW>S82{?V zwJCDmMZB!{UaFj)wsRL$jWjP%DcPsREA;x zDLuoL^$V_Q7Y9y|eeo@1oOZn~#R#*&oJUd9;7f);z9Kf^fn$^SKcuX})OPb(Kf4eC z{ckm5fUDVqz_op=s@oeg=c(F#p|nJW|0xEbL;{E!X0ebzM4!5kVc9slO!D30^sIu`3qPeUL`d+l@yapL%^Ag-YclvjSEOMTdZWhK7F6JJpf&91#zT zOn{F8?Db8@NvtW7A-AY+>u7k4Igl2SUM!1fnM__rQ=JzpQW0m8B*R1|Il3K6(`lz` zDB%mIbjVW=zYi>i)ALpHxdugu#fB+;g|fblTB=P;2fzkRU{|Hywgl3An6c@YY7H@= z5kTey;9dYRMb-iyDh>eP3{L@=#6U|diZ)LWZ++@mAz%%^79S!GE?UliJ@gpPBe5AcxznWv{{b0`Jx|C7M|4FF)<J5D9O`j`7pyfeKd z5S!l0G;THk{q_?(f)=}+SX4;gi|_WZGNMUDm}~Q?Mv(QjH`J_$3G}m`t>OB==x+g6%pdCA!lB~JHJ`U2W&k9 zncUVTkteTJ zvC;9LIl^Pos&&~{2$J`X)4WgnWxg<4|DP}^aO^`&v);qm+U3^uZuFDF zerLSNau$a5wS>7D?bl*g9G(3D6M@ye3tA8jaJGpHTAut;NBb}6F`?(u|09vcjlh)s ze_Yst4IxE%J-mFFtRJw49KG|6i6Wm(cezD42&*VDa*1oX3tzFmX;(4N1L(1-X>diw z-d;nO@H6lRvblL|xXy#jTyJ-qP|(C0aQD}hCz0W@h7nOkk$nzR#GoyN-&Te1B8yV{ zq#0y$Fyp6WvF3}YoC@cj7(Y|$SnuW3sht+Qs(}WGe$9Av?nTn8bUwFfQ;ZOXdVc4P zjRW2vB;QkVnJ8}Pwy*fIZ0vsdnNpNGo0H=-CPyxu*XZ&SyzcHm^}G)=9P85CsnO+- zSh#~mn4<~ma^Z9nsxyvaz~}~ zsOKT8wE4)PFb<=)WFxAyQ`rz{dNu!=dsR^Nr2Lj?GO#-JiHF zfN}YOM?T;B36NkJoR=B+oHhYnYrW;;w0JU}T16T<_jc~_81*bir71L1D z6L?+Qr#ocrpYle1{|VN&4kr!Mr(5kE#95X+&#MeK)*YX?AVkfBc@gr&vV1$KX;k?g zip9z(!72`YNNRE9k4R_;3G*_YFD2*JPZ0rSLoOvzBzS3GR9rSyv)dORoT(X7WCz#r zpN+c6EpEO_ete0pD%OA7;Fx9McGR*m+w?Qr`TI=upLE^`h!Zx(8q}F(?VLr4lx|NY zhmv|908+t=%YOjhCKlhx4NJj}OMS)DU3X&Sd@9$*Bbi|YwwItU$s=m?xB0^Z`n#yu z3-B3Nx<{FOJ6FodB%3l;$TQMq^=G@Sx)ejczzvP98^WY80t!qnlnlV8I6 z-=UKIc=w+W-EL5Rw+-!HwTZ+t5yV65Jxi4(!S%x*s67O5Pke;zfC9RbF~paha3kr_ z#bX(hxQj_|T0U*d|MH=6aYMPdpr<>GG8c)$0U2Y5G`gq}8wLT#6=my{Dq~mN7g_@5 zNXYe$QB2eIXerCQgSNS#4-i@N_|4a4YQTb|odAc~?;!p-ga%bYo+qS!xv^;>ufgt*!tIa36r%&UcaJTwFx?-4=l10?T`A-7 zz56_0j0UKLE~^Y83Sb4v_Q@XuMaIJyo)WH0n&-1h51lK4>Wq{KTTe^M*Ahh=Jd|#~ zJ5rA+VG#yJwNdri&cDdE5ERPNB9_Fs3je7+qc^PuUZN|=hzYXH(1oxsrV_E@cz&lR znFNB!F(Vb<*w*VE13Sm>(G$1?nXEn2_DwxCCj;$mxrqgI&N)Q*4Iv6~^uogZU&fAt zn;i|OaceB>EOKLL;Z<&1{5hRJV= zR(@DYS_wM&D21olrk30p9=jTb4Gq67J9!;-!nP_b`-m~GFl`i>54R!EnD;A;iQGc7c(9s29RW?E@b_rf%lIGh@}KqGS5r6r5~R7msil3t*A^b#~-dyKx#4{l&NSK z()0Vd(2$B?Ii=#>%ZP!^E?==QM0toH&dPN0h`oLKTnP=S8Xo}dVwL*FLis*Mb1?5! zRn>kK-jsF*BXhL+LL{NCFivyw}iY@fOCSdj)KTpE#U8)^=iROJTn) z>Beo?-2sbz3Pmaju>PBN64Ap$(6*pSVqoZ&rg&96NVCCX@?wYoWBMst@s4CaFcQ^cKQ5q?AWfK*w4z3!VW#e z)B)^iNCV}cb$NW7axJZbWe=QO76?xi)>Th>PuZ+JzO=$6p^CTd;88*|E!=L zs)C8OmOPvN;8_9Nsm2UfmRRX%x!-ON58BeEbVJDdA_0ML*!ExaYypUuhyRGBI*dQW zJ<1$v(|&z-X|kJ7BpGQD+DhA5VP}fz&XKO9bGnB{5ze90zp>vr$Vy zP1vvsV{(PvbM;_vFZ0Y;&V8>)M8;$_2lwxW|W2)6Y6%a4i{L|xD#xlnYPUfSxc&hyY;0X zM1kVmtqjUu&tY@GGxQn3tk2u(UzEwaSQFy^d|;@{Cl~>0-vru*V7w3Ta$obSEd?^H z<9Pn2^qHZ3p7m07CN?*a0IX=_K_U>o32&n^qzWLR*&ci8+BT`{O1g0^@n?Yh1_y-W z&W&Nq<#lDrX_Fk_i-;1cicX$kW2a(?S;9zzWvvyt7;I57lORvBBqS`O7evSl@`l-V zj=W+LBU@X$eIdayve7Pv{Y1dt`z@FBMJDM>1dvOt6f$|aqlQ3K&qEJ+h!#k=D+L%k zSftxL6Rg}3DQ;4A$MeFd!x%0{RJRf_MCbLZKze+yrl*H}6WmGqmZGTxznh-=7ml!e z6FPV-cE$^n(!&`JmHU2G2gQ0`Qlw&0e*!S=3M1MQ7PlSlJO?fkn4+!$#{5zM{pWSUjQ%nW2}8pXhuFs%V~ngLYUu?#Q(X zr?dzwDyz7g7i?^0xec_#c--0r`8Mwj!E&7&kTSb$c|4@tMmGcC*1#NOgsm%hoGyT! zrh3GXhCPqS(q6UrTdGTR)Sf}uZk^G(J$Xqb!5^cx-f(Pp**vT1n;P{HO4dGktoez2 zSOg6d1{FVXUd?x~_N?^wMm$s>*w4zxshC@NLI*K@q|~V^6Ct@rlP{i|H(j6PQ!9$3 zFhtogAEWzJENF_x@r$D{pCM`N-M#osPrZf{?c56y7GmvPJ$rz&qM(RtP8-P~NufE5 z%lGH+-V@^Na!~P6U-6M4vm0Hy?Dc|_^+Q?!H>NK|%R5xz0}(>P4A8{k+A*KxFmvEP zNm{R^DYQtkJD>=}BsKv}C&lQP+42Sa&_1HNdKJ)wNb`=89r^lt{b&V=BtCxT0UVd6 z)w)=|3oL#hA_cD0*(8w9HhyfHyckdhP*nZxjpGs{t4=Jh=xYcRha!Q6kke~AZGj*&RBAi4P341Ss`QT3q@*kdtv7G#l%GUj5|3$&W?8zJIXDCNXGT|z`?N{|pRm;2- z^s8pIrUFvHoKQ{KgiG;N=fiKQrRRmIg!4qHI3wK}1_Q_C=Wyz=+G5BgB$+>ZPc(P+ z^iKZw>!#98Pv~iqT~u~Oz>!CHEB$)CQ{ri46&xErpcte+5K_O%DSuESf5_ec)_oEk z?a6&Bz7kTOEL>e#q+E8FT)C=Qe>Qa|=nmn%UKvhabiBEbGDHz`m{5#y(L0}uUN0j$ z-S^K`Bswdr-7sw3%s~`L_%~997#$L8&+co76z&o)i)DAuy?1JR0#`uoZu`}ACtrYH zutK~0Xp&T%2qhDhkcULibt)~u8|eH^aj9kIOzyfX?_aQDGP`&-U9(Y90ja2g6fl%( z?QQGh!pAMZ$W%;$9?Z{er!Yn5QcUDUf}1_F7c?pus^?d1ng#%c*0K7h;CUlXi|d7% z30>L5^MaIHD#KR6FUJTv<`o7vhB<;80vbl#Ny)l)JPlR-QRIluf8i`8{hwdNlOuL^ zkFT$8-0t#&XQbYneO9jqTG;h-+n(DrqRz)co;yFe=(thY<{p4-9 z6EKghc3^vdU~_-8c*?^gC|b5SNUuFEqQi`v9fXZGsnYm!#>{=3&{N zaXB{J?W0rissQH}>W9ncbkl%G89gp%4?p`&Jl*@_x?z5^>>Zal=up6OrzP}HR4A#N z-~yAr*%!j-?z@PwbIa>1*N+-ORsGbt^zbkh{Wh6FNp0c3&Tr$Pyb@0v#BSdByNb-* zMJvjBZXRCxrrNL2ncGhjE5C6J)YHyHrZoL2Udqcp*ZXb@Lq6Q$2o~;a^=O~3z7cml zDLfn<4$m1~WxE}_S3QrZ+M2NAuenweFq-zrko9J-bT#-sPdbZA2~M(amahMb_dppi znMw1zSQ&4sn7tw`zhpO@S`G3JDlY8T)3IQv8Sd+I8>T&8)TMc+!c<=CJW#nK$MdPTuwTX;+7+`WoifMAAhJN<1>d6`=EZg>;LU}J~w~(6?+?KvuF?yaP_ot-&L(%=CNF!IeJVqcI>fg<7%_^z1RZ!)G+ zDDs-|CP#4KCzCPl?jM8RcKsZ?+})fx*!EGdL?i5r-Rd#gh$W$i%c=&BT1zT+oPN-; zXBnAVcrLSWML+k&7zhs5Hng?1c4H`Q{3a-tZ>L>c>(J(G-)Cs&-OP>Juh&q=;J$Em z)<&IMKeV}#=K>g*1Xa~?{pKTJywzV*7=piW3;*Thxfry1!->`HAOZ=VH~L&Sf_&9$ z7S0&TteI*YnQAuF^@_BSNZ>z+o4u zsP6(W%-QB4xmD8bfN1ZbbX&{5Aj@804r;QaCtBrKNeg6oslDL#BsRv+p`p#C5}FOF znw|2xZ9jGL{t~{!tmMyZNwQm40Xh#Yr)>;rUAgK6@6P{TdV$SQP5gPiKS-JY5t)>O zGlYU(vBi^9G9vAYBO*F_DGw{@eyE4#52sWW>EdQW?k`M<<_PEi%pYni4)YEvVY|Hr zAqKIBgm#L$iou7AnbdUcthIFOtP}g+X97Kggul)nz4&(0D7Kht?*44I{R@GGamKAW z+dP^;({!ZWxvcwfKcQ?nwe)rBVZQE%W``~x?jdRWijaFUy2;GUv&;f-$|7L)yx8ic z49Kr(it+@YmZ67Mq041-A8$S$!HNK1&UnA~4d)waUtY+3N8#lCFgm+K*44`(`eoHx zBLs(-87~|YlSA?XWQwmerUCcZ$6egCfinjOqg8E3pY-Q>wiiO(=2ufU*^()~2F^zo z&m(>0#1{7}b9)WoR|#Zi@}f98PFXue7*90+m+tbY|?Q%m=$n8Ez_$G`ZUbc zX)ycpP%Q4T`g^+B+GWIidWGZh@#*Egbqv(#hu?AZJ5l(tL0Y;GiHSddR&ahQaNlRK zCIo6ZZbZ_tx`21~kC}1xZ`%UpGiA?y^T5<hZymcI{zPJa~8&BvnygFUA!W`WTY@caWk zpQYh1oXx=p?wcG&w_C!j40e#wUOqDCjW94Mz@>A$Rd05!$ExXH(Dfo~HPkhB0|0w~ zr-+vt=N-b2(g_kVUdquCs;L_=xxDT)y@DAzMtOU}+kf?MuKlZI#tHm^qdon%JHcVX zPX%|8RnI~17S1jGglYd-9-jm!EQr9f;~ySn1Rj68PElJNcBcXhzUA)2RZoVs2tLK5 zpn+&#`S7l)_CH*Uf28E)c=^B-iR%r<(z=_4K^ciley89;In9loVN z>o(s%8wEYBRh#o${J=5hnwG%QS84mFCKN$wC^X}`dsS#jdvIOnPo}D2vD_wad`S=_ z(&qYW^)&VT&SC1-@a?L@a}3&Ulk-&A%Z3n3$0f*Bv1luYyJD7)gc!$!Z!|GmI`?uV z6VSFT!h`#24*W&^m}*W>tx0teB+IF3^&?6CWI~3pBH1Vo2k!!HjHmIq@2Dct1=|^M~%&G z^$Yv(6i&2%V)TqcrZ^Wt$Y?p{)w!w!SJ&rnGJ`R&?=a226of+$$m}))_DULTlW7I^ z#?A)8QqoN5MsJsrB@zyv!0!GzucT+^eV{Cvuqyw9J2byk?bDdwlS_NsMjOxO9b8cS zkKE})u2_FDV=gH^?0CD!i=b&m;uTtL*_Crk=$+#_`c#6=lEGa%Xr1|dn-VPd`xP7) z_+F^0PZR%7hDZfB+^7v&(mbYU{^dh(`n2kqt&r)5l0i6M42cfQs7S*!f=)Khrv}+` zbkWf$FJMy6fk~+`15yl#(TKAtm~%zAZr8Ma*R-NiYgi^z>tP)ML9a$!&c<0`4LO6q zFV6LCDZgTty3+bV{QV%%WPTXm_OGbQ$kCqnq?OF{fA0;`vvLp>@5XYbz=5l8=F1!z#ruJJvtzDRIeEJ!RYnZWp z=Ccqg8vi+!F6f=RL(C@M*}o5NNp?3!J7QmnNiam8yoW+RSsouD(fB}*@b))OrK1?9 zXO4hl1Nv`U_xh?Ru}o?PjuNJ}o{MolW~-cJK)p)$Jlg4UEa&om?b~@PoX;Q}?Kk0( z$?cxj4TIy?(J+_FzIvd2Rp=0B(mQwR_RTLiZx~!cN zeRxaQDWa=l;=i@6JH3oli&(}mzt9^|6^xU+;mb==7~sAobpJ0sJdYFW+u~j^wE$c} zB^zcerJBC~<=s}f{(!pAbSt$eL1UYbjobYk?FRD$tK}E6Z}7%bYerLR@U9)UU%YF| zZmXk+w{1dU5dQIC<79R{?%x}B@onCQ2y*5b#X%ZcWc>T~vr!PHF(|<1rb3P=4ogO> zGvpHuyc}D8+w&EKRVy~!T1Y5vx8lR1sLL`{8VsoERNzvzxuIMe&nqmHcOWce2`wHC zJI)bZTyf=lkXgVjjpd2O6Kw<~j{4&jui)#MTS_zr(2~}Qk2w1l?0U9U@z z|CpMaO+s*ar)=!PNu|z=<$_9%nG7fIVeB9Qwbc~b>_pyHFo9Cc7NXLlOp%Pk6wZJ;EiA!sM)o> zSsaUmKy;jagGIihE)?Z9k{9 z1q*-ndI4>^U^!@xN%961nkOz2?WLYG)r>bRW9N)Xk(Npp01u)=O0M6=cX_=(S#KvN zTXB7Ti<9gX3#uEi5znZh5v?$sm7`s0Tb7r z%J$th8@DM#Wo*Ih<~bctfYpVV0zB?53P#^gmewh8h}*qyKg#fjf}ZoI(|Ue!;~#qa zObgx5kM7g=MttovoV98SQ4AY;<0rW426?@X_y1cCKlYm~=%N3-yfGBALF&>ew6_(& zJeT>Pt+*P=*n*ux#Yw8zFx_nR>H8goqSu3C;CHDl<532p&<4PgB}^`ER%+-ehFHz= zBw077lqCqS>*zWQeFaKG+E`m#+u5C*of%l=78lco_WeYY|EkKk%yK$Se*n zVPvHIvCSn3d9X$<)fE!9MsG4bbHmHB2kAjK2f;?@q`w%3yt-P-`_XS7T3+N3-pI_a4bXLV3P$gY7XWHGo zX}P}E*)qBe8enS)F+5Jz7&rwy z)?hUvW$W^An@ydxd2t9{m7qAW3q8Z?v=|* z->y!dy{DqREJS-?#@MDKMtukJYUjBh6L8+|NbA8RWR?GJe29q(rm8#6`8Oq$Bx3vch-TZB{{A>)#z&ki=N>!M8t`BU>07i!ps?XK zADKPxuGsq-dSc_Iu;!jO--lT`U#{Pdm+mVC{}=?as}+bC8uZOG0-G0n3cBl$22 z*VwO^Pl~ILMHf{@RAiKJ7{Anh7VQc1;1T4Jd16)cKeYlX$6HT*zt;`w_JfKFP7*}v zbSi8wS=l}w&<=e3gilL&(ZJt1X!N(-EC`_ipV0rT_U}{i6)?P^i`ulFXBM@Ee82|j z?a$vYk(^YFh1a$F#7V|rU!U^dV4^RY|KdAUna|}Wp3z3xhoy@^L5&;RR!o(;2JEh# zQL~$T0b!!Hrka_r0)VBSdl*nVDVVa(*fCB+I%6F4a?1(~BZ#4AjU=pP(=_}kLLQS`c`SoOrBKV>#6he zW0HHgrSJ5j%5xC;;~fl@x(Tzo1K)hNkMt2%O^BQs{%`e(=jDhWsq&0=ZrT@by`yU- zn*Xi*8J~h)b}G>W470M*8IG}SATZ$wgh*Sz3<{kUST{|V&L46`Ft9A(a=m1!|KcRA zbS18o6D&_dfMf97_xSSQ(t-0{Xiin=T5H)cin-#);D4E@( zy3bhEaFn^!LyODtIs4*oV3CmH0hI;n19G~AeypXo;dYzyYr0=+8J>YFGT*Zo7@f)` z!s=8~S1M)GJOTwct#i73Hhf%lH1GkC&F(o_(qIAI;yuI#fDy*vB^C5M;aQ$?J9d3TBjdk@Rt+pR}cg5y0<1xz5IJRG(oes;qA;F z9|gGw$&gO(pypp+9XX~yUuh9mkuIR?lq@&Y*i1umo_6m1o-2fMjQEHFA1g%=a@L7h zvr<>F)$7%=5m13MrnyZ6j*1!oAK14&{A?+4)>>0tuG6-oHU#Pr;BdD6lQ1F{0F`~- zX*KTMJUBOW3JJuh(x{p)mysFwxl=dyyrUu%rsuFe{GSk#n0KL-;NF#j!CjQ$Rg_@{ zLHh}TCUL^hx!1sU*On8Kt{S$wdGo>^&g!-O?PK$kudcp(ObUNfoM{m!_ce5tVPbK$v;HI>g)9udLH{5BD_Joea(&=dDaDYwA0SM`51ZcwBvjJTkxxM z?DI;%LrN_d%A3}cYVI;kK%Z6=5y_HjlpEK2$U?;_0dPRAB7CjsK)$$D^v}iDaw@?bxch0<++up&j6T6UaN5nNGII!(a~(P!}*cp!{+y!UA*Vc zb#w}`3iTRYM~KHS9Vf3{SvWK@}J~;`%bLak4Ai9^+`la~3Z`z7l0U+<2?N`eT z%*7B(vKVHhU5CuuL=U|n4UDzv zSx`a?L~~w&=*0@?)G<|}XpfFW$jc=X)Qjv%SL02`>NUvfGnfdLbBbv{%WOT%^fE0p zT(Vj?I=YHDzKT43r16zhjV>C_pU81tDw~DqR;XqOGZ&{pS%h(nO5UFw8ngV->2mt+ z6{CRoZiYE>ujSn^w+(ml=f#7Q`fa7nk?pN|MuF( z>#6Sga&7HyQ8l!=W}Qay>T+vjtftf37W;>cICp?6aH18GZJ#-9fL>}yjgx38%x3oz zSeqHCWnQI+4gpU&*id$iDfew=J>SIo@9pL@6&>_6>!MQ$z(oCYEsja@5l9cq`~Kb* z-^nkFj5wyz1ns)d{ew%~YJlR-r!CdulxgyxK@b8)9|%_a^(h?-sd+oUp~KSQ%f}UOhAyu|1dn?xs7Hc$oYV75K zxm{(6z6G;nw*YbTi1vMaM~V2u%{y90-rk;G_aM^w-%;a6D!f=K1;l8>$F98N2CM{a{IGBG51js9N!d-6DkY+n(NPy;l=RLe( zXmavnu=q@?Vvo_z%AbzP%KfS6WfF0p^XfZr5Gn0}@q5nAf3AH0jNe1y8^$ys9jMwR zFf(#BiwCzEJANveEh&hHlizy6)_*CV(0gu;REZB1_xvR2&J733G)lZaU}f&M7fM{~7uXXRa<@lc0D}_H9RSbYEfNhX0n;3mB<2br;+REZ@!y`cC z{i>cS`1J??BlJ%y@UTmXta@t=H8PlA;6B(bj*M*`v^-b!)L(Uc@Q}p|KYM}DToM6s z?!L`Z!5M-3o&%!pZpIgWU%%$_mj^={~G>*R=3;jDKlkBXMvf72A1xLJ(8?H9;(M7c@c2!q+;u~2W%iXVgO`w1$krC=Y zo>|ZBZ}-eK2PU4Ii+C$t-YveU7oXos-iq)X-E7L#)W(K*#;C^UKKu(f;)Ae0VQH%G zzg^U1w*&MjQ4WsJlyw1_JfNn=lnTU{JmyCWeGdCz<4-Dp$hQ#^? z&TjsZ<1<<>zSR$l%QWP5!tuD-3W&P#!S&uZYTb}Mw=L*8+7JL$5ykVT9{{J?dg`e*g9xe`+PrF498VOEp=Z%h{b-7q_{HO_ z`euTC-^cN``Lw%YkY35opYa{~>B<*o)jXb9j>edrS_DSlsPm1S;f z(V)OC^txcb3vAE!EY+46GtFRXeoAl}a~t6Ef?kZo;MJLMA%hc$BbdM^{1)E9h;3h= z`4#uh8RA_rErvvb0gjvDh@7TBWt=8zY{r}gKWpq$i!1XK9X4HkT*IO3KSG(YRV+|e zu2-XpAW1mAC$8s5*6d9D<}$nZnq#~%{$~wai2jvmx=vS|t*+F?z4wcNGDy|?$GE^- z&hoz!|NB^+g%?5><1+S|IV%Rvy?w0LwHKH)bJGGUmn)dVa$B93&tx!T9||j~linNU z#vbO9!EE5)8MGaAwOe=YpeWuV7h%HWf_Q1gB*AfCf4o8*Sx%RA&AFzJj^4Yu{XEMN z|Fp*pXEX24WjQXIn`}bxu(pF|phe$)@OT(cX6TtonWXO6coe0PT_@!@T7Y6vHCb3x z#b2Oq*-QDi)*H6Kj=c9%K~yRV997ic&28gA&P^k>(I+ZnR-zmPI6*mbbmQIguS1O? zVH$X|<$R-xp|6cM;blu8&{Z&81+H8URf~+yE0&_*<>==c*r1+Zch7*Uwylx)zolx$ z*be$`OuD5^F6(d(Ma={6;N6!EQ!%0qidUwr$@nIxy4 zc~+gPWPVT$TReTt>X~XGBJhR7)IWUMWS-^|3aVcA<9zsfc(~X>>8!QzeXtM_kIaYU zFOClz0nj{Z7-#_ymS(-*fbM>fhIye2SfM8qeN?#r>zLb3j`{<1S13xk7LRcr`*zRZ z1f!>%?y*C3Uv(0()JjV3=H}Ma*vQ4hL#xfxURG9CQexQ(;!1>-n)b9??0)k=Yxt*+ zJtcY^O}J8+H=(0XYX9#;iD+lpS4%D%tHcx@Ygb$y$LXUeot4r&=En8>`HEU<0j7{x zcTr{c6qJuta^$^NokE0NB#MrJFxy>BrUKAKDCVdF?! z^MTr`k>4Q$MWf2s!Vr3ax!Kh8e?soE*dllv%Givp*^xUtoIRa=>8FZ00;6;p${ zb-Q_jDsR(P_6>{Li_JvsveQs80;X9am}6I)0aPJT_&zZprF7v~s-jB7yV7`rSi_!t z{Ou&>zmD@^OAyGZb1N#DaMq5ho3=7`@~B@BFcnK?ipw|zTsnyomUAqqxXkw#rbd%#FoB-FYEKP1kWPb z=dnZ$NV^(U#7i_Ia%By88Xpv3!04i+l`9Xt^11Y!j8o*A zjT(f)JHIdsiu$dVb?X&6*aruOf?RlgbBw$9+X4njvRvT&Oy8Zmy~#z8mCG@WTF&cQ z!BxpH`&Qr{$%}g@YFCUE+)AKiFOhQK97P3tCn{5s{I!y{x2FW+tqR79*$NF_vLpHJ z<|@^2Qoh|2`6uo^5k4$%+(l0l+W}VvUA&SX8aU;?(-L2RKXirlI&;aQM@WcH!?&LP zVeBc*YhvUUSN3XLubd~~=6ZvfubjX3)1YORhiA94^1tO0E}ki$^JPuZD8dDu%vCgb zH-)VEzAw+4dl_^28H+N6fEPX#h>?Ph8O9Osne{y@6-e2qX;Gt_zcOt{g13qBqK95E zLeMcIB$hmr(6`J*fBrYOdGxaImy&5;lTakmT=nTZqzY8hx!QcQf4+@#TOasl1K%qc z&D=k&RNazkj);4#gXb~B>J}X5c12*0|#jP@6KGID@F3+1M{5Hdr zE=i<95V~dBcNv^3P=BdKU(O~=jU9bK=j#r2x%>(aAKZ58WzK7Ny!{I-)DSA!hikGx z-#@1FL{XDH($r^9rPmlnmcB)^lZqj1gmtPU%zeh!uV6$x?kKrYo zhmMBPIiO}LZU@qG%Cwm7=8x#W5dJE!vu+ zYC77gDxt;*N^2-Fg&Jzs#1u0@1u1v)yXUOmUH8ws?p^o$!`e&o?ds4bKOzdJn4B-N+1g8A?pZk4Ejie= zY}mbZQJ0gMLG<*atM!od&*AbiH8wJW+mprtegH})_s`=4)hf?sCm8r@+u5&se%wL9 z=s7=^T*D8x!y72-18Zw*&CShiZF-1Djhr7L9kSg%SFSs%aD7+JQoHUQ&C-cJLpl@g zdiKdB!3!_i&lIxm?G`_7sNW!Urc}lXE*3M_j<5Ks2(al=rLczCWdxtG@8ADwEq4rZ z`qMbSu(;SBe!AfB)w20x@jAt`F6YRkFy@7x5;X|e5n;6SrVj@EFHsUb6mc9HN~Lto7>fD{m9goaQQc7 zuDSMqxDYCx@aOj1+S)ohBa_t`xDZI}VB~Rk(Yq0yH%xDqPS_T~r2Vy6lp0yojRh}A zUcbXO9@3Z{I3nm0b$YNPnkLniOQBATxS%LT#oNL$Qekez(T`4-y^wEg##dj`lH_`J z3Fg|*0T+cay`r7JE+ZK4n<;;}#Iv)Mq!a)+w485ry=t;ETjDd!j*7F8p2L1EtZb~1 zUe9~zJIF)G2sam<4^m{7|2CdkDV`z962OKP6lTgL{UXD(uVEDEw=$IG5DE$k*v&s7TG1dopBBCv0{JeY1=QcbrKgp|_@7?}LJLPFvFTlSDRMPq zl0F+BPM;!^M{RuQ-M_I;tp|dGnaT2mH2+d74-~5G-8;R)TUHrvNc{K;V4aN;(c#-Y z(bv~^)yPH$!suV(H)?3!fPK$`u;g8UB)s(^(jMI$Behq z^ys(UcAtEcoa~H@^3i3!`m)y6)~L^a*_Xh6eU>isZE=e+>T^<366>VO2bpus44rp< zXT6Zo(b3m0m>U@xMR#OnX0kqR+S=OUll!*19UmWWVr)FIgEgzF+BMHN-U+FH`SK+z z6RTjn#93Cr;KhoI^j6|$WduqLS0;Ch?P}ke6Qvezw$$ zubWK99^hK1^erP&QcoQ$4VU}+0=5KkK%AB?13Syg7^Ph}@RDTl$!F}-rwEI}u8_rZ z0s?uG@2jd5fl<{2bBMUxP0_$vii$j}jHeiNqH_)a*mZYxWvK`I=N%VooKef~!&8tb zl`QGd7lxa|#4rp;jfP5iC5>bEgD3X{MW(;z8S=?(H^+bjEN3K) zovX(H@7o!8{oeTM-D=zCQ*JNAs04{C4l6)=9<12`bMV%$flWD+t3+?SCY{92BC=Yy z(JfGK!UHgHe={GQ05oauR*zkA?dE`otwjkrSKDG-0Aa#Tr|V@~xmKSHMNh!)6g=CZ z?nmi~9jiE$hm$yzKL<%DN*Pyq&)@X1*wEczzY)YR~^>E5|>C&{;eXovz-&gH%t z2+2U+0G0_YHh2?LME}e#N9~=~=RR>W>x(NZ{&?HR>_RImE8U%@$39U3d1RZm8x4|B zW4o$-&&^HG1y(zrP0ogVXb18%M-i!K2ePNo&`>G=!*?gL+n*s?jDJTf_>8?Ycm+R4 z^H9_en%JRx(U-y@R*T?pHj3j{4agh0Z@-BB1J*J__f_^JAW!~F&1jC=@or5MGkQ<6 ztGL#We;Opppof!rImrkqWBvP4rcvtpzx)dmAjde53jYQvo!advRsSX0S`&MvwP$q4 z_>rEl`%y>7mXzRzJ%Bh@w>KVvKr9YofzDTObcZ+^unhu^@T_$CfY#>%K_4|XW*&@I zVT+540n^_GqJ$f$xN#p{d~yLz(WewMJi%W+IUEpfd-ci*!Lx1qd2nt$5cnNX?83Yz zJT9FDQ42K63=9kgOB`}YsBZ~I8H&RmRh<&)?+OZ}WMx5D?{m8fDh91>^TwkS1XTSg zel^@u-{$>5F9h)kPy@(%v8LU}je07MetCB8ifwU3<4wfTBSQp_&S-(MnD9SX8NqP$ zSwaMa<)|Qh?7tfb>}WZ^DZsJyzMw$AZhQu13d7qLr>fLd zOf5>6m|_OfI8BR;F$0zf*ewJ3iXi(R12EXRFbj)|%RLK!3|l%>>~a@!F(KRM{XpV0 z)f#WOUr=72%<*-2SZYTZx^~N7C5!xQ_@)Dic=1AkvEqQGjLl-|?`~U>GKF5x2>^Qi<8I9{K@hKU%vd_5-yIesH!^IP*qiRSNC0~<+c6XbfYa#4-c+z zD0M59o?Bi}?=);(;-_86>qRWvo%LuUwj1P~w*D9xj2Ym?X5-9K8#!uarcronYinka z@$qqLxTlww1X^upI=PW&-!*J+WME(b!3;J7q<9eD?$+2A>pW%?P)1!FY79@=+}vai z?Ex(>^}t%z{525gf(-SoBDuQcePzbl%XBQnS;%`J3k*cG+TkErFQ6s;yE);;nM&Hs zK1%$c{y9KMd3TzE0Tk{X5Z-p6vxgOc{ zSdYmZtu&L&Jhb8#=p$a_0`XGJ?8%!OMJjTe6A9aDTrT@t7!Gcwf(s zGW8JqU3y?_tgc5hap`@@HC^4-^{LjKobt;0e;GIJ;0&R7x7{W5Z}ZY~^!x`b*{~YP z9KtT=G-wap-TwgKQk{Xk!OzB|=>d}#&$dx_i&=d3k99Z1q%kwCdYR zb#r$|x3(9rel@i&$43k&03dgb1K zvKl{|qbR=Poj8X^-r`zZMB#yd5~u$(03EuFUGrDfmTbx``^o9DN_!j>t5IvCuHD2- zXg81rz-+CqUFZ;V=-!J^I~y`I?f^MPr@3+hNazUhn-2iG<=NSS>#Zjb#=mh>~f!71cGFa+D0dQ{RdpsUl_Lln~ zW_V=e{fl3&(Z-fIXDb>Sayp4B4JV}rx7!lWCp`;M*lC%f@d5(hN8v`7dH#4d z7+?y#Ga6};Gmg#vi$nx0(T6s1+hV|mAuhIP`;&A<;w&9zORf-tIty>7l4peXd$^pD zp{lB?Ed!(&%WvIfyC=b8gXB?T(MCP3@RX*sbSlqb6}E~N={5?f)*ExDr)hDA(R@$| zPA!dPR%Zwm(b+=U^={8q8n5eI$yliE;p8C8w|KlSv8o!BmhD+6uO9GK9$PCfGnJCb2;s9`gQ^_*Mq^XxQWC>POP%!0sxJl{dR{4611kwyTyF2^o z+L{`!1D?7cKYpaD*H!5KbczxKsTex>cV=*BBf;a|J%bqm5T?_n6=15pJ_GqMc$hce z5FUFDQ&dE4C@3nb@U!hZsH&*YerCLU859&`@#BSM6ab-h&8sk2{&p7NEPu2i@8RL; zIRg_^Mmf8%uNsf7v@k+R!OS^fyY98)avlI}=rIpfveebp<9-PFgY`W>Kcy^Vf`9FJ z7^NrIc14J>O@OP_M>>=h0x68+SeDsjnMdJ4tR9pH=KT2KU(W=b?0aiG(lr?jsTd4^ zE*aWM8)^$9r>CcrqGGHzpU8XX1Ch);4gjWo#UwfD4L4|hojQa`65<5a@wmeyzDh{}cic0gHwPs*0 zYa5$nweb(5%RulQ{M6ZX=7g3*`;UDc9Q-o*!QbEi!erkAoRDT%Cg5G~8~Jd%sZ3DN zIa#%CNULXJ0-&J}o#rFLL0&iSZvL~P2hM$`8+ar;I~!3O{W2pXUPu#sCz0F@5E@FJ713pcN`AW!f1}P4skUv zCp4e)x#!_y>`yS9X3CsK%Lf_Q$?;B}-lk2(cN{2eA@2b{ z0hwXkfKhAO3ul!xkfPiC5QujsjisV*-gYE|IayytRdt4aZ$>}!(a%S+z=?DW7_8&A zxh5B+>ha_`We3pRsg^NNa(q76Dzfug#yK|%Ir3TlS|FYtBDcKO93GUr;zV~(%tWgy zTh4zRLd(v745W=WOCSTo3CN_n_z$B3+1?_LgE`?ysr|wm6|{quL~Oth=3Ehbo*I?n`3x${n>JIW})c!gHy$ zDg=RsHx$I`6mN}){m5sD(h7(a;pgtF$6&T4CAG*#9LRF;=m=eBUTx?}gzgy{d$_vh zd%MS+|Bb+MJ*=44mtjD8K{w!F(=u})?BgEp#IRIaHQqnwsGw8G2>D*Uvz=%dc1Gkv z;@F>3(c)w`gSrhkd&{H8lLdA78|Papb-7oKxC3}j8m<4f1IInZ1+VGL;F+WdB$jY! zOOqSO99l&JP{k{Br;g5+*F)#t22R7DiLIW0o@n-mig3SZ>Y~Vw!?RY)%t`I_MD06w zUQf@&`FqF2Ur8N@ICgM3K+q)qyrlEH9v)*0Cc{(#Gc}q^Sr1782HU{VsQ0KFkDANPzdkHpX)d!@ zv$M0Kx4fp!!fy&2qhvF!^q+eGv{*WzZxB0h8!Qwt-NQ_RvZNu}eyz3S!5az~X^ivB zU%!re^$uWwh6dL?S>ob&f4?6H1Pu?>FnS=!WRl!1;dp9hAmqc_Lo93K*FXD7vw-ul z2^T`vFF4Ct@gPe+y?wGyP(A48<>30fycxF1bX*Zr4i9`<7&$hZ?wXx={XKHUH}%y_ zZD4ca(@c&UK=t}t>J-yRb?+O?b2wY4@wa>T{1 zR>SGLJYM?;04(BW74+BjAdXlqkXdWB(d!@0=ozM}v2vgu`9M2;98fX(n8?J*s0${S z5-_i=E79d5^L-Qwh2z0Y%gVHE-nNtBUQ2Qvj7ai+QenK^E z>?@BOW^QX1YzEBH*=K%~x#TXz3$f5V%+b-E#M}^&13XRbm>kbm@)2FuZiCy2QfswP z8+T!?LTG5R30g1;KoMY`B`_0IH7)0BhA^vSeMHibDuQa5qPf9m#ci4W%_cM0?$hHk z0N;eEp-xtg6A@3f|Mfg`VY^eyxL=K(}8=@2yBcCc@g)R~F~zk$!`JYSjn2#ex~a4&V9MQUhy# zWfZ#PrlBEJ^CY#5?EIo4vk-tZW{Z6K z!8W%qJ9DTM?i{z|iu}qo@}9SuK2g}mMw!!A&eG5@E}>TrFV0{HNjPzY&`(ws%rm_w z`};S?e2KDHrTRrjq&e4Gz(UgeZ?V2`bnRErL3i9l(>f}7RMRltLydl~!K8a1JXvh= z?XMsl*PLty<8yle#69+R`~ zo133On6}1)gJtfxOmEnQry1bqUr8ENFV09HWd86tcReVI3#`#)p6t<2%FiJar zM%d(qbds7rM3Xq}pT;8k>N(qbWG<(>vSk3ORCc@Nyx%R5uUk<~=npGzv=*q%F=#eO z>gyJA#3znkCkkgKa5cgIu=iroP&<=vFh`t&-_E$Pk`=-R`E)O3A+`(x!8`Y|o8G$^)pmG`--tV30S|xFW?PB9Hi#qZ4+k z=O&wp53EJA^m{ikRd^={gfnK3e41B8;~6xI&j(KyHB%mKBvn>bU6?d7mV~8daTk`* zq8s6*v6hLnQ)&J~U=8FDh^!Kv;Ib`ycU#m!Q1HHlb~hN%OBy{fYiOIHvI^Lo*^@-B z)n%S>?L;T!Q6mClxLgP1{nnrY6L6P2tM$ArX+(j8N27LoobgmkQ*tKm(Q#IvzeL0I zlPK_~noHBC-II7P?3l+&Cy_rtAzn|4xVZJ|m}6INwTHtVJ4D!Zy>FNIrTDj!>!$Gu+BL{oG*L49P21Nrb zT<0INMIFSCKbVt%#`Lks!Rm{^(EfS{;w*mHfsjwa>#{;ldgr78p>ion4Zh%j_`+21%N#_B22_Gz!S_nfU9uMi3f?XRk+ zxWSdGb}g~!L&_Jn9Dsb!r@;KJlz)+{*0va|mgO!(rjG*&%%kamo)%zRIK2LCwdwzO iG3Ec?^3MO07SRvFYu~eL?a!|sI!GU3e61Mn82KN8fVEBl literal 74415 zcmdSB^;^_m)HXUQNH`5B_JizA`K!XE#1u!(r`9@ zpXa>q59c2^bB&jC`KkTcd#|G^SY&ciojyhZHLh0@+jNO^fTaFs5a zCK67Ar_Yy6!&{5R&YrJYA&sJ2E9N0S19cSa*h^AiuABLRMNwNw%T^WwS2L+X>p%-H zU|Ytt^fZ|8{dEwtB8(T$*7x;u&sWidNx!+P&5@B~U$?%hlkt}uK1`;OU`+QPnxH=q z{`;jwC>Q(RuTW}<`;mi@1|gyS`(ccVPxtS~JDUIBo}|$5=>8Sn?UIs^d^?>mSc`s0 zo#4=NIx+ z@$zJABhw@6j~XO$d~wmZyE2?t4g%2#o3<-V?59A6K)%z3B3W;9WegfsdPs31yjv`4 zygn{Jc*hniC|Z!HzU|&L=Jn)K6rAW3OZ^HNJ1khe(f`IfxScDPm<%(t&UR8=!H{E8 zpzASYg|2ZW#`QO<9~A^*EFc%lAW}ANQ!`CsnrD!%4TBvZJlTjM#%~m7E z`g4D4;LVGBDBj)a>f23X`qS)rK|siPD-L)=B(za8%R2o`<)WSy(gA7A$C55CHDg<= z3kgAvSJ6j z44b#NZJOrxT?Hwy!;T`Yr6ka3*a#6fTbW8y=n&F`_GlH+`LiB>UNG&<@1A$BM!)%B zYh&ZRk@?%YJ4Z5%qxF3GB%tTiyG1514mZC2F36WOxMzj=Y8?B{#U75U|0%8N6g$20 z*Kc-+bNfWOL3Y6HMdG0HM*(h+{Xbw?IB!@P56*qftiM?%#9sQ##B)GW7aN>{stoo3M_zlZGDV+v!s%*1p``c6_sOw6det*S|GX3bLu~|9p$X zHL0JKrFu=?H0Mw=&FApvyiDj|0}X!%18G6HxZxxca~|2a|LXRvE!%?kr39`_B6XB( z52KnN)j~3u9Ih@0Uo{1fy_q^jESbEw`+pj&jV5+Zj~2qgJIC{^2<1vC8lilI4Q{zo z4*%T|^C6;c6Q-H_~Ix;-S0B+0fa`Xa+1@iSs>Gbw$ZLXnrhIFPd3KnCD;~YFaP{* ziaGVeeD(k$?$Cicn%@~9O<9p&Ik~eot#%?zzNHv5XrbtA?*FQ2OrA-NJu`3@)p%KM z9+9V4J^}Xa(agd~*M7Vmwol^$u((w|I=O_H+Nu>NdcUx;OG6!e=R>e!d6F*toJWRKTSOXG7Z!%9 zRNC9yQ%pVu&Q8glL?XSDg@r}^Yh1rBclT(TNy;zY2jVh$JNe8zf}ie3?Iagl$d*OM z%gc)hnW6RbIvM)8)RM_4db%0DbI0lYMJSK^q4?i?jk&;l?oK4I_H{H8>FJ-f%LXmV z%F1l5tx4yePa}w|@pI6$m z%zZ5!MFpQ1BA@!oNjr)3ZiLhg54n{c{|H$9yH(&LM44@M!Fb|oi^e+TbeR=(nqJS~ zmfY#&k;gxLS0z{EX^5}B*B=@h3dfSsqzATcj4m0(b0KG262{8c6~MTDC!{Z^h>>qA zQ#nQVn&y^cO7v=|dfW45 z^qDC<-*f+V?|foy!D}cq8+%-n;MD_X=fCLQigK5J5?szBhcwLBTgiK^_z zazi|{)|0ar7IaW+x$Fn|j!JiMPG@uZam311fc$!D=aei;CZR8}*=)e+-Y-6XubzHL zY?G>b|Af&=>Xd;ecXn=WZos*ne5t62PPs@nqR$Mcx!HbgVDR+LZl3tp6ZE?4ZwpoS zCnJx(7lXUQaf92xldMQ~@?}KbiJI_`iBPH>?J{|Rt@VyBUxbll5z>F3h2vT5c~IlQ|gLO+Jbuma=fY52dYa*)Yx8k4RC&ez)) zcc`Lnq9Edz>h8WJq*vb(n>rZ|z+R7y9k(e+oU!}5zP`TM)(FSVVn&qyfaBIoe>A(M zVju$x@Z^qt+M>q%F#XylgU_CTseKCWY#9F`h=Q;wD zZ%7+>A^FTJ6xsQcXAdCMWZ6oocE+s+G8Tg1Cgxp%PK1?%gSn| z?K;@yz5MaHLp!(%o}2y8HDJ2P=!?xFW%B;eD2W2=J^`*jBO@cP>@pg4 z;aQ(UebF5jv$snAcSRqWw;B+VJZ^X2=cV_1vbhvX-m&%dt5>h$s|D4^o0e|lkHvoX zWgwP4<2UPMnwu%b+yyhapZqm3k;4yl)hjWADOtC|Jyb|?2G%|}CR9uO1(uBNIoMcO zSeQCTqjBWj@|4fcI5Nu09c#P|b0ql>Jrp z^wO%U+KuJTEkUG^NxA+yZHMSXD{wtt9~?cr=hsq; z#lXqXPLkm6w>X{BXSTd?vAUP4uy&nV?;$`ws@Vb@eqnRd3CBc*A!|zn)>A&Yq?=JY zY7C{S48iyVm-yIrW0I~iRGJyvt&Bef=!(0%KcBmNxIYOlZ_j6`wwR>Sgh4j$e>;0SV86v|T74J4{zF3U^FfK_Hw9Y~8P1+wdI!QD`H9nnvCQ$|p zg!;AI@Abh9G#UU^{68j2Au!=XpPtSMj>1{<;+4oEVNOZE<}Q%gi4;$on>OE6C1R}x zF}s6M2H_%mSfB#C8owi_L@4xrW}YOj_!!sc+{BQ;OdBkRXg1=c8j4%5iP~KAJu*m- zk`)nilJWoswlR?WQJHZ;lb<0+VOpHyKj3Ygh(6wEOPs~*K{&0UrPW1{|MlzFMDteJ zFc_>qCH~mEr8%~K&cV^aVVyNXJ^q_fiX(N*RH4t9fQMb)3q>$Liw_CD0u zrGD{jPlS%`A7F)i7bq<+Uqczy&x~9d@Hf$3r@MFe?(TWT3jLLw1w0%n16!`?N`)tt z3F~tg)%4cv8oqt4iCEP*X!vI0LoF36IxmGB9ZiA>Jkl7zYkwyJUg5a%$e~^+(~wA} zstgBqSo5YM6h0(Kj_nVtncj78k`-YeH0C;VM)eI$=rXCA-P zLJ5I%7dJMh$GCl)b5OAUsTu;)2({&-o0h(&w8r?2P)YZOSlEN)`IQZu`E zoqA_r4K`34Ixh6Q`bBr@oI^@Jw4$Cw$8f=SySF-6ZMlsngch?l-a(dNupi-k`<1 zu4C!jPDRsmx53v7D9rw*#vHem-A?R*1pP;aH(Lx1c@VjOOX5skIn4DMUDLo|c48uV zEtVniH7uC$g^6jM{sm4Sf?k&4UEv=;5 z3gwxe$rS`iRQKkoyG0FY8~r0Cto!X2JCKi#g{F9@rchQ|Dx>D>$kKPp?2d&6(hF{H zq0;qr3!@N`^=8duN(ck*i8ln&YwlZVP(M4UxY{LbTR+P>v*&5ubvz?<@jGbvFHg&vmNZ@(EjucakotO~Xra!e zn>&X+#KpMZf)FaN4v8S76_drP`b+=6&uHlGj6H5Ci2Eq8?`=|C-?>FD7=GYIKD2Y% zPcf5E`0{rL&SNrIMD1DcQ%rH_{d+-hanMGGQ|PQEpqP0h?>Uw7KHXgdlf#ATQvVE# zhcIB@4-G=1T)`*@+>RAbx)KAQa6+FM4;jMVS}HL@;WS$`g6gW?JIJwq;3>{Kq<$Ab2J;(PwMs9fudgpmIn?O3Q%yAfJ2s#wZN2Q`?ShIC^)sS}Kj80-?vr8pRqvq0 zb(z@5!4C{%q7zk1Q~F=P-Q6*7R~~t-JXjpw0Z5%X99XEnfx*~E>9Ls^!TEM25w9I> zmMHV|O@f?3T)iQS+J2@soU>PXG?e(Oew)AFL~gnuA#}-uV863Ab`0y%Z}xxrF?@(#!-!2Rpnce=Dv;jAQ5UBp(&IJTTOixEl zg33~I%CsGTav&*)tV-oqhrz_!HJUzytvoG$JPy3=j~Lo8AISsb1zm7$sybjs3=Jv7 z+y%&w9w)?tOPl5x5=yG7-hSf~9!!XD`2$B{=B=DmWCrPgGs^RZEt@j1NYCKIzICGl zhWk#Cc!_(HS1Y~`s#}TMeb2)>mfV}rXaIs&7-bV29MIDZMw*7o_jT~!(+j$~EJ{NO zLS*3K?+`yU;?TM*YVe>+3>y7i(!k z+Qz8=fv|jU{)gAXIQMSDMpQ-NYn*0z>dZ!|npJs`iN~DeY!uI_3Iz)RMk# zCe-h+XvfgaBgQ8tx^YZO2{aVE43V~S1}*Nn4*&3oik(F#fpaSy8ncz|sFBlH(=3JR zM5a)lwaQ$R&Lnt3=fv=^F%OyiZ*0;;bxJ2!yF~S-IgS>+Rze#otZK}EY#b!=F$VTm zF{h}_1C<)Tg`EH`!X)C4V!P4rZw`dLc5yrksl*oy0>oC@u_a#66z==97%_WUSy{#Y z${4h0nxkx~!8MJ%r`iBKFf}zjiJzR9(4K!syb}E@+9a#=^JgV7KI?v}A<~L3auK^0WoE7WYSVUYG6%>SUGYs~x zlt`PJ(hAWpX{5~!jDuu4fLgzNg05xEysOinq9=9!LVlnyCMk1D8?Z|x--&ZS} zb9O_i9%Hv=uOnk{8ZmC7kJ){E3r1w|iPn2Z*8wCObX(t|CU>H4zlEn|5VQAbY(3o{ zi#iB=DiX}$uabWb0j907ZY>;Mt;+@sX!MKvNtrrdZ!2((=U;mecj3yjA^R!Xs&pH|!9R&F!T9@k@2PVoBlat4`N2I|cdaCJI)tr+>Q}$C|Xw1t?laq;J zdTIdl`z)PA3(X>c<36jN&$fG_g567jy^8)Xu#sgY_lkNMkXUWUN4F!!Ro`OXN zS@!wkNN(m8XTeN_^fh>kYVa1LiGVh~4?@29tZ>{1JhYK@&c2lv3dSM-Lne7F@MKPcC8ZWo+yk*QLB=!>$ zl?bL%jL7_-3Ffn(0dX%u2Y)p>bZB(E1<3%&Hs4dJC{9xkIEzTc-#(@L{C5Bk z3Lx2a^baogA1BS$F@DNz?$RSM6>8c_DMIAEX#d^+^z_tsv)iIZ`hdA}r^MnSMSvN> zMHaOp;=G3N1UP%hmks1T8p4c;GPR@DvF869fGR=yp$B|0i6ng)BJcI{yu;Qq*U4;V z59(OS`v`0NJAVngel}A%od#>}uzC?tJhiiXh_+7pw7JYf=9+1?o7xooyYrRsuo0_B z<*D8heT-{?C5~F|2PBw}{h66t-h!;Rs>?*L-XZhkaUN~0emOigb(PCJ*bWLpks=Z- z9#Y74zbE9V7GCjse+wR(R&FQ_<0h&(F6mi`Qy@DWINGui4v$w)p;L(>Teuo`sF!85 z6Skx+5+xlAkCIyRSC417IoH+EVHDXxcq%a@xY8Dl^^rs81EzsJW3KgbV3q{~xURrk?a&6#$mA+v8;v*gb|Gb4ew(CjVD;CDp0Z^d>H*aW(p1 z>BSijpDtAwN=5$C;o=67zHoKhY`A|Pm>|>})Dl7A^uyKJ7eRDCF8yy!rhK3v+}t0k zzdt1HvqdUJ1E3VwXw5B*F6h~_`(v>pa*}ZNr_dat+V;vn_7F{E@h?8i^~52O$x} z*-S?^8|WZb4(AhY+S~yiyT5Q1l}?UJVl80sGfy&N1w?;TdojBIc^(FM9+LFpWer=zW?25alxvMfA_$HBVEy=a z**apSJ-{E=(>%Kwaev+S-=O5;j7siVWICp!e7!f{I(bKC8xfqRJ)X_qB200Lq)nmaJ@jpFmv zzQfiU4*s`aXGp7PudomCel*?W!XubHQIw%nQ(Z%qRQ}E&>rXzC?9_wV;wDQF zOL==8c*@%BhKw>%DS+q{VcQ(=j z$?4F-sFHt8!*s*BA+$+f@J$hE*2!-;`x&D|5J+n(n=I#B?wGH3RnT9-hS>zdSa{Jg zs^pl4=VvZz%G(a~Gi;u|I-s0xt9SWkVVK!EaTarAA>`qT6dcDr&z~_fGjlEh3VbJC3R{5O zDu{mz#|7940K}(q1r+4iVS^ScJx}=^l#VnDf6O;~x%@b`sF^mYl6#Y(#E>yaq!ILN z@DNlzP6%l_O{$bu&Gl1FQu177YJLg)X4j)57hK1xt$#dg@F>h3Y1SaP=PxeeWFarn zHsNyN)^c-IHrJ!=gco#Zn^cvsetUm6>E$E26-s9JzUr4pMMaIIsoUDJIvU?6HjJ>5 z#KRJR6C&Yz&J7=xEnUBV9Jg_6np3wHg~|a|>R%>cQPTiGTw9&%55R!~!o@Pws4_(d zQa^16*wH@Qojzn*Iq_m>NmgC0@wjE7VZg#}rC7V|8vD1q@}tIA0R3dXJ+4%!XnxT* z;FXlL4Q%9}7T{{$bNMhh`{nJ1W9{AUk%&j~L4%9Ml?tcO->J#QdePmh!veX5Z@W7z zgw|S?L+d?{GUm~nW2@9Gz&y!~ed6>yKkRWY!wGqY@|S)pW@Og=*%~RdH}J+VCkBU< zLS%Gufr{kRuSVu_UIi6UJRl{wp87|crl+T;{`JMC90~wH_xv0);De6BVg|9iBtJqW zsu2|qphXt1WtHyo?BVA=v*+@TaDz5~k+z3ack=jNuAUbX!xI4 z$}QSoh7@up&mDFw541i1v#$91+p+OUhui|%LPbgw?0m3F%=gB%|D=XB`lfHhxjo2DK(@!F2~iIF$-lZ~@juuQmhZCizH)Jj?9wR+i; z6kq4JzBOx>$wTReB!25b5$nW+ofXJ(cdaWdf@6!*cniV2-kR_Y$Uojzvx~-}T>0mp zW}a-axbrBJmD$5DD+f$1b%4EB3u7FYjG?5;Q03~v?k?SopMAJTb<%c|FEEwxMI!$I ze$YYeN7X8aN|UH;P~$&ydKPul`T?0fMC@Djh5;y?byBuX?GP)d6#~Hrb(xKrq1M&b z?}f+|_UwxVu@(mNnxKb+b66>6hpj99X3r667V>fgL)G{rOkIw68FX$XWo0gcnWk)G zDJ2(yD_{~MlRj~BwB4vV3!!;Xpi|y*Ia$db4*y!r$qeiel7@NM*>+#fU;BJO3J=GF z#Xw<7>h@CQO<&_r&u=(A>vTxsDB1~E7LG5&8CzK|uaFIMJ`ENrM15kXMlX0)2}f0s zF!(e~toADFQy+0Hayqgl>rqi3#d8Rxb2%Iil7X}`z8p=>PL9VJ-X7$5baJuW{qZls z_i{}~&N5WJFqjGnyYBI<2U3i0?~fdH#a))~F>g$+y3728V4rMSyeHHLcMG;(4vg0% zmu_g57IGGTm^NKY za^5Oe6So#Qs8w!wRqa*lC-zV1^eQb#_79#U27P^3$|IQfa*dM^Ae(ql0x7^|a1P>m zU4SHd{lqi~=hh4fKmTpL$H9Dy&sm`z9~ajrAeq2b;p-|=Vn&`Z03)P^fBD4ew3zul z&?CR7SUoRGqa>~7wMf0fi!-Icj|ywG7ilGQN r0dYat%%Fhul6>O?c1HObca2b4;C;yz7j~_x=L%75b=0v z77*}w1y!gHKT!`+7=EHw@WJLNv8x7r$J&G--xJlewAS34_(5L4g$4jE$TTqBFpvbN^4xEOzuXGj*okUvcgqFY)dTWKYVXL zTh2CF5?}oOck?+;P{o(uqpIF>B6^s()OCQ++~2ETP%fgU@K3b(HK%gcdK8eea`mj$ zVPrw&S>j^7-SKi00!7?}8N{0c z5T&YKXHR;*uVfdMpq3zmC5{4f74i9-Z|8M)bGGB!$Oh+WS1a(o^>aLT7p4-frSr;xMbLo6o8B3qjG)YgG~IVIQ^|m@(PmN@=_Spe5;6Cdv_S6x78Uae~Kt3rROS^ zr=iR9`i=a+I&g10F#z*`{PqJR1;JmN1ax^$OyH4L`w$A|)l; z93g{AV9gH-Ds}B&*0XMV3VDZDTv_R8W8>U3$CpuFQXAVvtE?-cq z|C~yh+yS8oWZu2`}oHiptnSY<7?fPhdvrX8%26lUtqK9gs{t4ZDUT@sX zGIQT^sY0^7qbW$%10`k`n{tlAZUJv!^k=p@(U5xb&v1XQ{Jf#F^QLXBW1jU8cx?OJ z-OJlfksyV85=0{7Kc-GUb3FY@a{X(F`nKz}0iFN>c@NN^uLVjHF+eLokKKkTbG z`t$`pcEKqhDh(VdW_R1~bZ9J0CH5gzi%)MW!`y&c&akh`MM{9|<`)Cl7pG5G7qAc? zA*6eMMc^t8$1NQ_GL^_sNwSfENhOh$PGHRVmZ}!qxkHSd0qDB^zUN+~;gHJ49w=Sp&E+N<=4zdS&`d{C(kKxlV zJ#qm-nDD)%PO0elXRo;BmlobXK1yw7yxAXUw;ETdK%(^6|4JWmS21E#w>m|&^9W^u z5q>V}D{qs>^f8A6mYY>4C1M-y{mc3EGkvKw#uqw@cPzZ<=DYs19krUoFn3vmxd-Ot zJLw;}Z80I&Y&>$v<{zE}C;qw!7|a~HW&1PDap~Rp9fE;^Mw44Ax zQi?DhO-4x_aikEajueu_aEht|A_Mz7(wjPc({0%CUW~f`oMq%oa_lTdrxEj~xts$D zOeOC;7EcT3dx&Z6f1K~RuV}-gv`t+)y2~pd z9^;~ZeA)H=UA0qawX4zS8`DE{c8NtES1_TSYm#ZV~_UTZ9Q56x*xZeO|cB8 z6-F_%tEUbrD(kSoDo9<`x|ro2x&uMQ`n9wbi+qME$hK|$V zxs@5xP_V_3QS_L^wQLN#w#^i}3g8;O!^hKn|+fd>|p^Sge8t>$u*hpk> zS{*S{jf}41M7?EB462B&T+9vnp5plc(u<6SuOtDOe*BqfJl`8ysGRX^Yb&hz_3)uQ z6g5Ya*DucIG8eFv$z-yR8=c9`+2DB!3{Be7IrqpUw_ z+d0qsuk$GYInx7)(rYV+Um?ana_+&ERNU?G1hZhCmqSOJsq%+l5hX%t82=lS&dFD) zOqbqhH2v1czt{TQGlzt(X14fmn>W@L5b&t?Z%UASq1#93=6!$Yh%r6B7Tp;Ig}Hw` zzq-8GsmGdyMv`AUy8NtElV8ntnfqyw`QZni*%t_e6pn;e_^d$H?(TQr&<(fqrwH8V zhnpD+l4<*wrEvQvUi9c4()u0JTdxHqtWCS2j5u&*%EP@We7{$xy9$FrE`{X{vT6b@ zi3blM&X`m$m$oL}moBP>l;&S%fNd4|a%jNt%kZbo1L7OMWn)e}Y3O@*1WT#hUu5IU znQV25rG>j_l1)pRfc{+KOY;;4FKtXrsmG%;II%kmx3&Hk1YJ75>^CV8h#4+mlhWbO z?6(}ne2!cK2!;IMu~`Rq2HY=T_WA4<|bywR~lf?{g{&twIw3mBs;0a^wtjw z)8Fv-*&%U6hj0l3RAF_5N{WD_*c85*n7k!(iAP51ip{>b0%n5gipTv7`!61}Sf=Pj zYJ5lz>&Me1F^>j+y#1Ffmp;+~Vi=E0igVtuYh0#2bEhEI+Nll22tKI2%AV=_@$4xo zKJ5J#U!KzT}4lV7{( z^l5qEL8V|GhrJa5b=(_Go_!9s%3(31MHe4I*DCSJ-qh&X`a)=bbjs85wI{_J7!U#i ztsO!eiaypieh)${_{K|$S=uf1*a%5|mv5YA-x8s|2uQsMVq>dreJASMB!Fw?_kfSY zB=E4rmgT6eM*XxeEw?SZa`73w*n$n;BmP&VsB-Rv7P8Sazv-+_3DHxf2j9O*1|eyr zt*c80+Pf`q-b$k4`CQMzu4K1XV7TZnG&CfJiEW3zsrqz>6sd4?yDp1^0skH$65gg^ zQ#Y}ea}JSP2$yUteiP?(A}`(U3St=8o#RS*jm=PzGAM6{c+z%cCnn@?d~X(ttt z9}OR_+0BD>j4I<)EF?W$vlf4%H@=@`dPM9R>ooC`; zClNA#aOZQ_N3kXIBogV?P2j*KrSl_|FycXYiJ%0Ud)cFRyMSoacs;*I3_tt0nmw`P zmpS*fNFg(urXRtqponaQ6!g(cOK>oaB$~?P!wCh|u8`=IyLZD2Eha7V2*6c6ftinS z-bgV#di+kF<9s`CI699F*CG&goawawBO_tw1S|2?!#AAJa!e%Hp!b^2sJz-`sZ@o+F09=m9Zav5+Z(|YuzpxqQ5SxIey7wcQx|>o6NKJ75Q$sb@r!7qeKv882J}eP}Nd6 z)rRzQ(_7`VzT!rtLuBB{v_Gj#T5-{&JLe&2(o@Fou|jp3p8b7%&aK6IVyiRUJk?P7 zlWIS}X?8I|$nypC{ohjhuDhntP9-eU)zzo~OdsWZQuS5wl(vhG=EfgEC5rG!r+nm1kDLuw>@$Yf-#MB)zKCNG&2uZgBZMOYZWL{XC|md zM-l}lI9z2E0%5q%h6#Wh>vI$xv-f%K{8{WEImtOJ;oYafNj3qUn#Dhx34mQ)9Qit2 z)zWV2^Q@)kXsA{DrM-WA1i8=d&ZC1S6J?eo1S9k4Z0vlmCxq_O25ZRzknKlE{V)C7v%c^S3)YDHaf!mr2D<{{NNLPI< z#44;lmlM6W98gp>)?#I_$bfs<)}k%-60cL(TkAfVeFRZbmy4y=VOl48bv4WGEX)1; z!;iE^@cl4u{gs&K@;o6fu%b6>^2WzV%T&&eENMqA2gMV$%WbidM{rg|4EZY0Uwdx0 zbWjP=Kfl=+3b*Dv?9JG+l!fCWbOWyC*Osj{%gk=al5{j#Em(;=iH7oRq(^Rauln?VlM^*Xu!fS6oGg~}iv3OE=w+~7j zr1*62N=(=HVrTSGP1!cP4H^0mpuAT2Z9)6rXpLR{elg-F(Q}9MVkiDIgxWB7l z>=sb~%=kKoOGL%**Prt{99(EE?*RD5F93GTED#CJcpI0;3y_LyJ#6Htl&5e(VaZt@ zic@&>0md0Q&8{mRi+SHiIvs)=KiL2e1LK9+{?Ud~XW+zx?qX~T16fQ5%-W@h@wx)3 zwOB(l)afaA&O{KD7*gkwgCWNR4xe`&=f}^!E5_ydSE=?zq6*#kcU?~!UplVr~s3wl2~=Or|r^`!0C?9Skh8V;}y$w}=; zf2eA4;h;_uyK3^!rLqjo7g)gbB*M^yNxMD0Ah7rFXVCDhb;fyY*2Cqj?*l%eGso-> z58td~e7KRoM|}a4BS(#Y56C}s{lh4g)wxENb@aICR)XY(Z8mHx3YG4@u?@ado58V29BP zzTnOn1XcXMUDN1jGAL;HtF>UCv^@RFLX=22??O7RaxWSg@6Iy??Btt+ICAAPxP=_0Zn_+!rlj?nL9^hp+mAC(DLn3`-8Kj{nYM z8H~1A!LbBj5h}5r(YKobltW40v?Jy5Z)0p+Wq4qDc$I3Y*Tv&PkH?{L+V)2IZF|?} z7L6*|CAzB5vdBM?(T_8Q=!Jxby(WaV*K@qO0knSgFPl2S%wL-lG+`YQDtqQ^^m5Zb zqfu#kqn`tuzFG^O8thn~P(Rxh-MS205ZCJaV6{QEw|q=|eYgi|Fqo9n6uXD;=)EWq z?kl)4P?Q~7+g8&ZRi&%jSaJxiknJC^Nap7qY;ej??(udK}QD}840|H2nRf5$3>U#N#yE3(TP8k)g zcK6^y*#*&UJ9ZbEf&sut$}c?*5i<$c;ncip7{6yNyK61`)Djk@eZ&d2J$Z>iwV;># zZ$xjv>GcL4;6?BEtmdGAq@hs`OQq^7SU!uvC$>!4C$z-^!fPd*x?JZ&IQe1F5+e`$ zAl{ox18te;zX)jwO`4A^;f0?r$VxS^C^oe;%L&nWe*E-ZTb7zG5y#kXh5zxB-~K{K zcsvZD?wPjZgUU%tO8)c;ZXf>h$F54((? z*6f+HfB9k!+h#e}#_zh3;q4dxsUe1S@ZD zE>B0Hw0R?-Xza=Tn4@oBlH2^-g+4=xpKI0%kZIMxV*%>{T8C1PaDdDMe410|o$4dJ zCQPb~UGjNoKtE_2b3}iV^jc#qEb~X{(-o zc-hr<4YZUo)&t*-vS}w9vvo}QStKr$R{?bTu%BB5 z#o#cr6jXga4-k9ORyM1vsiWf~Ov!BewrOr__tEUkj13Q2fu5Hz1<=kelY%N-w1YhA zn@9v^QFV1ZjzO1>HxSxUa7a}DtH&)UEBpki9BFA}B837tkl}MNCm9__0e0GkI2-0W zP2t6QSWgKNe|#^>tgpl|mxafoVziF!-<|EBC*S;<9KCl%%ZNarWLh4&%02@Mz1|vH zC@KaVh0=@G|7?4+_(v8&@T-GDuZ0uP1Jtd1;tV7qY0hK@C+YM}!0h9kvw%veJC(;P zWNFDX_S7UHc6#57CrTv*<#fc50~rxXyL`b*otOi>``-g64AOE&D5BS zx0?|&o>7ckBbN7S99`Ag($bjmcjd*!B>UCe>@R)*VYn+tU!riV@dpZVllDom?Z)G5 zP23Ou+Ibh9CJh}x){*K7(ulEFf%aGOQmc%b0~R2pck=(NH!2o&bV&Cxz@WeEL>nC? zHCORxu641x6UoH|yfGRdSL6qUs!w!FUnfaBNg|A1gLXb3ygS-*9|4ji--bg(Y_&HM zz>*K>_|8|cC#cNeu9J=&x8tYj5iZ^;KwA6`UaVcv@*}m8f@V93l%!AXC#&{PR%IXn zDwb(qa_Us_S$VOapNpzoRFjiKBV?^|86T-9fvHsWl!!Bu1lEG*4FB7o(?-iiveoM1 zvbffA)cr{BpVF5ZlvC)17pA6|$`#@#uD_cB!i1W8u)va#$2Xp;M*Q1V#o%rExhasm z#O^GY^~sZwkyVrSy|1mS!`n5@$a9Rq4&aKQ$n!;j&6aZ(Rt8~_~Uqs&20G*jNoNRhJdpl5}Gv+U5dv} zX^^9#;0ZOGd%&@Ez%hp&ZBP~TUNFiHb}$;Nx7gKg&8jBa!O!J_y^qR8JUBq0E_0wG z^!ilz*L}g(p=nNZL|f*S5|CN(^6~NU^Ai9O7tWQyZH&-m^Pl!0;iJ~t>P4XxJkf1j zyr#CBpNkqoX3=Qfkbivy9Id(aKyo;J-y_EztmwNkc|vaoGcXvyiIkxQ{mJ@zdVONQ zzJVR=|D9h03<)$SX9HH9D1zSGl1`3el7J2>2U^2S?dBTYw9B;ib&Z4io7S3t92k1B z$eM_pee->F&__-X`2gq=A(8q(N_&S_URwG==B;2RkUTej=dZl!m}Em_nhjdiOzspU z%HZ6p0+B@7@6kQ?941T|lel-daGGCqo>g(2Ovjuo%F}3x8SQ z;n2q7;n_mW^~%d_`}AT7*F>=lk<^*pcX4V81$grBtn>#)m$S!l*HkM>&*yd?-JK;j z)3lT1{1bX((#chM{>b#rdAiD0Zf+f(muwRnYIH?q^X8F+mt;`Yz1SbL{1;BqtHNL~ z4GjXrZDR3U&_Em?R&j87X|ax@7NxF`Y^?s@iP#H!_%BE>Q=8DbhxCEP|EC4$P|F}v zzPe&>=f|<((5D{!7TkyZPv(wVI3@2X9p|ZD<@L_0U%KG3junKfHEbjqoPWocX(Y%l z<9Yu4CNuKEgQY?W@&5_V|G(ArXrt}dG(?fT6v%YJ|F0&#_D#p*?$p{dCn!5RJ7tU| zSYy2ibcPauieu8K1aJGo9^Fl|da!Y^{kyZ=vq^&d($Z4bbfEL$F@SPBy|!cp+1*^Q zA?&K?ApC3%8wLO0tG=THqC*>d`&TYRuWW61JW(DcWPbJT8&;Fry=iar3-FblaH8h^ z-HC3>lG;H*eN|11NrAYY0YbbQE-T!Jc-&T;*zkcG*UlrVf7AZ zPLd*_$-kR)n2Ta9R-o~CeaNl1c^V_~cM6oN5~`jQR5I6yR?*C(kUdlV7 zn1i9&X>rwk@%w+I=BAS?@oF(rD4DiP7Q#*abA2~I=Qp_y0JO6ItxDV@L+7wZeg8TX zR@p$f(fjdG5;?PDo`7-Uw!N*3_CH}AE{-&rdIGx9gUFCy)pm#BX8?Q?Ky_iCn*3en z0kbp3LG!_^t5AaI-;iEn0E{x7OQ=BAq82drQWA%h^!(;&W<7s+rl?-Wy@K)G7;yAv zaq3L31Ma1yIq5m=v!DYu^ZKN4_^;$qHxNku>++`YedR7(Imzl_#WlWJAy#vu!Vl&d z5f&GHo3L~H{IK^al15|of1M})ZEPThB@hK&R)`R^=gL|yU1kXCtvK|APXyThiX1vm zPTtbEw9Yej#* zj_-Mnf2UzIcyYM+p4LNsPx+pRIF(=iX>gY1Pr5gHTqr23w%JWrOYbv5y892#EU(jn z>-|4^I6+vVqKY77KVSXb)pi=aKe3t<(75&%EZ;fg!yOIFC&KZT@9NbYn znw5?1b(8yEmWat3%f0+ zgre?Xz&)sRD$^M~UTY8m_qr+|fqQ#7*#_G9zIP^pc8L3KmDkq8|GHJgf8l?q1r#9r z_5734QsChHg8loR!mqOW^*#0+*+00P2-@^1jjgX zUaQsFOk+0CrVBFI{qw&KVCh5UB}xb@$_y*Uvy{W4si>^Prf5y&VzqL5hwtXxc2{S_ zPQZ!XcO{ zn}=#FJqRsyqw@qa(-NpOcvW}p_JRZIT|xK_D-R*P_}#rij&*Gpm$G2U;m`6CKVKb{ z_OHEIi^hNyG5~dEsD8PwTYIw>F=ms9vH)9a?YNKtiKuPYXXJ>(J+E!mpPXrbCprJ} zw@%z;=*a8Rp$D#)tYM==sC|t5->4kFpi;mgrR@>CjH7<=T|gp;$F2E#Icwu~Tn5!^ zZLQ_S0LHI2r`E0I5OnEkK|?NUCirz_daaH&(t?AIwi0pw(JD47xR>%rlK1{r#Y_fX z{|{MT9TnC0#XBk@Ez*L3DBVa2NUC%<3@zOZB`qx=4MUfdbazQhcb9a7bi+I7_xIi( z@2**_VeXwf_nfnPpZ(dl8Z}-IzR-ZOtkGuyiCUKPHs$-9eLT|1FMc$niFbs(EQ{)R zlUX7Oh#&Gs24_m-s*aocazLF$B3q^Xoy!z1;(`G43%mhlX`Z8ewak&@Qn0s~3oPO2 zL4XAQlk2pqd2`ZZ-}AU+#-@5Q!SN3m4%i(yM=TXs5X!hyZ{DJsr#t4m8~ebYo1Hmb zn6nm>Oc*w~gjzyrMC>48L7=Rkm@xRTc6xPeg7ND2&Fg(D{#S1tDh$M0;NIS31CQ#8TLN`*@&lX03??kySW*ng8zC>Y zG3w|RuJwMd^;xb~_H&n!tD>e$Ihzv8_L?#H=X?hjCeBsG+1pvAo&Vo2AcD@uOeyfCK}XU^fG8#rLiJ!>98+uac&!s%-b? z`za){dkAp9g@e7^BPkcK1@9Tx&?bpjpir;AsO;#Js$4}0SiSNr*`j-p2QTq==SD7C zj*=T(r2Sf7k*%~BxHP)$XR@5&Mu|UY_W^qC*$M`vbT??bzi!UC*(q<$lucadD<9Zw z1XPq@v+B@8sYTux8M9io3Ohf$;X93)05j6fvL+DLeba#m;W8e?zuavts@&!4zjvTM z(Gz_8MT83x;AZxUvZbcL1q4K&Qc2>H==k|^I-cDOXzit=3m~v{+7R8+c;_Q6>O%Kt zX1EF@J(i`6w(Uw1@OLl&OoluSfk&?@DfcDvz1D`meE<=D@LDuXz@~)pa&hRjTj-tc zRl}JknaVq6d7*&9KTlM)_#GYg2ei=|oxh}@xmjmypHgL6T@j+pKKQ9xf83Jn!CNPh z%Qpeo^2RY#!+PjC)=(m*Pqo%ucsB0=gp&KdkPQvjpz3zw0(>q@?RV>ogJ-gejw~!# zqwl=AKLLMd*Pz!th*(OGN%+uMi#DW&rY3nGfqI?S2ke zYG4oB+dD0{tb2LJ&i*plY3qHakg77fZP)PT!4aL#t3eG@>blS2z!GWY;bx0@Zaf>o z3cv$yZajIDBMA%MxFda)H)V$J&JGD8#qqsfP?dAo>#jM%*YPlg#Bztd6nw*-w3T1x zuUWd}?7&$>(0G&d-b(--*C3_A=A#@-M?B?=T=|s(C@6G?Fb|<$3NbZQXYaNy`#(MV zgWJtHZ+8l4v4gE{wKCfO=?NZ=@t-H8kSuagbl`j;_vzX9U(*i69=8h?DK!W5&)<7J z3o5={Xds!lm;9vlqwZGHi-GU~Y?74JrL*kn^Ko2ANF#_r2(0(FBAP*%4M35>P@Y;@ zeyYGx^OeZ-)6+k!zP^OOv=2vVv@c#bKp|_p+n)nYf#EGNrA6Nx#YazKTV6er`^Fs2 zEm#5<)RyJWiX!|rB8kt`tECT05g%cZ6Y%;9RUf0YW~va>a=W?IQ$>p}=9d|Da=I*6 zglY`z(9(=CXmWf4%x=4mD;LQ0`!1!y<*C(j{r=-Si~t^FtopARj8Xc?sq_Jr>E{^a zA-m+#NS&3#9kba}iPTcIKacU=Sd8s*iPTw?ZdGcoW(W*hN*pIztZ>Z0rC_nu52ZD< zBi??%S|IL1^_GUS{BfUl!>7h5-#mzhSYXR@(UQ}y$)}w^8EPQq; zz!-TTj*RI^3|e$o(4UHx(apOXdpSR-cEO~JNjapaILJ#J+v%Oskp!B zbpB!)e;|&*Z>}FtWrFg6-U$LB0K2`9P1LC_|wSaCYe*a$$9Nq|9CDZGc&PSw(O|V@W6C)6h_b8 z;3V;WJBxc4wWgV+Lmj%WSvg;qtBDCwEs5LIr{}gkXxUi}vV9D9U9;U^s8xFF)$%@c zCq7wve4Kg4kz;p$4tCX8xrR4o>H+zJ4g#u*8Ws$;18zxYvlDRxW!THe&?LFp#t?%k ztLs%6qpV0^hv6mU<()J>sdTjLY$L4wX$T7_x_RrUJAOULI8!v=Jemf5_(iM!c57_^ zx@YF%+GV7&@z`~T)qf8!f80$(on}-nD$5J~2JQWqa@B;LRhR}$vogK-D#^fZi zn9#pmP2s^BlGhhO3Zb_aOWXW3l8nlAviHbTR`m|iDInFu z&2wOk4AD`N^+u?b)wa6*BcjRFV9l7qG)Uq5kSNq>nrCN>fdEs;l!rJ2PUZy1lo!>H zxZB0gSuRqmubOb%(`rqY8e=5>S3Z4-V`p-TTy_2SiKE6_ zekgVEF7atn75n~Foyo%OX>JrAL}yM%70%Fzr>N!V$Vs*`nxinrD9Ub7c5$?B_GM`Sr_kEr|z(0-jcdV`0IA*aEa3+-felB zLE^cd!+tqsR%y=9}=^~nOZH(I9$zh)Zlh>;AwfB(2|i~?kOJ6(O^;5B{689 zFFmTL_!UmuV|RDDcEz9Mb|QY*)D+=#@h*uopqQK$#=;64D$Xw0vprL-uVStK_((Ni z)jS#V6_?RA(?Vna00>6%I3VSPQb&$SiWjH#sK-{zAg`jfVN!rK&45+xi#f4}_71q%0R6+jS%PPHl<1-)sq8 zL#s88RQR_F)CV37I&PPRwM?@r-eQH26wxrCYGlVj)PqpA-k&5q>;#SJMtSTd3lb9LGDDE2;Y%s9a}rRw?R1pBHDAH<=+fMuIcy?nInIYb zoIMFMy7dUwaF02XcS+Eb77_X$$Y$|$x4x>gFEGb1V&sHpTVe0*-;wX`Hw+a_z- z{^U4vA7(VCpAAQmDO-g?HWNkhhR_=;mo0!hAhB2m7_r3FG?8&YGyb&`+*Ck1U!$XnLt{D?G&qx+IVvo@|6>3um_s>d_!E9QYnR zLW}z8a9G!RqvKwm0_!KE^-h@qEgAioQS-7c^O>1?r_l79)2xt&K4Q&~Q}kh4D^uEw z3Vs(cYh%*efl%`noO0Z<>z?f{kI%dwHshz8kH%%@<#w0y(FrnilWO?zJRHuCGbL=x zjh>OM{4TPqk5q9(9hU$H+w95#I$W?L{k&Xlla$|a7Ke?*^!bG_4uhS$cKyVT>dJiE2&-4AEy2i|Eq&t%*I-S9EHifd)m??Zb zobC>m*K-#EtYyn8ct)u57Bn%a7p%4u1HGE-Z~{|PhiPbS{Iq7U1*1q^Pf6F*q@h+1 z%}7?|rPLcGJi{_iU8J+tV*2M!7vI;tt17-zXieFqnT&vYc8uBF=EqmYo zm#o4vti0xhh0JWep7?6%&_&ls*@VbCReygl_}i&q(>1V$;yc-*XujAGvdoS)qP75- z&z@`A7 zY`T76lfWwrZ>kL=;fr=Viq~}vx_L@s$Z@>`C&)I{@lSI!GKx4B|Ha&Eb-U+X zZqK+N<8H@yyz{(ls@O@Q6)5|w{f)_8^Bf@?@SxZ~1gBGXD0@7mlAdtb!|v(W_q_MQ zH)jJ(r!LISa!F5*LnSOZ&44y3R-DS6&pjEc_akRY*Q%x=XZbV>!w3ulkTW5N8oHTb zuQzsIqzJWUn4HtUYnW9D?jY=svDLGBz&%nqsWaT9bCSU!YO=lR;O_!I_pu zI&5R~Aubag1hN6F=jya({f0dI8O?%y`=kNf!}Vp>p^JdYmeGyb59YeGmCSMBgtwlU z5p+2H43bIE*rhcCJ*2XlLS20P$S{O8@R%plts#(s*( zskwf5ACwRwZ}rIc=Y)20qAIx$Th(NxJx49SHIZSXiq+nT5qk)6wcvq%Hqo%J=E5Z&=;Z5eLjU z>hF>Z92=i1U~LL{8mzPCw699OtBdM3P^j5if>DNR#%qc*>W}nyRBBDkjWNE4(C>|N22uG7kE=}Yb;^-5KAwAVY{Y+NO8ooq!Hrs76-B)3*(COr0^@{i7! zU}SF>AS`iAzd3>e58xiv{fltQ*~ucT!95L*?h<}#%&9_XY4hn7yZXLP5y3cOrh zuiPycKhwIq>u$NaUS78x*PM@D_-@h#mDLCdTE524IsZV*Xq-Huwoso}V(;R1RC$@T zdkT0j0Z8zn^)Jh?zIASnnX`qVgZ?fXOXMCb_if_-Db~oM23WfxtHsoGG4Lng1;G^+ z)eNsY+;$ljc%p9SyD|r-u20SopV9PYjx6xT-R^Y})=gc19XV8u=_-qCKGz`{Yx}%Z zz}Z1bg-=yTg%uR%vbXEH^qa4l`$9u&umR+<{Q8Np(wRml681f;T^ni|*?zP~?1ftzH=FXpDJ12s#r*IeU#5Ahsv>{S2R+^tQ=CPNH`Z)N z`{@@p0j+*HoKwk-d5w48W^S=h&;abmr-`M7>zZdHbFc+&V;{>9q%#5@=K z{HVE^Szh+CjNXcv=R2sXMnAp&aQUerOM)2vf~dKC4cbHoLtIZ5yewcf^Roj@vZlCx z%whfxD1BKe3hJuSkDR%=Y7@t0h5|LLo;Xxg z1;G1Y^!UrHFP|48bCIOR3R4khd<~v6n2Ds*EHEVr7Qudmnsy2%rllP0 zYWvk@WwR(?b13uZAMA|nPX|L~3XThOiEr6s=n|cbT1;6jr>2c(WYhVW+m3H7vd*kt zdmL{Zc5O?fv2OmEYEg`ENzv@3yt`Feo_FY>I#n)-mDK_UX>yRXj1;4^6ea7_tO))$iUFt?`>~Y)iy&V2i;Oz_=WnS|J^NcxSWUG04O<12!E^Dm0 zutGY3{CNZs@C8nC@MQ2B5437-%2|RiOru{*yf-maW<=O|9WSe&NfK}&%8Z&ue_~>d z18j}ZBP}f}t987(pwR@{;9WVgUCwDg&S_EL$oxS&G&s0pdg12qiTh#t5m@r&3GAL8 zC;!&k844EtKX+G-MQy^_o7=+vt06p`9=&x&pQL!ZFqe}Of*ma@N!`h>F2^!GNc-OL z$7d5a5Xiq~e}PWX{M&%ka_%h zA3CK(QnNX0JfS2UF|uMv--KChmolhTzv8(Rhc|LGKP1(NXwwk&IJ@6?dZOM*`-tI$ z;lTW|ducYhZT8|ED8ys%H}m}4Y;UC^u$OAzI@;Sv7thL@)fc4M`!_fxG~|?lsp7q9 zN>9s`c?GP@JJbCnpD-a$%~+XHN$0I2k#^&X&8*%|A)cAOC zQ?uAh`&rQGjq(J)`vH!+!F(r;qK7>!IK-qTs* zS&nbbns>mZ7>y!ph>FVIJn}IOAd~d&k~d-l$PCKfIR}OjpI8Uqb?R}d?Fa|Wfq7Ej zk}|9t8aA#Re=f;QYVZW2lNt8XbB`@H|0<#2D#7Zxxg$-JD-E9u3yUomi;IEHp19uW z*3$J@`&1iDSXV*fV)dU5iBDhkTykcMIANQR$2=Ii{i3`>>?+Hdon2C)OzM!qkF4qN zn3(^Zbe|k+->n(Zzc~Fd*~%(u%3aldilLfb#q*h&-TuOH5t2CzjpZa;eU`TBrn%~- zhUwKW(6;60-f6<6WE)TY76R&B!<$yx@%5GvHr>xcg7DXtP$d$kx4@DBF)j;qUk$l` zUV|D`3`5C?Z3@khNDB6CpMuLCkyXlkE7-8EYuLDSI(UsceafZAoIsMoP!y`^6QhkGPD*)^l!8N#&o*XO zHZ@~`4ulLCH%6Hqr2>~D@g!`*li|pA6Ns0boD7YLtO@M~kSNVo=(&#u)-%^dX}KRp zUbUMs8XftN34e=1Uu9-V{=DZA5~3~B+m{8a@ftI|4!ur3!~Wl1fToL|mC}nlT?ZEw zxBSojsy~1&jTt3FOIHO?y5*VUCo?QLBzkaQ2Rrf{DH7{&>>i0JS4$hN_X#CKW^c*75z zrY>;R??q{9QWbvO-d*mjT{*1r#*ahBbZUoGI*m)8O9CpX0{@z`LATKilfLmjf)o$^ zK1CWQdoKkrZjT&X%5=D-5(^poHPsT+@0v>AI zH_tJf)tIQxEVPkG`czg>l3v&>4?P%Ke@8l7W92ae0-wNkQiu#PEL$u|=3N@oayjW9 zmJh*v!U45=z3z4vFrlH|y=v=Q>ui@cpDJ|cu(nF7`Fq$rJ;&kqQxdFo z(Tb}1x`~N|y8WG0HF55kq=77xOeq-G$a%31OF~>9!#8|G4-RZ8nb{u=HF1CFM|}J- zBR(C$uw_(YYQ}Zy;#LNqjTr-}5O2k%$r`_fwstno5}(hRP)^qM0HSIOxB~GzrA=++ zTmIxgnJnyyNK_TP^`*e~ThD}0=y~GAC9|-+JWqZAvD<36ps`*Z$HT=jL&!P7Uaq!l zU|u#cY96`W(>Ap*chFN+c;t^S!z3m-_m(y3I>AbK>EK(tp7EUG#JJYohKPm*0h6U> zY>G^iElkgyk(WOOP{7&jLKix=$khNa8zU8h_?;JD+$r=-T_32pCtCp21vu)(XrFqL zxk}o+u~hhu7Y)0aWJtoA7gK|*uT^HqoN?u_`&(g&hAutUSo#V?p|5lLC5Q2aLx$#} zFbISLVC6tc1F*@+lcls}I*P!$$}j-$O+%u8MA4MKCQM;Sg)CXBv&_WCh)U>d&G?|D z*>Cl2ivnBo99z3l_Hy+tB1w3uqf_m2Vc!fl5tC+oN}RZ~43!$(^_(TbE>68^yvB~YvOLp@Szk`h=2rpQH-(`2H40aiKMeM^i6%q#PHEYJoHV< zLxs=%7s}957K>l>@o!98-{>mOWcp)}Sa1-~R|wY)37Hx0aAGB&nVK8lB|4|Kn=;3n zq6bq3<#gz<#>;vFJWoQfi(58OJu7SOe$g?TqUlyT6%I;PTJ*VD!UJV8mOgd)maG8D zsQV6AMPdI#ZaAMDaQ*!6HWqtg)Og*d6S8bgA{K-#G zofSxW&RBYOpPZbWMJf)v8nEW``I#l7gyx6}fGIfRr795PPYGDWK+G_o2B1uL_sS~N z{WS~QWHledlcbqKvX>+89W0jc5HRe>9E5^^cxfg)VmdE*=@c|}_Io>QYTWRz)GHmY zn%ZH2*WyXIC5+AM<(O5BPrNA&T?x*b27dOObmp4Ej3XQG@A(4|t~0b6kA5Cp5kk56 zyT$h*&$-I8X~R$$o0>@`Y{{1V)f}T+Wpydj!%oZFj34PM)m4OR=WxjEChr;7g(%+6?*#U|gZkJJXI9bC%3Y#Ch z8f8|-!_TJkPnFGXf_(rYYVkeiC(v{FQCGn8a&+BSH+hn;S8hRk4|vu~dZ(3|eGYZj za4|T=wJsSF888P}v#HvVhk?hra1*1whMGTTX=z?=KC}1vJY19V$d6CZ-Vln{#c=ep zsVV(v*>OL|z|`uvfhFEJxUVgaJhGsKGxkN_cmZ(;+^la=D9^kq^!N6xm-}BWl2_#l?23vmo*#^pr~g^!&MihsP^FFkW_f}Ft;7% zk#b%`m$_NxWPC5DEmc`Tm!55`MW5kJWq-%OO-F+dCY(ZI(;z)(Tqn$Uu4?^MDu$`= zptBNFkyozh`ufoEb~R>}-^|R6?=V&Z_O{Xf_s==#(^-atzmQph!>; z!89sFT(*_@o^FGzIb<*-RO2b7hMLdh12!|;Tq${D#D>DjvsC1te566s>t`aENDNh> zGce^7pX;P4VG4 z+w745U~KP|!A9BEU;B(cm%@lF7&5nDgAx(tV?>@DPtgTanxzBZwUixdNv`;WWcCeb z42hegDN8sFj;heFxiic64gkFuVvwPU&66?!AoT?Xb|`@ZFr^zq+{CEzYr*(eRn(ID zu~as`5jb}{JBCXP{7r5rUS6**{rHK>5AZ8>uYavY9wKn0Haq- zGjM=jf8;3cScs!R;4Vc9puQfM*KUyDtIVHNB=y06*BO&!%+G7FOI^6QxUf^B zEgUR&nrK`2Hj^2X=E_oMXqG@y^)T<@xl;w|NsFu}qad;qo8{}Iofy7`>Cx(fl zcZQL4cBEmzw^8P1f({g&8^KW^ioU#HxO`~?_Mf*hlZ5);vf>4?ptUl8>%N6VQ%*6U zoQXlU3BKQhha<3whqWv+w=#!|`ZR^{wE;96#u$l1E=F(;+y)L9M6Vg)TQ z`V?A*v?&=OZ)7;2Lb@^J?vW++)X7CVLx^AdoZq;^4Jbr>!Qj)F9(sO3Tz!_xDF)-M zG}*2mIi0a=8pv89`=mz>%U^UiN2*rH= zsK8S=eUkU~eA!eP+fIJ?=TN#x5QZJ!n>ScN?HI(|Y;WFtm&$>p!v346bV0%>5#PXe zz3FUWoFum&|Nq(?Ubrq=tLi?U77Lg)H_pxkOOs>%(VIr&!T6K^7Up}vT(kF+2CX8E z1bAa(qYksEHYpeEgZJSdVt)5Thf!r?*n9tp$QN2d!6|pw>rL0IOhJWU%RlJ4qB6}0 z5#UAtetWz*!hf?V6IAH1Ih-k!CJR0X3n>I9)Y;kj+MU0Z8B9T5UJ!Ke;PW}dwksbg zXJV2e0Jvi#WZ-_L0RCF+iNXy)?NY$zrU^S8&x;T&hX)Wk`OP0xKCXMVDJ~~tDr5O- zP$=}jTgQG+iteGnL_$MD`_-_0bb|uNu~~At{l=@kXgZa^LJl6DnX$2x z#?DF!GZBk;jO^?M-7Xa8+pgx2U{v}6qRX`)nI+$nA z|6ZKxp?)m56pD?D;#*GI^WP278BD{#w77sGvyZK~f3F+N-ukB3*%wfLc_GZ2k~zU;q8pX;stB<#th3Rh3HJ%a!3w2~d0hw$+a@B5^tHX#n*Eps6cR zg@i>!s?4VVEV=fsR~V~N|ITd92mIJB=w+$7nfk4vCN!=skc0*1BH6jEsybBueyZgD;~2dXz+_{21fopD3;e zLE6^|O&1BKF(6T>9!+{WLZjEZ$h@1a7=49RlRzHWsMJnGd0)VEF&xu)JT>56N&8sV zL|;Fnsp&5C?mYCKKulvkc9jkAT}2nUg7x31Pg)1N>yLu1T$kgFl82lqA{O@VIz6sC zO=I-h?MP1O07y81jZAi0i!;Udd3XJ%)p6FQle6ifZwv2r%D{rh-3{s8d1ojIulig> zZ+}1E>Ex$|h6aywe-G8U2n{g$&Fqv@ASqLdYAKwy3#uAH%zD=SYIlqQ5%R^0mP)i7 zG2kk@XLYz*nC=AzfB~c?ZXC` zu7Nx<5^T@`eOGd0+U`NxIjrV2P9ic!Okmp^QeY>6LXssxdG}Xc0(XZGov^`ba*PuWHVgB+h+@0wA2;t5b=33Vf-F?s%+fOOJG%J*i-+^F8$n`oT2w(8w(%#DTZ2Y9ztIF z59No#-o7|>Zh-B7&nx%Z_qe+XeRp_Y(^`T0ojj(87Zg+hql>#~2QVLK`$3ibxkcwk zKe-NV`|`m(^MH*XVAD@vY;v+YkaYHM3a0!{I*6=d`_^u*&H(F@V+E8~RRKi7y6MMc zOby2oJ*(58QwU&P_w!a#lDF2W1qB7*6yS@UCwzZA!M2wzJa2=k`zIm2_$2~hZ}Xs_ z(u0eTLbQA8nXlSkdkK z#0-$0-f*aUbg$@uu>p>-3~+jDlqO|B#jbF2xij=BI=YGMy_yAw7?62-1i}V)ul$BA z2SEd+`{O~d--U7{F)$6##qX;$Kzvao2%&4&0rV#Lo=41W_v^3u@b?V31Gy+*LqNPr zTAlY2CwyXW$i&L9e%l+YfRBW*qRiuZUOchA3#M6?2lb}NXNInB+@hj{-8QRicK;>!|x0O$QG9Ek=_h|Jf{+}r4Ob$NBw1O0Cf zPr4V{3ahFn){hG8tm|c|0n^Ezw&Z^V4}r3a^{Iql!hr=Z$V7t!!y{L_OK&4BG2-ai z(PmnhtEYfKDfuN$whr7#Q1@7&|3vBnM~;nyoeo)K?`NU17~u2I@04he-C}Z$XJ9vp z--F;EdS2r}1Q;r3#pknTcC&0>S*WJTe!Z#_y~VNfm8B;CTtIOksl0UmD<7ZQ^Ww;V zfdh^`#NWzJbZ<(zbE%!Pbc5RxEAV~%5g=tD{_3TZj+qA5UT4m%QkJpUtR*MEDZ(8+ z{{Q=}zcX-ga~r|L4{o5$Yhis1qqtzj5<2G(A6Um;I8%v#85&)$Qs~U(#z%TbOXoCK z;7s<|_(9uQI2hW@u5xwfm<-nhZ;gUa{N!jBxhw2RC7dE{U->wjS{L}2lla^&4?0PiE|!7BqWz>h{(RbS`FFGTEY@YMabCn5AjAOK zT^H)n_h1Qu#hG9edb;|~_1s!U=INQtZKS67Q{RW#Xs2O$>#rgun(b177NxIAN zM4=yDLdx7!X7A^?JUt$0hUF6$9v)7M_sPyqvDimA^7Do1#yXB>Ir-%~peKL4p#oNd z>>i#tI(O|OQBd>w$_I4Ov_y7uyF51O>;7%W-TuhLTIMTFQdH!fj5@@<8`Rk!f?BIC zxfkHKfYFZVE$F99PQ^GP!^KI@UXsIG^9U*djQ3YQqLpjI@+vC$WGj;;pJuTL#aD^r zMftNgzEcdXgP9PB_6S3Kca?)#v%>=11r01Q4e9T#FcKaINo$vkJfYK*lYs4N>ZB-O zOWRNYrLfdE%1uKhs^0fLZ%p=WF*`OufC&FOu%0&_`g8NI`40eii4vN(PfRba?gx2n zC3nIPDCz<`BZ72vs8juAKpp9-HkTa?7a7r829H@mNlJ znmp#}eVqnl;pbXfsy_#x6h5JVMGYb06-VOw{3o?@Ipo%Eid zNWzrvC-fY!6llPWLV>gh~suR0Il z&l#z~J7_Fw5Neg?CP%wGrOZJ4f_>nZOeHM80!z^a|4yjm^vK-QR(N=Trq)>OSV0l; z1uPpNkY=4?pCdktIDoLPIe(aM9Yob@umYo1t%%wT{X|UZl+*#^ubwu}Q`>?u$4D#w0b)cV3I~ zu90KgKt}ZlT9Oh7rBl7i`QJ)dHV@bJO(WgLGY#vhtlQ^k_$;8PaaDaCa4)g9oA z;AHM*y%uHQdvgI-9)tJ?0$T_ESWV zl*JFO;tDdyD$VG6UQ8rlPIAME$uhFD{ntdVZFajGMUwum>liOs*S2nc(MJ<|i6IW4 z)x*ko#)P!xN+QrVF%8VyVpdj6HTGy|+@8WpxpO##LEE{BiNFv(*bh9G6`fA;4~2(G zQ{<$;!~=!Xfvr;aV9bJxGd0(7Mb=iwtYiI1Oc~E4<@JzY`GpMLMzsU(bP|vk8_oz2 zGr0?F^1^UViqBEMI`5(u_C@Au-#Fj=4)qi)s-EVz2Ob!}ac6J)Xyay$lxz=gR|}A9eyS1r!mz2NMH!ix{*moly$1r>lijLv zDiTc#+G%?EAML^vQU<8pgA9{_^o0gDjz`S45nuD`jrE8HeMnI)qX(W&Ta(ckKs@yr z>>qm1Wzt;jap}ru^ZZ!0A6;k?RR+C0@N{8e;F! zg8Y-fSNGCBQ=CFHDqgLGPW?;8$3&&TBJ69rz*7pv*fgQT%0~5795#*cx>J>^Fg@5= zxDr$LZ$86<>*Vdw78)TpbLCocJzS}<(I}t0WyQTUsFc`wc9!^x$tBlEe1?Dy5qika zKxXq*B47VjT~J}E3XF%%e6SP${@_mg=ye|s0(~ecqkts(`}PYv%D=ulke}%PYx8Xh zfY<(>v<927{#`|MkNI$a%z{M0-#5PzK@tU$S|RZACo}N-Blbb-fSM|BiWaoho*e}J zY@*2Vf|TlZOle}8Kxf0+_7Oi&MtIkyS3+>6@cA7HJ2cflP)C;@PvOEw6}uY24@kF7 zs6jv!sPn({nxX%Ah8yrfxe3+T9JP{(@-|EHCFaX2#IJ`rp_KNn-OuD|MxN=tfap}H z&i%Q%8DnhmTf6VHlqM@$oXDdHjA;)iHo|C)!uMcF@y2!?Q0KodsQWLnkRx^|}Aqa-@)|L#^ZuMn(Ae`Voz*U}5=3 z8RuDtmGPX7O(Yf!uvLY-_BD<+gMfr(74)z)+f^p@4k4g!Jq+quXQH}*jMZSZ%=9d~ z+KzaYNPKnXb!}hitibzqfFDL}^pL8s8L;?R*HH zK&WG293_!v{;BfhSTxgk4{5XO>guwyjWScP-l>ieg?7H5*((0-Kk@>!Bx#~iive!2 zS99ubv*fonUX9k=NyqKLtU)3Jnyzpv0~m4_t|*-WBb#WxLd`nX-sLJ99@YGbE81!a zqMLhrS~tSyD%g9nDjk^ufV-9)pOW(RHYgjbyyNBuos=j%8Um9;Fqc6fQL!H(;ON{UnKQ%(cG0ne&jPn-#K>kw+&tlyOs3XLOr-nhOG=&CcVj9{_q=3q>7~%2 z6(JJBtMFgHf2SVq{S8ofFcV~GzSXhdvfsj~Ir;G$K%wXH511`)45iPS6*fhdf^zR+ zd@zXXLeQ?<9nUv%esECM%BtwI(?=PRuQos}(0#H{96D<3SoJLZeapseB~JB|pHRtN zzt2sC9mkn?aP>N?U^bL;4^y-%{q{^Ps1vQ2c8M1UMXA;aH^w`<{;_klpAZ=%r|gu4 zu#;P1i$z!Lf4}b`m8~2Oe z0op#}1p^sqUv_>`{;*c0)=~9+HQM4}+WQE)s6k8>m*bz?o12TYwu&4wvRWW0mD2e2 z!>fof9xCZX>${6z;x=U^gyM}g{$p>263_acPW zL)BB2UYH2=KFqb`xEe1P0AdmVQ(|vV7QI%)w-6&$M&m9;l>C(=+ps%*L?9xn_9`XM z_uW3E{a-QW>{MCx?nCZUj~+c*3es_s5m^d;-SGg@UG(ZizUtMM=^`>>#}LJytlaJE zLl;UPA+j1do5%0p*`#1qoyj(35qRw9nLH3m`F%*oU!#Yl{`=1v_0(H`cVfZCF;|gj z{(SP)Eb%4Bn&2Z&3Dlfod@ef$q%C$4>tNXnd__`vFU_x<72T8$$IN)&X0i@Pn`tXc zm!G6pOZm)hOs;YhiwS*u1X1)7Mvmwn6K{MawECl_9QD!yco)uHD>BW^-DqEW_Ro45 z6q^i(4)c$%U@PjUJ#(itvlylH5_Rv9;5aw;6T}5`gn2PhS4ZRIGo1wo(oX2~rSiV| z?uwRAt%?A}v$BXrj`$7N1a68Lj5xU3T?&@{0qBi5+Nf1K@+bEa0a-n9Vuf;YF*1=2 z^H^ZdQsCQNs-mUB5-Qgj&25A4B|F6d5uCb6&F*!COcDiW{~VVX-T;tI9GSN~csIHf zG%@~72DJ~X`0k$WI@CQTWl~q^kn1N9TqhUFi-bC5Hn-5uLyIT{BV6}VZ^^TY`FIa6 z+Od87X4ACbBjMz2Z^5Q8QWB`s>q)p%f2;M z!J$V{8#Kit?|R_5B2UN_VX%gU+*PB2tDd98DEM~)z6!H*px{%jN-!xBpH0Z6yu?lN z*XkFah$_3}!74egDUGE8Y!Crf>A;UTqupB3RDo#JOj3z`9i! zPb~PYXwk3@K|0Pa6_*x)DO1QTg0nJWg>J;qE(GNJi6%23X_v;}efGp#(6_l!ncD{= z|6@1);qW-lvhdQY%>Enk?4BqPev-sm}~dz|h$LMmnHN8KkaLgxikhHR>w*N5P5 z-$b*-=zCuAOurn}7E!TnUtP$FvZm^!nnL&PacFzO>e$*m=Z_A;x4i1(>zW_mzQ92A z_6l2Zf8xt!z49j|)w`dDeAljp`%?Wd1Q49O7Mn!48FFuQ!A1jLd!_&o0H6UbR=^)B zLeNZ2gI(h73lfl@F=m5yjL6lz1TrDYB>trwn^f)xg;#^DdtwEp=<|i-?G{=h<+oMpQkvo3LwIw4U5`2qI;OS>?$kzrbAq;ay<8>^Z#3@gbra zs;n?zphS2>y~k)*bl7s1*#9k zJyxrF7o%2rXz6zQ*MI=$OOZ(&vf&jwXGiOnLa0gLnEh11pwUDqrjguAfd(E3mKOaE zrc{A*R+t);`oevM1O)N_F!BqxZAShCPXfEA5nL|>WVV(j65wOGtN2^L-2t{a6cbFz zGXE^j2n(kQa-4uxhH+2z1y6wsB3}t35S)W`b`(PrMI}+UBACeJPW-zln3N zLXqwaLs~sj`_t4CXZL^Z;`7!_z;&2^VA3Cl_FKtS#_Q0;EH3JH<*M`D)|uwooLg*> zSM}Z?MLZQmP`2fc@CMZK1IJgeygMY>_3@)@tg*;5&(rfH6lJcbSaj@K%p%M@{+H}Z zcw&ptUwt-RZjJ{en0QOwW>Qkr1m|LcuU+R_)k!;v)}p(TGMtuR~|S&!~SSg zE6YlS=n>-32$Bs^D-Kas3e;UR-+~N9wp0`@h$WKE^*l?5iqo+w z#t8kQBbBB@$2(9IGM&d#_|=EwkPCCW%)|*K<6D*@|MFrgAK- zaN|aDHz|8gGrCV`=X=MAOZwRqBjbDXE3QQ1xzZIVihrE`7eHDsZ1lPp*Uqja5;7`Q zM#3S$I!(nY|0Q-VlK}!|D_pf3H3SgxpP_sVxNfIt5ChM9JCDb&;F@{{traA;rj>YK zV36`UE56$f?_3V}@G6!OFSQ=%b>c*EZ_)Kn1b&zxj!ZYrP73*JjAai|J6tb*!2u{L z+&}$5q;}I=>sG)iTKH`B?8;^xLDuBnLMj~r@wS;DeRQld$T#C#G&G&p8{6Bcpr^I0 zsMCv;($vMBqYH9>EW|J30$_2X!UetE&RrX=-{xD7^EvDgxRFi0$A>5f%y)in&_bVX z{oRi&;PTh>8vd8U!d=729%$Iu9+L?{hD3mb(EGG79r@`)kZ3P&CEH7cl>6Tg6d&YX z{$-_j^A6W%vL3No-yL7L5|*PwCX2xdRrty0ccJ{ZpQln-I`v9GoaK7}y#VfCMivU< z69wi!0Rcgn3;xM{wi2XL?WZY3ahe2)ebXBL#Sf{K^A$Ah!PGN!H75e}AEQ;ZH z$Pw`?R5&PPB7dWZU$%xN(6NY{3V~k&vefst`w}bxegsXym1)sBwm;g3PwxIxP{4*8 z_e5+~6{Bzc@BadKw8L#725KPu+VTXTC;$6UO|dc{>F<)!s&r_8umLz^HF5X7KiHBV z)Bg)x-sFAu!nse~;Q!}S4K@WnJ=(S79xD46EFDK+@VodgV2)j$Ks~;Ez>M}f76q41YfO%5H49~EmSoM;onUhVH^vYP6nFM(Fsv!}+vs^|HeYd|I=2^H~f`FkF6 zpA7vQ<^on3+`z@zxs7hn^92wh{L%k~RAWJ~o*WC=S12OqnGx`pR}5+YLiIpoaX}^^ zHIdlH*yuk$Fc&1AL7omE>o_HiWXqVz-oqGytc5_I)wIv)NkMl?;+!mf?F|wTL};mO5sQ#1+?pdB=nwU$^hrvw?CxB z#^e4bVO0+o!f!SITs_KXphI_6_Xc=&BErJezDOQl*b!n}AbrM)-XD+vo*8}5<&AqY zEM=gxl)j~c?buGtXqqATKMyM`Z}t%+3F`J+0er9GA^0AHNz6+*klfiR2qTQ9$3#N# z7HnE*`kw1hlAKJ^v_Oi6$Rfw|78MI!#k{_cKV6*O0^6{Iq&55YG0*k z6|^#XCe$W{Cn3!FkrNe?w|I0h`oT?8b1sCKN4b2p^a-EupC_uB{5K=~7A7V%geRa8 z?xJ;uJk1HT1I(ApWv(CySw+ZjPLwmbZAuvRC(_hT54fL}flwEKR%4%8Nv6Ved-#Er z$o5Y0+%|845<-1d#(!0YukBj0VQSTMb2>Xadw5vd-Ix1x7{m+EF~ukN?KZ-M(6PXx zL^qxkSh-!zEHKtiZ)|LUhVw<5b(ID^cAkrz_jRJyncO%_MmvjjTC?MTPgLHRy!$bX-_xJhE{NLGmXJqEt zd+*(QPh96Z=MY8x^F1RMj2IaSP^7$vVJZbK7$ye~PoaZ1x3Xg8@j`dzUFh<0@*UC| z>3eN{9PA?^mU@Kkk9f%O0eH01635Ovuj5uW{$BpuI?8~r$D6<>hRD|bgD){(smVPE zT~p{l$(Fc*GdC(gRvG(?XCj5mdJQR48-6FPhaPX#G7bFLBzv~D4;NF5i?9EPvb@SG zx7-O!=`3gCRbZ%t-HL}BP0#gLM9Rs#20o=oO=@Qd2L9r^4)XW56XMO&`*_Q)mseN+ z@PXTbc?{|APo+SA349l3o0X;U@x1%L3DmrpuTP?)qyOOpNH9UqKMS)P&lTW{7x+o( zRmt-db*PZhuv~xgi0*)PiZ~Ctg2Hr|=h?$0g+AEUJB5xAGuXteB0PN&am{9v)+#y=6)#qGdPNZpiPtJMH~>*wD^Gm{S2Fvn3uS@ zWVoZ-e*ueRPdImTGbtejdZKW*?b`~w zSwH8JAo#G?mMi#+-_vS%bIFu3_7Y<$s&w>^XcI`%J|PVQ>Vfz}Ly?52CDfy$DKFC6IcVW7$J^VF|nR=Py+&+6FR7--!e*OILf47aBA8OW6{ z{^EM!e-(@Kd_`L)(pRZ;F|#F{ugUQGhj0O{v{fo>whGb{psa0WL>5a;1bRIGag*&j zfQYi)q1`_m{H@ZH=pk+ghLSKLs3>wod^+PFHjPG$fv(WyELK?xMc*V_m||tXWIcv# zmc48}nO)2mPy+YfFXQep`WxI~&$GB$fTalPJr`($+jKZez!I9@D{sRrwmw0|-=EPWoq!W?Nn&6FHNiPm{ z_u9)_FWL<8iHVr=0hVcp_mtVmUUJpLnd+|pOxzVwlx|z>f6$41)Wo{^@^097rsOB8 zxKJ*ch6y(^wr<}*v#2XIH0gT*Nv^>ebtu$XZ2Zf+KdJ6&WXt>W0FIFzS~qAh=hEpI zVRd)Ot2c;u$X*-f{!+TA&U1{VJBE`6?(MtrKJ`lGi5O-s3?=s<$JQmu3aLeNjZ_L{ zVC0mV-$W=*$HROrPF_IBCENJHA(G2v|3{M#ch|q)8b+Dz532Zsfa;cUOX8TlS@*Pl zk|~~<3~ZvLq-584Is*WkHy>v43ZbvQpPPa(Z`xx*v;jbk|A0>zIPsqMH>cR)?ba^9 zu9VPp5y)Jt+WoWJ1fQ3Rfq~&zi6G_zAnT8boJaNrq(nqILoP;n+7>IS5}nyu71~Ri z8N-6iTIkA#q85M^$?$=e_4;Bd5|tJq6pAf7ATm)&I5{}%_xX}rdhUBj6!3Ap9JjbM|LsGAy-L><(fu(_THKw?;Id!E$M1}Ygk&QicSkJ- z&WO93%=p<(brjz=cc1B}dZE|J_3#QGO-Ra%knm_{iO-@{4dHSe6$&yl1G zZy7(cVu6i4_F3WL!W&@Rlel8&M_5?XvU~(+|Hcad+}{X1vXvzPubUI5YiZ)o2`btD zV9Zzk#!+uf8K8thC*My5RshoOxHJg?fsxIcz@8m4T&@o{Kt8@oBCGI`6pkR?po0Fp z<(@#Xt+liQaN8Vzn#d8^Zfsi-M2*kx9`0L;eyyc@_BKxs@o?W0ctAQ;$@P3ac|ESPA%4@PLbQq3plV z2xR-O0V0R|-_a2+f0#r(`V(-F;GcEe`e0~X=VCVFgn+~68TFS~;36f<*XI`lnq_16T zA&jP*bM@O=h+$q9fX6+Ktr7yp-O3}laYW(|M0q0El5Q4tz=mD$>LFVBs2)3d{;57F zY)|tG=>$bpQ_;J%7zV3x&@x+{>|YJuby1G>*U3S$?`EYiAhPQ82>j4iCp zLdhvIK@IfAYoIr>1?>a6glog6{F5^I-0E*|yTl3-cr)pxA^X8TV5g9=+XV6w+B6kn zlRmR5-ghP!20yC0oat@$Lm(1_6ErPl;zgg$2zrjM&tLd%6n@?sR$7SEPm4=09@sud zZWuL|W%Ij)QO5WQQy$iqec$`o&D)}gl#1?K{`jEC?R$UCGW?=Uoxm?jJ_0^$fkZAV zJxWV(GwuehAPP{HPoHL|r==WuPR;29xM7TZxEa2uw&$nFj}AR1miKL+Ny&-Xe>ZNtLxq^;fJ+7_ zzyy*DKNK)B6zF|763n?|??m`B6@2!zcJF8)qiDHgMsPY}{vUgrd`+pI&f=TCiG##SB&Jr@(Sc)YKA)n5~~c@#9wkEea@^J@ZCS7LKGZv>fBZW!X1ZkGb~?6P;*tZIdi@_-<5M>e zif2bu^pVR*a$e{$?&S4>lJHPrTiCX6z@6v$?u>bZ*qbz^_^>-HEL^kBT$x(82GYX9v4k{3itF+zms zW_@}r^~J?=3|OMkEIKl>>thvQ5P`skxhfN+m_%Ht4e?hFZ0pZ&^;^D7o}2mBPa&i+ zkA;_480wAU5X(rAkFnNgd?~i+Wv5Vtqbdpe10&SK58Yf0!DsJ6Zns8wnEo?P<^6u5 zu6Z80+ugw4ZK6%tubX~}btN81E z%__1oZl>@@eBJLRgvkxE1Pr?aV1D4~a8-dIFG$JgjUi_fxJ~O_ANwxo1^!X=z>W81 z$pWWci9v0SRU!M`!|>Zfss|lGZkbUtu z0c=L!`}JI`q3j>E4roJ}Z(~}xpE{muP7+#2=nHo`M8EhP`TBStg*-MidZfKOYpi`B zr)(m_gtYaVJGz5Q2Qa5iopOL8r!1uKWW*OunQ7Pl{_X7IqA}DDyr3}g+@NN_8Bycf zL#Di5a2(mMY^^Z+5NwR{Rn)>01~B){SFW$F9`{=x%lZ@9^c#Kwnh*9>wTcyM!cF(+ z{kd8 z{urvEg?wkiy?n-oc6Q9iCLh<>9@oI0%gM==&Ei9TsL{d-zlvzS-AV^PnyPC7H2$8R zo@dhaS&QsXrz8AxwtMHb#N(fT(0utnvGe+_`C9Vd^y<7q1PE;+#n)%{%fQ3<_W7Md0t>g2VwG@A?1o4H(c>Eq^Uv|9WUCN~Rxqt?x13u>YTNmg+xJ~; zyxFSBkF9jEhj6KE(YZK9`U9HWsV-op`Ly~P8GUc^obVgp?b7mv5TiUxJJFShAv9lS zAdN6Zu`7M1M;B&qMz@K{p-nmNy5RCCX`5Dvgo{%FcFmE#KrdGCmuK-bDohRfnGG4F z5CwvK-KA0De=p)kYKM7GR6EX5rWzbu?nX~FRJ|K zAMX!pJ4a@ZA8ZwrMWYgaqJrb3WT&IQb`6%%D@A@w^ca3)Jt+?)xWnnTZK3HqFG|# z2dc~OTdRMsRWb_Z zMe(U1c@`Hq`Jc1g=~kKvmy1+nWcn~QrG!$94`-^VIXP=84-DQrZVwL)4hCU-fY7}l zxP$~z65QkkC`s&U2&O~lOM|vum@6Ci!;xv_8c)|hixCh*^2{$V!ZWoDye}t><)%pZ z9rD3yJA=_-%FaP;;aC4R2Xdzge*_qOy2<4m-uvyY7Gkub(zwZ_dw(GWq^nsJn_FAa z`MQ#lJxHFgkRJa3{jU9eaqchPCoRwO7$N6gts0ScpWKV7VU3(3AF&(L($XlmDnpc1 zRXO+C(aM^dyn+&TTd1=@&0Nw*4@d_l+Wq(V{1FY@<>;{doR{!^V{iI7r7K$>p_uAT zAxUv@Z@LI&MXKG;&6bynD9x7Mpot+_1OM`%0~P|0{=XSwYmSyDE{~tY%s)<|lBuw{ z#ZJ(F6`+D3;vJc`aB^^XacTx8MxS`=O-)R&7{0{mg~%ha@4+C6v7d+yUkn{1L>qgi zdDcGWKGN@6SH7;xo}v1=q|}S>9+HFV$94wF1M!nVloWy(BO&@o ziEf}P2Ht~5Ss0{_NVdLBSl}P>?%EO-@x3HDNIR}_w~pB8N+Q>_P0QFEeE zgSh{1$)Q-K=8OH?PR!Y;&J>XU;~CPuw6*+WF>fnlo$=+!!+tGNDFlv=^7%J7i7Upb zXD_LgKZrAnk%Al&zc>F*ryiD)96^3{^mJF4d+DG3Z#7f#4PD@D=rI2K4Ti3*gO%Wh z&;mt0p*&^y%>fLR4DsG~u*gURd78t!*?ASS`~1P1-I09l^T~5w2D2r9xs@cso0ji` zybzpRXm_hbV&JUkrV74F;bLXz)XG6r!uI%xt+lqedZKhh)yYT^t_luF(P($*;QnI93aB zzCyPz?<#inKa8Dsk9=6Z*I3b_;#W4w=u>skQ0?oR=b9)TMMMM7iCo40`eo^%)cxAA zmh~>|buIPN8CS+$WB;tcP~#H&v4@!Nz8rMk09il9NEEOWAneg6`Y-p{T*gC);kW+n zA)%=@|AMFN;{PCI_(X&(C>okjSHJlhiBdNEhc499{pjE5SMVH)Z%FFj%=!}2Xcawl z2M%eE=cBy`({!K}bBf+D$k_Ed&$Q7VtaI)(n^ zk$P?Adc-LOu)!x-^c&&Rk34G?hK;2dvvNyy+0cON8SV&Q%)R=yF1Y8d&|49D8Hv4) zVsD5VR~*MOq;hYhaQq2P&g1m^w35u1bs1-Q^IUicgnih!p2ahV#nbqrGhLJvC8ZeD z%7R3aR&=k;YHlwY_PWj`j<8`5MT2v6_~vscSQoha1CM^AN4O?IewrFBY^yM~M4+|k z6ICir0Rv4O9B7f{)ihMFnB5vAHyNJG9p04qfEpTThX__h@t4n^)$;tP^7^REbl(G- z_F<&uc<>45xc2h5o9@6OdPw5_F`C3T@Qxh{*GbzzCQt?)^uFt$m6ce1-LHN9xA1kl zv~sZ+T+Z`(Q!uzCM6g<%k=dM(m2M9m`IGWB<@mY;Vdheeo2b5uRQG$Hh_vLx&Ry#D zj5lqEeTk0pPuVx;thX2G6sjnoFDIxykK;MEGpoD5s5_wML}frQBl2Fb=!*$Ap3}q| zL)4sbjg9iy?aFV8t;jfiJv;_r##QFMN8XZ9-1$?*omy1ysHXWj&y;w*GKLm?_eC9x zE78dBq6G8=pZ=RY>au9LzO@3$O@>1M#}-vtg$Xx4LPr!PHvLxLxhB(@rp!MxDm3zW z>1VqmNEv(aHQSzz``EmWjqqdD!%S~vRn9TfHkU3&(H>f;r;-PAw`KEDYG#~#={jsZ zn;@+ry_>P$bDa9O$^G_D$9h zN|waXQ-ZLEJ|wa9V~!}AHaU}~x6o*XaopLvFUihM5F24Vr$O7JbkYzyf{{D*FsrY+ z#`jS0(DiC+VXN^kzXyB|oNspr3?M}Nts;|6H5UxlR7Ss>4A3IOO1a-;!tq6^P5a|+F49_Sxnvk^?Y0@eYe4POZa(T zW%v(9bsjsoOb{ctq@r363`2vYD8BZK7-7#(7!*NTa-Ih`$Je#%1aZa45`JKw_n3MD zE-p0QyTe4oHsA6MLa6uf3uN%^X ze%;+!-fBqq(?FCkhoN3V*(-$QGnN{1_V?%Gps46nAh)24zmfgK#+P=-K zIMc5v4TL?U%H^aTRPn#~nf66PwL8KSQ#6P}G^>v4>_|9Bzza-I(Y3%$3%f6YWPfD? ztcda#%iX3#5|6SHW7gFca`s_V6EFc~5b&19vM1~peHu{dz-v2d-R1G==mEyYk9p_! z!;hK#&QYrRfuIp7odT26#?$+(R@rzJr0(bWAwht_BhcG7A{doiw|K@HaV$t1i91lp zs)oB%$e<%uoGVH|L-4FqkmzAQmNxECM=eoD4W?@Nzx*i>Z5rt_3)*g~^@5uix5=8Y z%}S~Ec)1UOtlZ%cMDs5zklW@c);U;fY>uPS@G2rZD?uW0OQIB^xAuzb7QH2GBt`c5Gz)r8G>$`WL`ON$An|Kh~ z6-A2M#mWgs@;g?{;1dJGcb?fv>i7Bve)PEEm7#YpzlR<^MhR#?R!Jd((x7SReYx<* zvD3xU!a})3?Gq*j5}V-mf=e4{6HIV=&vM$tHMW4u@qzb5CP;MI^%qt>VmgoY9LTBu zxd=Stq3Q#IF1Yu9-E~V@j$5hKY69X`I4t?pnU8BvZJ3XpQ6gVZiu2)^-h3ip!levas)lZR z(P6oqo8z`9&gMo+Gd}|fy~qP7Hnz4j)YKyLYb5hPf8F+%$nx*>$|iOH{nc=h(NM(0 zqXQRBHKN9=uFNaB>|>?TM-%m!)g>eYGouOaj6JHNL+K~W7pzGk0w*$-lcnm*Ugty7 z9&3EV_Db}mky4RW{=22yiyB!jsJ|i{(-3-wJV}~*m(pk4NHXSo8h-?d;y;|w*{`9s zYGNK3K&^3EGopMp zp{n@oCQ~0QOiXK!txcTXF0yVjgMo+mQ7Z(VMtWVs#)eh27}(h}S&$3t*z@Hg zee%rBG>`KyksYT+=)-gRzl=vSGL$5wmhPk`GwynrWZ8>#ZT^^!WC^h*Gf(*Y^#!}? zy2k`w3%JK*y3V`Bi0wSg_W$`o5L|};PINB>8elVfj=$b3jHTrfbX=VAo9C)kSQP10 zNCE1^>|L73KiNM)fQ7&EHu$~vAwsK!c`SIFLY5Y4Xq+pZsrCl&ZOqntqCk5t0DnwW z`Pr9W)}OpqL$2?f{ZfoN|76wS08A+`;+7`k2oDg00gp zEdSr&pX!Y6vxS1Sd{~A$NLvuaDC@8_jyZl#WEX8erNdsCk%(310CF`sDyEf}6~CPuol@oXTk z6ZbkI5|fp8i9Z^evKJ5-H}e`JM6Tm~Sek)LuA$C|&3`rE@T$+@l^o}m(Ki#Tbwmi- zSD?V|cu!eTx2us1J|A1f4D@?uHcd0S9b^prOWux6o9V)TsieFc*qm0r0e2oPY%tWA zj*!$N{;yrY{FTtyWhFgAv;>kde3;y~dhxGeruACU0~7UH{&Kj@w~_MHVXv!&ef;ea zmaHSB{z`D-JdbJGc#EHZu>4lB9Lm2u!qs*@H7wAaWI=JjSTt;s-%G%CXWl@l`&+ma z8kalzl|L0!>}|X0M3tAI_pbi>ZcIM=3tk3SDq+r(n-E55*-x4M_YRs3s@c!tm@VzxqQC08OjyGp;1;7==hmK7tJ0S zYr$R>5L<%m9BDIoE@mQyM0wdEl~{B1itkl21ABld5~ae5z+t^Yu*`icKQMgLx5MY) z#3NPIGNke7L&I?>7-3h4x&)zFHr+MDj&Dgn*EU$n#)>~hl*ub0yXaeAxDD3@$D4z`svYm>Qa@XE@t zSd}evb#RaytnSUwH3#6shyMQccEsn9;bBhwkK%VWU!fKKSGs+7wei>byn?SDR+hyG z_BNi4^PH~VT01zeFT%{A;;7RW_jZ5#5 zZl_9Du@S)K!=}v{#pw@~3yVU->0?L3q2EHUGW;u*)~uA)Y`1|G9n@yG=z3rFwEIu5 zCY6yp)b=8KAb#nMzDMuHn71p$52GYZefg#y+S7|Lx7l=(S>u#mWA)bZ&4sg_CMlY+ zTLLyP=7JEt3n!tV=`O+!Y@4>mSXT*Kbw8rPSSkGxdFKv>f>ap|L zFS!#wzM|A?0ff0e&kDW))MN|ntVKqd*JKBi8QU#~k87J{ZmyLHuG+!Uu@lq62cmp_W?ZP{9sy)Mq15;Lo&972u`f6fJrZx z1{bSA*MPvoy)^gc>X$J0nE}0|j9nE;vcdta3G7f6UgpIt4^*7fyFuM56SeSX>0A6JePh9!!G+%(u`{)JE7+EyiKbuC|TbAr6T z+BVi~C`1R<2p9QB@^yn-@}FxflFA6jRD|VJ{^mQ!1K1Jf&r6I0+FV`xd~&T8Pj>=K zoI4Fl!i(g>Z`A_295WXA&Xz@Sg+K6H9%7OL{2`1jv7U`=x4eN)S${4euLlW>E@}NE zp=7w!Bk15FiYGM4RCgN1E3o^Ir*PtZGSLhwDXe!la<^W@*LRCd+G(5DEVp8un;7kj zgb+IR{l^cPPhK6@oF#JKwqGBYZ*aBSUclplcZ}p%T61af9`wwQD?hxNT+w*v+1X}G zuvD`A(}13eKw*kbNg*hf!KTz~?^AUNuWSwe%jQzBmP!M3 zg))oQ?#JnRw$^p?>z_+;O%cvdg%isfDr1C!&UP6OUp9a(Ed7n$x_E#O>(20r$NP>5 z+fA>uM}k8y_rD`<_$4egnZ6;NST8OEuCi{mOuPy_@%c=e4LDbQGoxXm`r4c;rMO+F zzo`)fk^uRcdhwb^GWOq~`&m=sS-@m2!P8r62>3)LQx6L=vyQ(&>waDe z!8Ptq-TxRrgJ(@DtDcs1eAQRDB>iQ@$k~qY(+^(n2jarUI9F|8j}&D#^|m*%_UC~#+3z3c$ zf1_$w;_*|!Dn&Xxf(?%tli99B#c>^HEogyqNh$sv^Wn&l;Cj1+3SY3BmxHgfv5||o zICDt=pR#d)xfxX|p}*Zs6i~1s16*Smw&4v=A2c`Lect5(I!uLf(P4MH@$d>I> zWS9xqiEy3PG0jckjAykjZ4b1Wc*OC&M#Z?lo&4oLSjxs;b>}vH@6maup1K+2n2GTE zeXO4TWVV0rpoTs#f+6gp1iOYRR!H#^sdEKSpF>{;F)`gv)?`5w2o%<^X<1cQKk|d? zfsIG0YB-M^m?ABU=03xKLHX;mVkUCD{4nD=M@+hg^wU zdo>?HbxbMokh^O#NC%Fj%m!!Dz-JaIq&ND`Kt+>$Zgl~WoMDFQcm3MVbXtpPi&sKe z4br^`z~v(#Vf*PUbW!pO*w&8KU-zAE^bg(FkB9xc9mN0`817Zwm(`lf1u*ON1zCgdNzDsMPqFry*wQE0#ABClHjY_$Nj1(_ z29vbGJWZ$1Uw=i{>EKrds2b|Ctvuc{kGLExQlI*F-N#zZDVW95pXO7ope;g47^+RN zkxCwwYTi+6n!cEk1C|~am7P4v%E+(le*Ngswi1zHx{i%p(5DcRLSh%DqU_a}d*ecb zw3Ni5xK5~&PLbVWwez`3XedQo=I?JY*Yr`~7_M+sbbs_&bF6LW(s}`N+SHV&%41)O zs4+`{X|o|0UX3qX#PaP!v;Ra-jByh{tb=f7bf~?j+P)E{aKO!*_c(JL>bk0o=ROGZ zlc$>AZQ97oDkIpd8DwnqI626wNsA&v z*OwBArCCMiB?@xO{RRX*Enk>PrG$Pr>k2ocbr15J@o1Y)9QtS+#SdZVFhte`<%UlCv6vJXmD4fqL+4AiNzqcpMNMT4cpZ^ ztZtX3L~i2M1Da|m{EMhQ2{oI@Vm=XIDsFZgV`Ee1V{XZg;31Px%e)TGM}pW{r<}cn zsxdpZWb#kHyOz<3Jej-ThuamV zxE}N_^c6M@<}0_n@%ssl!okt$j*OCPmZ!g#^?vXzm2u(nQ48mhE8oM+X{iv^TD#fZ zm%^)%2_Wo@e}si?y>I6!hv`IV6ilU*Z|!rN_{K6!^yrBjR{$c+H@7LQ3}RI7K1IOT z+3(1D{LD-lMDQuld0BVL+twJKQ6{~h^$<^cI2Wsh!}huwFH^59F;p|mETldklSY~X z4XJ5;y!oMqItVjDeyP^MY4aLag*c{+Mj9cc0RpKYo!-UNyJ%~eN1{9)lYBZr5;G}{ z?vE-clt>uQEy*BQ{>BXec*T4=h2|B?%YYF0sr`y~2Q15*Ov{JXLLor|**37f4VKZr znro@7KN07QVmt%@Z0>6L@YB90RENve?F{NGiWFJcm?Hz|8P#LNjje2NsnnGJMa}{Nr!m|@Z_)|}F%n&O zo9-=GikB>G3gi{Q3RYudja$@QnU-_0g>fwWa8hlekzY)a1%&_Ex*hkzHyDV#AOU02 z2VIu*T7t!gw^MVg4L^IGjbqC8AoJr3m8!>BxB-h1GK}Ic`Qk+1Pi1>|rY}Cs*S8Ot zMuEx-Z9z1nB%V2etlaDch`=efb-2|3I9w-1ew$+pe`WPhaCl-Cgc(nH7b*PlM@BLM z)-Xj-@eZ2Bmf-BSecDtCg73r|_~dO*{iAJQOpk4TrF+~rvgl=^#@MLTNKke4Ps zbwMkglJbpZAiiPDEU%}Jp*lV^Q!85zNYN$11-C8InLj9jM zvxJ4J>A6|oHk)|vC_Z`!K)xUq7$XA9Z~2}6(2K84OqeT+WE`}o?x?sUJfvkOG>H2b z&@z6FpZFLV;LHN?i(7@Stw`rzZqKkS8kn1%v+25g<+Q59(ob%9Jgt8_2-|f6+o{a2 zJn@S_*`BJLRa=G#E&b+8j{`f{OdI3raM9%j>8^U z^+?B=Vf`?JfkZ-jYcA=wL|-`OB$Vu!FgL*MtelP7|?Ar^|+?j*1yRX4unMiNiJJ~lg2WNRIhM3aQskD>6 zVt#ym2()z;bUmwKeJSnS;ohR_dbkdS3bo8?4RAC(D-!3OQKHSE^B$SbYZ{6EyZ;nYIrP{1mb8o4xh4a z-e<(V?Qh+t07@&zylTyQxIFac@Cob6#NX*O+|0m4 z3@L8T%>v3|dV1JDdmT(+1B{`y`)k6HthBaiq>TPZpl4J#KbGuPnWXs?3xg_b?2JfU z(=}JiO^fr>9lv#&rHJzDK3wmYJlv5Um2akq%9~2X6Jn)Yl-6N{trdY`Vf%=+#;-U| zsCi4a{dEy&4gbcEFPA~EWA?%9Ld;fw-qz_iSTkkkl*?OQ(re3KM^7P!AfU5WkQvYc zocLrDt5~zaII}^@OBs+17~IL74rH6W`wLYwOag<;wY5j)74N_KK9hP#8S>Mr&*Iel ziw;^UX_$;?t3Ck)B8l+%XVs;Ul|II_(Z_wydW8@-pVGbVZlu<;DU8nB#11NKZWs*P z?%yiF*N~#;1Ax=;xBTIWa-Xbg0U>VMiah`s2Lh0%#Y86FWpSrz3<<<$0|M7m(`=qq zY)fYOA=ZeT^1WS_AwHGD*L{-~l*JT1@eeVH%Z58nKEb6PZ)4}&Wai{$=2$FxtYp5t zp$otPCF?ZXYxZ+5XRTo!Z%3LQ6kl9s|G3_#YxWi(quln)FiFeGfF;C&7{#xAV6CkP zDc?0?BLa`C?P1_EZ+%x01BwU8=M@?%&*3LTaM@Pa`}&Yg%l1Vgap)^IkC$}XJFzVUnBImn$;U3flO*OuDO7(4rFTn9>NSW4wdiTUW^y~+9~Q4yN(HlevKf)E zS#INgkOypP2Z|tIX7X6~X>}t(QdZ!*e(R(}NY>^i{22wyda0q9^lprUT?8AiM~c*! z=|&l}8qhM5MF%pR11Nwc8upB029fKf#n7g;g)j2rA3v%Xv9T3&ZcuTkOPPtsS_p6m z1q_bjAQQoFng!z?A!7%lpOZ@iBF*wh0Q)_m)@s0JrY$M@H&W!LnJz{hes@$hTjNbc z0B&?j*sJ0ZTGH&+Z2TFJ))z&BMO?uqxWs|Ab(r;SU9KsTw7acLArB2z?k5j%crs#O zKWP{5ol5tZ^4&@2yawSO4t0Gs8~G=jl%R=L-%3wUJghP*)nDS_(V@!G?mux1>glCH zzVZ!dcuKm*(1Y*4CAh2sP>9)5*4o;1`EkqT7My8)Z3_RcZq$E3RZ|4T1{u>jXHEH7`7yCBFAS;rj0jRd%;G z(b#C4rYRC~+x**XC=HKU15MA1q%a~LVZ!mcb@t0ALpas3T_Gj5 z<{{tJ7PIwo@JUs~c{IogEI%-JAls|7&>X_Z?8$@6oiiF^y#PXBkdND}eHL%jTyRrKCB*N@HIUjyjaC9ZwZG#IFTgIos(&@AB4 z1dX0;4j_o6@Y)*K*c|EFMvdL7=5+too&|-?)1sxPu6U4P7q!=|1=mXiIw!@y`^c#x zbacw@V-fwVA?z*AFb|3qJlgs-t=r4s1d$XYh=!haUao2bbq%fKdvtL!3ZT(V4;hfq zOAZ{2{O*wZKwkw@@4JS{Tt!EjyQrnjG=6`!xtq{ z_*HbocLdG=PP-J+%S)~Eq~$eTWePKV0Tr*g+YhHSfKdfaH(#gbQmZ(dm<4S}rVOIJ zk&b0OU)1ejKe(JW^o8ygiIEOpk0xWOJ8=LB89wa49Y7fb&o+M^W5`MLgtZ^FydJgu z9BpL{ADSBRHBhcML(4@pI{1*KOimRL0+e;7lT?{iUUO&6<%d!D{DQ&_oc&lwx?ZiOi~H3iWkubO+Pn1{=m_tPGc_j_ zdup*QH)%z30=V@b6wM@VqK&`GoSgyy(>H*^YN6hKsma}Px&qyqMKg+j-VEsf!ct}< z$&HXneIqq)O)ldU1_9L!l^I<<%0H0g(f~YW$a+r@+2yB5-ak8>)>h8=;HIb%|Irx0 z{Qda#{byX@vr@YX5)Bf-5MUA97-_){*`o_tS;w@U{=-v!K>0!)w4gg6`B;rfr4NpHaZkjJCL76CxhVka zX*xzk4Wh?MaI?Z;urg<@myl}BRfA4vXv#lqw9iZ;MQ*9_kncp)34i5kFu-?u^;*!S0a(Cz&KzXwYYXBx- zd(PibuD9nF^uDTDvF#0qwwyvlp~J^wi!oqW%a1j#Dh}f__SvCP9J{ z?D_V3iJpzu!Uoh%`@SJn#8*;hUb=XEZ>j8`rS*hrYMhA%O)8;CS9|#@_BU;97@se~ zUfIe}Pn(;i%j@N7pHz!EneBTZ@`P^}>LcS`%4;RohxHN0q}RIxq4%pnxkk=P zaEM0t#M^m3ELF}zwT6dg!$k1G=fD3l3nU6_?@WJi7~mSIn`~N)D5Kr@ChZ{mELaty zsKze|BqH4>AbO|-H*LKS&R+q$CGsa{DproyQLtY!kQs)`hU}^D1GsiR7sMQ^m<#hF zVC>I2o`%!Of7dU7-SsUK`~G98E3@<#gTY2W80&-$->w<&LQr^_omfvY~<}a9yV4*c5`WOEK~N2yXw{}n zOWm1fUWvp!%M{DZr3I3(I!Ssgo>72Gne!(Feab?|!}9fW8vhTiH?Btupa=rm)Ms!_ z0Le7xew0Rw4$3uY5M&peK*;yUKa6jnFWnpeO`JT5@P~|V^a{@z-1zjvZ3TOyUC3?X z>~AC=u6uMBtbPN8*$hOkA|xxu26Y!wzWsZ=bQ$|W(>iPtU-;C||K-cKwUBez78Wl# z2##6`+C6*68Eo&THAuEJ*mHYtovGuh-aorHZSXQJEwSZCYaeW=6eiQL3id*A58J2~ zDbT*&Wj|8|oM*awLEW2@^76%>#+{hir6OPBKGvRmYy3nk>4wk+$X9%fimBB)@hUV5 zjJVwjU;C&ak~X4|&@x&#g4)`U@;BALh2+6<-<(N)_Or3+sj2ZW3dr}mlKkTFqwN%! zm-3VC@K`BcbenA$I05Oab3Xv=Ze43P^r~WZkVls<5Pe$4`S=GdC)GXFQ9qiQ>=VO^ zHmqBa-d)|>0DPX5(T;}*XP{-I8%#}1B7c5XGSXT*zsuZq!9;0hpwz@ojJDG{!f4}8 zBgpgVNQ+Ujq)x?3ie~}j!&v$7?Dikb zmJVLdB=8C>8fr4UP#aKt=NY(ShB<)4sKcSnoR$cTYxElw2pZi2PX5{1+1%V*oP1$& za&nA_U?8P4@*Xi6sxfe@iEvCOuCW%-rmfn)t@#zKlGu`&F*PE3bA%<72yk!)^oP@M zQWxL5=@A=YU_%m?f{1Tc`)-$H?y_HAkv0f$$x~vFD3Z=76z(}4FAB}&_@7_{8v$g> zc;9h^q`3F8qftI{{w+OGqt~r?=A|33;0IA*Fr7ZJ?;(i%)MDv$`9xqAT4t3udkPiV z5~ctAlM2QdH^<#E>ITZyYBMpxaNG`E`Y8bq%t}t`zCk2l+2!wqigQmS!$G3@+Umd* z6>H}nA;OYYD%j@3HO=wXT#iF#6+@C{62%639CnI%cjxDUW>N%Hx!=UAgQfq)hY?X} zQ!~l8QE!M~kOtAB^*>?gPxWl4)mfng#HOd~Dl5Nh*2i+^2oJt+fVEADu#;K6H}x| zWBYXa!VmnN>tG0kDMUcr`xI$<08eoU!x?d2YQ=0==<@w3)y@^X<8A5#QN5AahA|F}yGU@Z0r|JItzNxt>{G zviK$b&SM$~hdO;)x@a=jM_iGvvQT*RxO_@%F7ezn`B6-JCV9q}&`OxL6u`iGUXc;( zx;0tF(3CDm&Sb~$S-!w1%PJ&RBFcO>hl;g6cOOOL^uhn|QmleDb+~F$lJRD5`s0%| zls6r4xOEUCl>m4PH*aTK2*eonnFVeRi|z%LPv4#|UCRG!gmWNM^{}x1o)xPi3o#Z)>)T;i8?KMr$TIdwdjM?#>&B(`Je_fYg7 zoA4-Vm0jp_PfyZPK-@p=bKHN zYWx-lv`)7)YPwo&99mge#Mad8yaQ|jXJ%$X_&j{n1=bn@bXM;8m6E7Fi$bu zt9zNfLfX93Nfm)K{1*i3!af302s-Zes;I4j!pv&Ax~-qOLu8%V;6dxJ{}EsOwU2^C z{}ChdfbI*>-K%SYe4uJgoXb#uKmI3W&<{SO|0HaXg4mpZw1-4M5j$|Sx3vk*bpaY? zu=!{P&HL%Lby7eli|DrYCfW)f^c=|8;SpBPyoKmSJw#il$3dZmw=OV^17N2zu5exXfZN8 zzgJWBrc55$cQgz4Eh*ECe~u} zFIl15q|uxA>Gb>XjDTX$rw>wQLF0!_?mHq2nOcS$cl5P>YE>6$tN(Zz84-BW0tku$ z^_HaV9d#VYK$Dhy4gDl)4l0P#_sXRVH@+q;!7^VIQ9oCq`pEUnkoZLtoR@^qDZBH{ z&E6%)Sr;X$rPg!O#BI0L>EKfxe;p6j&%xgG&%xrLNS5bV|BVC)v*%GTk>k5=$KN9! z$E%liCDlFdC43B?lew2TNg7UYnpG=q>E#EvM?Q` zBsto1QWq#5`#FRc^W0;u^sADbgu+l1fyeZS2kG3UouOL-H0t(mq4X5R?p*J4#jXH{ z=b&7&gi?l9Vc12+^dB)~XghD^P0Oz*ZQDBUbAbjZmo^}NQ{Ra*Ngrc`@4s+1>sMd+tQR&U)iIuKy2u2uiei) zMwBjisu6DoEKal1X zDh+L>1pRzHbasC|Lkyl;a~bPM+QhLP{~a_Y^%9h_1UMx@K_MR|?r$j*)ynLKQ^EUZ ze_Cj~M}=0O@_Ig92{C<@^YY*AmW!i80DL#%d*{ldnZol6*O=Y02CT0>2?A7j4%#K- zIy>7y5L^4;H#kLCptdx-VshNvZ1_c6Y;2VH{#wwa*w^K_GehB6>5Hi>*nYVQ zUFplqj}x^YmWHE}nmjZm@?pZ=zo>@0V+`@W6$ASB6>tbETGgcYyMlPSPcF^FfK2wG zM?0y1>r2)V5I~xm{q8Aa9lY8tF!9PT-5&`BIMIlQ7=PJad%F92rj&(8_vZAce8d(i z-wQ$zrqMIA1?HC4>~CPm>5r`Jk|k}mlekqOSQ^i-h-A$(lXYF6AWh;48~SjDRIz`3 z3&KP-v;q5<=a(FlzjrpPC3@~n|Fc9Of3-E#yfBrf3TJJnm&Yro)$Ycd8$&L+$e{7cCZtFe3k$u&{6D88qs4BoAn!(FiDdNrznWc7WfM2F@0oz8fPF+L@T?5|gg zK5m2nvwrBOrwFrS9qp>^E4{cBGGsxjYB-Rn=szk2=7ufpvVYNEp4U5_>WaBXohc}z z6igH-6B91o!es+1=l$-m z3J&)h5;eZleX#Y>a2i259UO@KTUO4jMLs|)8ZEH3lG7*0HVstyT_F4ExyE`x*$iyO z0n*}kTY9jGb2z4aTX_1Q9PMLQB-9bg&M{pmd5tGQgUBui#BC$PTUoK`m-FmVZUW() z4;5B*6FUZNaXH{QBLq-N*t59n)xUhD&TQ5=J2aA&oWaTL^>>7;?`d!I>Y73R4q_%n z-Pvy8o9`mwodjrC)c4LvSF_o|^AnTH-g!a!Cv6XWopw~=@l;HiFF^pFCcx+wX>!au zjX4ffLi^>tv=}}bE5;{6zc8=<)_JnxveG(Iq`<+00=M$6N0YLT|E~TVTS{s7u3fGx zYZj-CTTRM}A&0fB#|OmcpuCI6WIIO`rTfSDKlV*yNNt5Z+ky+5?@5{DWZIH84jZSk z{7(OBvotg&H3nkA9G^1F)Cyy)@&Wg|DHs2}U($f&?64dY-B*mObPmBrpa{*E2wHRk zE1#Eao?=a$#uAN|G_lZ2QxV~|;O#m5R0henaitSQbeHrDzF+0Cb0cHbb5)R#MKRgA z`d$To5M*(RcYK2Y`uMQs`RO=o;miG=Aj!_#9Q-v!+vEyBz~f6e&? z2)uMRnlVb1GuV0V^|7!wGYNvPO_YAZr!cBJDZBAF!IPepjvunM5Et|&Jw+J>DroIZ zOvPE2hEWx;sOBiDSi~prqb9L`QNczqscwRrH7*}%GW5`YE?qvlDct)YtG@a^3on|) z@?Qqpkq4{dJMy3j&I?|qk(6)5;E5fl1A8U^`;lNu_&p&6E!H@g-O3>^ts>E*C>$tn z(88tTaW+pYqNs9fYGCFwikb?F4ByK5iR|$1q2f;F>qB>Ld2Cn18CQ2R9IIb7)sa@e z1-V?0e%_QjFGCgG)N7ZgOnA8$z4`STI*jX)&YTV;Imk1EBq?c>O{{mT+NK`T)V7czhBYl#=Fp} zd$6rl)YFL1N@jowA>P&sy_NCShqKVUGFDHfqFP^44Wt{dwy62t?dn-0-k;ErsS%?Q@6Uq$3A+eZiEzjPI!s zF7?K1`U;1$6HE(3G$9bLKfl61wQ_TFpZcuTbAck;4>F2h-0x*5@$)Dp3Q(Fs>=g9c z80PG)Tm(Ao=oTS{ZZmTeyyr{iQW8HO)y<%CnK}8tx}rC|0qEc5M*D2G8;uxcPtV&i zVnnPrCN2CN`ox};Ee``sWL;}@GrFxrHp|0q>Sf(a2W-3_qTG4~e#v|CnXS2CwkTH8IiflXvU&)WOUQkC@f2|0cG8=TUQcA>%WPT@QcNeQQ~`4jzj*yvg57?PhypJ^ z6!xKt&34T@yl3+)aXydWk*+I*`1jg9CIUGH#ZQy7PEy=h@tmr~Lm-1BsJT$;Jnnte z&d>rlS{ixT+h0s<{kl}twO{4_VVsr7R>+q*I8N3d;-DSkmH+CTCi~ByKR`*-Hp3y`K)W_f^`cm@pL!E9Uen!7hbW@X>~hHV%C+KYc46Fr>Cde4{Oo8lJZst zX!D2do+b|RZks1Gc)hX!N8mSKFoqbW5{W(7xpdmbNf%0zh38Z#DRNT`QxYkgKJTnN zIJNfq6Y7k3B#(oTld}@^DFwnjZc*@}D5Vz+@JdBXOG`n4>6~4R&{fI@CXxX?Y|!k% z2ieKw?95}4zuFa9Ee@)8_3dc`8$MgV8dw3aLTv2K+TbCQbe`-VKkowix3{+=@L16o z4-1kF7?_z|TWLSBv#?bl!!JA>4SYQtd5RM8v-_lQ@BvTs-05Itrj&JGzSFwo4E+PS z)cUU|6!jT19A>58Sq|KYky6GwI`dV_Pj|DOez#l6|58lcUgw^zzswo3wQopIySKHq za!P5@oApqhVRdXt5U^akIX)dYG+Tg_<3=pnxShALx%+)p+ZCbK)i?Fofo}LkiQIQa zxOl;O6b)_*ql_?l@{bD|QyjUHoF<=m9c^LaE&U8pUO>JQoRC{sO2=L9ZpRbJQ*32nflOTAb6!I z+u7d9p>{Eun@*C(j~7~b4+=saeWjm?9;}wHat_=?|enl*Uz4B#OWjpI)&QTDk5`%6>_dC;4>9MVnO)G#LY2@BZo`+ zp-`BzsViWzP17C-LWRk>oc;ZUph4sffgnMNwSrPZdTa|uUf&e*u{<$Jf{ z>%9j_W5%srw7Ztcp9%?$P*;1Dw@l9Dz8H5hIwBh&iL~yu?`D9&FV9;?;A{3_P;224HgdS=vW~oH55AxHRnnPK&oArg zYEBL0=)UYj*^xt=*6iIIWGRYI8Z4&G&cb`^+JpNh@JH5D_Dh~J=@K0E-0!UV&Kws2 zn;$A}Q6IVreeO^Lw)u=|g_W|yLopYumM?o>fT>Ya_?kboOgl>cnc8C`%D~NAWIwQW zYd(O}zPP2y^uh+JABg2B##$S1meQ4|v8o0gDmIRwdn-2%nK;ect^m6t1F-;+rDNE+ zg75Oya;FlKZ+X7u$3QMh)~nwoT4~!3@6=1E+1Urvk?6n13Q*FxOZ}#M!o?;8Y*YoT zx?~~emcz}{q$IOf;xY^c1`oGJaUL$cP07YECp*~c5Jt<~5N~b`*EmdIX9mm;w>JUg zoc3Dkv0v5;`JrHmhf$qcr?ZoQ1rFzz)tcK&eEjz%G4R%KT?55i`Cae6 zZtmX3p{(nyI_1X4ea5Cu+KIH2PM>s=bPQX!io1W!zALdV5h$Miee75N6g!7zfmETJEd*3MxT3fi;len}Gk4!M%iQEBvJ(nU3>)1-b%;VXCVG|;D?dh^=PyN#h>0D z0?6UDkS(;W?__V_Fm%!So_8c>_-5;1`h`6OJV+{YezUZalY1(i3d?DJSjVqXknMG= zr|H#ECSIc4=~PB>$z*Q)w|YO?Nu)0UL8$8Y9W#4}ig+Wgjfe;F`BPAt5&f(TUHn93 zPgRefn7GX9l0)zrg*|6JMT=$*5HuzE^zMm2Z1rF!VwUuA+haEYq^z*5zG03pTS`>X z(lR*gPOb?W1gx{a2B)hzG&97p8P)sxHFDRcz7|7w?TR^dpd_u!j3+-Q(rdBex%_-f z8Cn{AHOD&(&cuu6H_y@+09%yv%y=}hfieh3u3C+Lgf;S2)0rYPZpq90$O6Xj9q*a9 z5&7H8tN3ziayj`SU~fCMql=Vdu=|w7z9+DH2{9)=64lnT17huEaKN4P5(yNk_rBe7 zsLyoy(auMvVCs))s^9W9vrK9unW>F<4d==WTfFN!4HAo1zPX0@*RGpi6LyE(~MK zydgjva4zL*yrEQ=l+_&P(5zD+VAhlzNO->00JHfzHK%0R6)kVqFSg4Sc&s@VBj&PYOV(|l~`aCA#asG*OV1EAsND--fMLhylEea zPP;4XtIAdH&c1BPj~WwwZvGd_tt9lVJ+h#|DP=#wt{5O0XX0Te6WevM_G~DXu`{Fj zuEAH%rCpVtdVY59Nn(G7me&Tl{Wh1J7Dr8|Xl1GdPY2RRin97i?^R^_p?eKyxNtFb z=j{4*#r&}ZvJT3P7JP^Gh{TMyr$%AqAbgFA1Qulwexl0@=*CalTg9G_5 z7kA}}d*oLA6raGtt%25+F}sHdRv`|7ja+W0OaoJ{(n%(XLfm@UHt0b9>=UiDFbH}etqI;@k&jh@L$1J86)!V=RnR-1j_PkrR=M(r=IKmqoy)Bg7} zr5bX!tK=Mhg(LZ?+0NMFbYHD(IS=OMUDi~jyY{wUg|0NL@&OJVucNz!IZ+z%FtHrJ za?^8cTYXZ?WwnldJTU^*q0JH_+NYFu0pZ!UQP;j5$eH&+r1$voo6WCtbv7&87CGm4V1?jw@EPVz!lmdzsZM;q0u02{(`RW zRu)qvd{kMj{WbF@CBL{e8L{B00@SX1=Un|pf-*8$p!mTnUuXtS!HnIA!%4P=T z3LDSg*N0}=OyE1U3ItefUn2JTxw)RD8M{u8+TGsJHWK?N+(=wDkBZdUdgqCgFPoI) zaR>K@U`6z?LVtIHfsy*1UB7CS5Qsn~&-9v%Cu;DktGD(y4pj&w7gfQUWB1Nl%vrnD z43^fcB`kWMCL&aI`hznwC^j*`e&AT~^_;H5g1^UVsb0(XmT}`IeM+A2>3Wm|R%>=&ZZk0*vK zdL4B?R%@EbII^W_;tw8Gtl{=Jn_E1#N1_@J)sN?jB$Amag8HexJw_2L*SQLfH)viw z3W*vhuDU2GGJ6Y&Rnk($sVNJ!gFUZC3L>s%pKg7hlGI^tTkkRKRZ2|i85E&%-A|IQ z>ZGD!i$KVI`%Pzq>Z6G8tt@R16MNRnPVdjBOl(JzojYkpD`t9O@_!-)agxg8Dl-m! zsSR+ z`bbs*r~k_JDRh__F+5>mLbFn9$40Maxc)*pc?CH4%lLTEWz3x3c{LXQ;l~>?>$0+^ zTX3Tq{h~>U{F5D%o4wo%$+#%u`cM*9mp}26y_|O0{LX!D086)xCYH`2>K}HQ?dRZH z+fUNGt_k)@Nq245dcmUoW9Jn&kCpp@l^n}?y5T~vlKz(cspoq`{5e)STx4Wpd}Ao2 z1ZN~&v%~~;%1GMbWEnTp@5*1GRb*qyoev@FCq-dpv*WRXm@K{WyQbKv=d7UaH2-|s zB>waogA*%)ne8YTr-Txj+$nr2e}<>n_0lR+w&2qS9YB#%E}Fy!F(_xrIFhEyGeKyu z!rO(t4%^-Bo#o#xrMh=s7-r)vy(mz#8tu^A{^B+3ckZv;b~}_>_COEC$sw^`ewbcX z77Q9gCSw$~|GSf?U1^}>0;NG*_c@zf9-!Yw_qUt1_cP6-EA`E*&a2fbV;uXIY@>1! z?Yn1tKZQ1{R%!%ku4%NK{QQqLNc<6Gx@Ah8eb^Vb;yEAdeDmUnP`j>KSMR%A zg|BHbgc7(U#M$~YFe%bjY_GGD65pD29jTUVLZClY@)quMc;uLhEx7gxhv~7YP5^xr zb=MN*6~{{)6zjm$^6rHBRtUY*9lTb{Ss~f!{@Ib0pa)6H_Gs)zBHSw=n@dk=yLCKC-*Iv}Uhbwsq_M z9w%H^K5>n z0k2SQGHa_gqH$HX=`z}PFo~b;o61ylOHv<%ht#Iw$aaqGeT|$90Gx9F_@)=nD8+&A z-QnMI#UpQ&mz0&h_XnHx-m^rCL$FEtm{(Gw5_zW>PY%*2wMUw91j5QbHnrB=YZyV6 zkcvtA^t8*|%nATLW3!LP-1DPOoP53+#2#1oZ+JbS3GTean@ID4V^>7q5whCN>zZ~o zfKtQLPT;r?HgTs+99fJ%Elx=aG_(LBl)0i=W$NTrYVTTUrXki>C_z6NGf*O)nZAa@ z5*`0rcfIni_7#)Qh3q;7EqEQ-qtp9x8RmSbF9z!nXYlr$%z{;IsFcncgMK(d5zWlC zcD9$S>f3g@iQ;FC3y%ENY%JLYug1k=G9!96cxERA!n1PI<$>d2qv)XAhG`xlqoV_M zcVU|&wvPz<(-9IzHk)}WGB3-LYYyB6S7Aq_N55C^1#0$lwnd&Mg#wKl?f7rU-;f7= z`pGz?AiwW>>zA*#H@$~9)GD*Kexz*wX&Q%24z&%*GZct@{QOoq>RW~C zM9GY1Os_FOi>_lGBf;nZ_wi%LoA!gGtpI?JoDowLoRXab$NK>>HybMt%8is;D9*P| zs8f|q=f3l*uP`Vm(;Szg2EZVt3VMt46K{2t8r#-zK%0_GxSim7r^khf&H937o$D-L z=Ilqxb$-dD;X+n)VVi9CMtiOXcYH}{`0`1l=z0GR!KX=GJOu2h3)IV<#sk>Th83>L z4p4w;>(NbDr-4JoQu=4&lhAA*$W6uFZMT5Gx_P_|6_G#`(Lz*bN!v`2|X}C(`$8JB6slzMLaQaJ`Im}EkuOf0TTW-Dd@_Iq%F7h~F`njFcyu1@ zv!cTH&f0D~qL9GD_hKQvGZS^ST`#Ks;+3@brPul}Y^qa#JC_m|32vv4B{^7h!K8!; zw#>{j6edS~{{fb?nOQo0mgny}R=ugtP(TP(bD7rgTdzm2^HL2mIzKMh`$7@q(JkhN zIOX)C70cwEABI4XJ-~2?1m*#bh^buHNU91{za+$+JEplz^Ak4hrd+N?SOVp26eQG5 zTkt{86iQEbJO$=QCNmtDxH?wX5z8M?+(Cy2CAxUGmH-kh)>kjUy2`dc1W(lvq&k2; zRDXDQXl_njEOXypK6kd`hTi;HdkV?NBd{g1YQo#$mU4ZP>MpGQ(ZtF$s_*h!|3lXO z5BAzkyn)vvfL$h_2)!p<5Sbc#axe~6BIghxkyGa)G*7`4m{QEsq%w>O!mOmd$s^Tk za~U78ou660F*kgO{hnexa9zerbE})d_IMijl1UaoS` zO=Z^~3DjK1xe?P4!Y%Cxz#fGCWphQzoQ|$*l|?40>8^H159S)$RcYe68vnjZa)}NP zV&UIjG0YHdb-8adHj9%5r-v127hm((%&j(^zH#1pU#LX|p_87iV0rxe>tzLJXl{S) zs4eWI3tg;QBqM!CS~@6}F&Q_oD@+YIz|)UXh0ZcAACWZ{*^2A0bH!Y$z!-1u<-1 zBAT1)y>b^E8j5U|y|y^+-R$KPa9+j7N>!MkZ*Yo}5VzeQxz8QwaQItuJ|fw7fE3*v zF;vT|7kv>!iS@Mxe~+|uwW>15*S;GuA_p$Bd+VsNv*t9krDtRF?3cJxz^{tMZZy|; znc|ff#DRaqFe&0?qkRw8rlQ`a>gDFVC4~OesC=_r3AA&}vvb7v{kIHV>E{{lG3%g? zqga3HA5`!~-(!e78woEe5quv47%pTY_t^qtHUodUYXkad0+6cq zE?@_=$uEgEj4b)7vE(w{)-Ju+;>J=1c>TQ2f9^N3qJ&Jm5s#F+^Bl?&SvjlfiM^j! z1etz1FxOUwZ6o^2YJCx__YFOHb26`N>+gG!rbcgVHN(rj-`X%ktBmtI`(>}Mqvz32 zpnlNSEu+$XWM8vcF9RoZb#bf%AVN_|L2JXyp)3vjh-sH@w`0jxts=pjxRFhx%ycW* zSsBthdEt6U;WWLgSAiDelbL>*I*l?le1Eh-&J5!ek@{9b(-0|2B~2im8F+0YR80?K z+Uds*N_f7DvN83V0N9lTSkm7BW`)4{(R`|A>vC;%o}2rGs4XP#yCrzhmnu`ZZtQ3ib@M$&%QpCSvL9*_wY9-3*L6F;M_8OSYAF zaY}_QiLPes=RR4@>&#As)y2O(%v06@Bz4^(vT%zFI%e^fBlTwPU>n!h`4tNyoupN& z9y2GG+3l{gfs6^N6+%D!EKO~BB@+6nK_3rNC-Jy{#qV?l;?!iW< z!TZaRCStvOt+#XJ<+^U*_X5X2P|1(o?GQSto})s+n5@V0xDPvf^JTq*3V|WfCVu)C z4cW|Y!ZywFkr4B;z^g}+<&maJ@L{s{!K^l31^*%NJ&=HEbGrZSqIJ6aRQ&;0{XwyH zJ^miMLq(~L1ut$ZDkzvNUS@B4K_N?5FeiYs-(qVJl6ZqZ?jst2Ac{=RIP{yS(h$!k zQc98rC=Ih4O1i8Pz%cBU`Rr-v{k_$A$SaA*Z!t+IGTywep4r+Oi7$YjNcJw8KglPW zI(rmvp`$yaEqd&sO+Ge}@m+KU|6?F19P{iLi8L$Q+1mAMS{l4*ebyy^WhKjkUW7VJ z=y1Kuw58$j_b*|XMunHa`k))N&63wVWO2lmlCPm-*7Fk7kCZ8{d83hm9Q*xDlA;<= zX=Y|xfLZ|Tv)P6aWxrD06D6%8Z7Wx~N?IA@I63-S9hi*0x3#X~=Q6^GJ`soC9qi6q zQH$CYe8*u)yHn|RJZ>VBEA5k0khMLyO_c5+Wx&?n3in3Y@_UqD^!M9!?3!S4btSZm zWF(iU)E2&52h1YLg%SzzE$*R{wo&dagO+tjON~+IcAcTVe!qjDkYq7W<|(=QBD(sJ zmhof*#JQai420Cly@IDIcF6f?azpCZSm(j23A@p4yz(tpJUO9CmXGnf{BgltRIRnV zlsjrIcVrR~xpVPwIq4j4Kdf8``QxQ)J2`o{m~FXQ-IH={0|9|?&?OJuMkjLZEeGV0 zcZI6hJ;iSeBHW%$6vtM0K&i&=N)&wa-KxX@cF%;?)0b$F#8OQEpMp6*5*FFFAT`ZN zg-g-tc6|v$ae^ppZ{y__O}XsZdE5wwb)(Fz6)8CwL7)Ua1R0f;-0_>5?#8CSm!9wS zb%|bc|5O4Tu-(rdD7k{)7B~d1#>J{{ITmAR-}#LCIWPHb41*Uni}bm?6BE82l-PSa zbvHa+9bF9lfJ-RU<<;)EUH~WW8ypV~6EPazo#h1@DGqy;X#7O8nzl+*7Pfsm{KArL zvpO@xc-(Sy5N&oMVTgUpAk9g@uAIfR28%+PQu~87VI$$Nt`%Xc)v&%)t!!}WX8_F| z5e_S%%z^JNp45>4{(jyYLz91N)#ouUFhc}t%MEnB!a%2-(-N}y8VU^wy{fmW>+$?T z6fOx{OYwC+y4!6Yz<5_%f(ss}*8p^nUoLc?l35oOO#Oz;`Jb(G+dMzLW!l^PXLdI+ z+s{whmYA8&?drPr0az@ski(eb#uv=^uIgXBa;wad(lo5h;r6u8QJ~^F)af{M9P!HJ zG}uY7wj4Z6x#XXBktF~u0o}-`=P#?@nTYCui!K+MgY3irkewGGdka3z!H2Wpz&IuO z%#RH4fPJL*PGGeY^myYu`^F{a5zW(sfG#;L+7T=zDy|1sgGKR7pkOw^sU5{jo@b*2Pj|kpw zvC?4p+a-UW8_`$X85s$FuUeA8F;$$NcJVms7JgJcUM{aR*X}p&Ve|R)w}-Zw;0QtG zd4u^@(xT%~ZO!Jj;9qI(i95xRJ7(@EU|Q-6KgH*CpdYh>Kn!o-sp!C6A2%<@t#?L; zz1zbRW)@qAr8}CGRmyWz8RKP}%9psMF0qw$)R~jCKLUH(^XPeCdppXaWC%%BK38gy zHRhYM5t=g+8Z!|yf0GdC-dkiy+P-~Gy*=0ec7m1kP|@IEsG91X$BYFofxOwW8jRNv zW{i9GE2JOz=n;A3Y=qj981u1vl8PsPVmv#x}Dyaam!7llggvW%?Z zi$GoGO(OVwg!EyvdPsbuvXT;n=_RDTQBHz_y=bzt<)?)4DYHJ>0HaUaW9#nocCfRD zXE&@b{JTk>&ULb(P*u}f0r%N9?h9rf{hW__yZxaZ0&TB?y?E*NBOxwI$ZpU;g@WgNa#pP>{^q8P5%7b61Vcm-b%=A(L~< zwW!-Km=v4$_1EuOE!IipspU_;W_VxE?E~tEhtE&AmczYgUgCBBGtzc1P0R9o$zV&X zN#x?D&^&9Ifv%8u={ik|CSGv5QOBh~0x)uyG%{W{SH!{sjgS7EExqhJ2;OR5%u2l2 zBC=TS2)U9T&WuSDXv8OCm(OWpD4+Hg>H>BNB+6r3sC1hXk1=*CWx>aoxO%*OdShrW9h?J{`2XR8%=%K z=nKBjPOFhd{tZ_^xL!r}jWprnD~Ck9qK=o(KWtfu@=`BrDAcsJF@{Y}Q{a}8yq!6L zBl9m65+x)e+CM%%-rWT|Z!45?00666Wp8Q&6m%P^O zcUjC$deJd39b7gNT&8rdS@f7Td4z&A`#>Kr*IM+cJL|52*cB?E$n3$XpEg)9-3eRy zt?UmZD7&j_e9aZUzFls;u0#H+&nGhaynGl`_G1a@w(McN+skNfFP&sWL)45?ZMXMN zw>Zhu8giZho#Vk*b2&+t&CKPNlxXj#afRS2DgwWiLV=tcdKP`q5Y^NRXQK^u%md+M2OJ-F4>k%k;vsE4k-AS;nUNZp=S;VG>@q@=z-(vpPM zvfwj|J5#9#d1UqT%Zva9a_aFAVhaZL?X8uUKW_#6{6Emd|3zb{)w!;IVjjq*iBlOB zZe-SWjfijRKGwhRe&<)o+0XaoH^oLZ=Mlif+?$3dH%Sj!m!YCTnDo@_lXqIgM97xI zbvc^4leyeRX_$h=PL?+y6;xm%(^68Z=51143Y8TUaJ~z_+|c_Z%;(>?^NPJgg$>^` zzi8Qr8)dMZiF5U-==#QfX?tf$y*HW3Kp}O{}0Cp$AMX2oO9G5A>wD+1L!Y^id#|@zku)VQPz+WOcfA9g{{yGEx zh_P&asUQ=a90e=eFA(#YzeH2~oKW79dd0fWhj<(%Tr!>*U{w}0QjnZjJ(5gi`xT)8 zE2rY9fTU_r?D+WjPfcrLtxP|_{s+0ajQ0^79^H@1)H zR66%=WL#F5aHvJ+sTa3c5jNrj=7n=|b@h-%MVI{knKldbi4$hG)A0xm!c5Z|tJ5o! zPo>diNgkZti$;^^E)(l~9%V`**#_#JZ`^m*cSiUAT3-|>Fi~$vila=#wJN6jO|ny@8udzc#y+Fz~`4hXI~ z&UAALiz1vd-(QrMKI`8_zJ)n^JPN+XMqv-X>DzhD0VX&}`l>2BTUHMo4W#mLjV(yk zujJ2gPqgqS7HSogs9VN1y!l$8M<@(R2(-e8MJC6M2=>jU@|t9d^WIWcHh5Z2=WV_= zz(Tp~`TRJ;d>LqDzM73KAV4K?3P*=4!ZGpqzK4GCj>Qk=H@D}_Km03?D z5Fz-L2{@xbYI_yw4R}{SF1?Brs6GgHcO5@Qk)qV`DO6+FA4}&)D^&9J4ehW4Y!G$( zpZw72JSK=Q7s>tZaD=l#5#y#g1-W^E4$7UL7|g2w82#lExxWpRU}wK5Ver`-JB60NeZtue@is?z2mF;@h`fengo(rsu)IBgkBrr>+)$pop7GZL~Wp0}%9f zc9wxfx;w_E$T#~}_`|E5Vc{k^sbJ?qMB4L_tKVNJZm=D~@N>J!0{gDB-PkRE;P^jByc_YnsLuNA!DKp0zg|nGD_El*^M- zFPoU6o03ZG_28Y7MF5aBDIiHh+y-!R67;-2Ai9^xv4a5$H1o}^w-3$Wt8CQZI&bsI zjz`-8YWE|%y@eUfsNQeM;Y_I7{r<3vqhA`KTi!%~BR^iBH8wyg$7&jX(M8G*MTTdG z)eKE6wWXouM0AT@yjm6Qo|IYL;;me!p5{=mNSi%DA{PfKkPea`2%;yShF_$f*m(jD zGA~?UxFrg?<8*4n@J94FYT{>?f3ayD%>zzDzGON4z(a?wWM2IUdjFdD6$RiFPo4h0 zN??+Eij@Acu8@#=xsdzcVVwPU*C;FCP|kV+A5t#`c%v45#d;V|wP35Hx0|!8kM!h0 zq$hvhGGyujPBApp#Ag@9be%#)d>P>GQ#rTmX*S7vblwLF-;mlybs8jReo<=fm zp(W!oNMeKC{+Y>BWKvL&gx0_FzWYc)Zpi22?j05$1Z<3H-(5(HcR2K8qXQ0B^MLSp z!Dxk8St{UwryZhOGyxotXUe6goGb1VP2JH%iP36r+aIe44dzahTFv|1P5Nv8LIr80 z)L8sidH-+IL$=n&&ECFp+KTy3krO`(A@`Gb7%fg%uW^M68CC?~j{eB?E=(VF(Z9{(j)?SOA$|W+ zc1D>xkw}vZm{}9lFKWZV{M>Ex==BUyss&;@7ztrcmY1N|_rOSEn*oXbKZ|WD#%GHg z|19rEG3`rF6{qloB>LBK+|24@9Kli*Y;;p~dRHXA(OxYKlXNbqb#}CaiR1 zO}>Eo^>pgIK>f^IfGMg6D12;eY@T%H_>qh7@NoDk=>$23)!C|3;(LuW4!|Kp9=D6b zfFe0fHwTg$K@=oR{ia`>h33S?K|PEp^4!{5AO*MvBIZgLp@jiz4i3QprIuZRcI#&i zjCV{6cRkIu6Nre3hwboK+fIJA9(S~wRhN{M002H3tB;+^zU%EhxR7{egy-7OGYDw`C!tyvU|^<5aiN4xBl{EzgiR*uWE45cL7Ir=5X7GO;+V|G5Jdz{C9q%0?8h@$2Vpc)sR(d3#6bzX8!< z{?BtvK#0b_3q=NqUwgh{14yX;-2?<#8PefOw4e48jf%k9#w`-$3VJH!lai8?0rWDZ zB1SjK8XRNpdD)eQ{|KK5-a$z`pr_l=#8w$+T^jFDrpYAdlgk&)-NhlYk;clU3d)pVS8z@F}VDtZXVPQd5q=Wea- z)z#HLy6uy@7aoG?y!I@>00DSJf{>E3GR9TI&&zh54(sC8)^SLurMzHp^R`Y}Mh24` z_p80d)h8bEO#mnk=-1V2#O^-ft7@ZJ3UB}WMt^zaW}jOppi>2jiEqXG*VaB(Gg6>K zh39uCi%`f{AGUcT^y3Z==WF|ns&QIz=e+?=L?IWspCA1Sd`=M63t+?5%+<@Fpc#HN zGYi2yo38Y$pL+|W?Tm`B#>sruk2rX)v>y~}@3TSl-2Tl}LHf+Y|W(r4!G`0s6<@2CAq4uhRdp-?MO98W~Y^|C4tgZA1_%2ukuD zH3v}E+oir?%hr|cy=JwtljkGbIwZuz%zE`8GW-9l{TEabJse=LWj$oFl1DvwUIdQe zEksE4tvIkH_^s(3Ac6d8^5?hK%4h_KN`zuTi%XCuGGJSB1c7$5xX%|sqQU>Wmj?B; zmj4(Zv_|$n!UVWN|9uo20G1)kEh{Sn5b(;2%8ph5fQO^yo(jn;Knte-yMVc1+I8VC zn{EN1%Z#)UIHt$PRSgY0Z5JB==J5vN)d9HT=O-LCg5iNTS=-yQ?h{>B=(pOfwCNl` zOe*v8@^W%=mi{sJTz$U~s`^{Ff31JOH~NPr2goMqU!pdM4DSDk_J5@n;eSgq5R>um z!ono`&+}COFXQ?D<3(ZkBqW7&gJ!iT4U0BBdlj3uYc1=bs$Ze#lH$ zT6A80Oc8h5MNT%Cr)Tyz7MCg#7MGH$>`-BYT{P172W!Fr^kYzLRu)N@Tf?i%=AEpK zhAP9NJqU9Zo}o{5Wo67gEo>RF?AN}1?L0cEu+PO`RXce>65621m>6f`NuU*LhU+`+ zDh}Jr{NF^v5Fwm55MNb|_hqzi9gz{7V@1DrcES?14P;mR{`^7_51Y2y0va&v@M-?& zD&K8XeF7VpiSox_e!M$BPGLH_Bq{ra@kw#Z0EVhn2+d0H?3OMIr4TP;{c2@#nNNZK z8JPW!uCA`lWcKpYQ%3;%os#mlTs6tS@7A=7ZS|~Fg!H=ayAQ@^&7;dojkl9~vM;%P z>b&|H>+Y~L*r8b(zsNDgO?oOo38)R;$uL5x6J{q^I#HKy#zfb4-FhbxW96MQ0G=Ka z5;9jgbb-kS^h8ec`9Znop7^{kW93eq+LM)h2mcC4y>Zy=k9(%mT>S?;o(-yd*XF{+ zwg_UftR*~*SfE0{f19TR)!lsy)H19An3z21H3kMi$eYjN4_Ixa?Pr6Gjs{l)fUe1> z*9*Md0em@liim^Se?qGYohtpC%ObUu8H%5op(AHHIqjJYf*5dcYOVxCM0rQ%wZKxi z7>-Rl(e^{enNxA(bG&x$B_2>pci-5acZqIpqC{li0CNuR4}qI<@>(UC&hAtvYNB@; z?bhna_}m3EuntN?nws5Z{vMGqJQZ1yQYIlO=}sfum4R_Rq@-1U?!a`|p6Eco zq_wpbU(?`AkI|d_VEVi}03_aiv4Pn$z=MD|uo&oUa7h~=0?p5zg#$#O$!=HE>OYJC zr&bSi3A;R~hb9xp#)Q?*?Ue5d37~_*k-?wx{n^U+`|~BdvZq|?M%%?+e{EHYOImAU z@wD}RYA57W7%GBX{*z|$lCE#*drW4XG&E9Z)*?Vqe1Mrnf}HIC+x33r#Yp8W!2#P( z=kpO}Kj~l6DrI==79=_#cq$jeR2DflWWKPxlZUDa<$NWO;ee^IOy7yVzvd_rl>1Gd4A^Hhl z3n)@xZW={S-=$&Z5^-5jeE2}N{NRQMCi2jE3LPy;0sziKf; zzzew~OBpn0!*gT;(A(?`<;#~Z1FChyW_>de`=0;@#4inZ=Q4vZll-!>32M${GV5t z9TyYwz;=Am2zUjy02mAw7Va>EtpkYC{r&x$oB1DGdyK$7HxAs_7%wz17)WC9S^)wU z1V^~3EtA_mTUn-^+sObDvYB_Rl(e+`-kY{>kx^047}0qjKy>bZfh69h(KL*5pbm4-w}(Ii)GraZ zH~O-ssCc>+RdF$E5}Ew2UmpYaRTdg-iO5Y%OoBuZV=5aP-9LUL8(u^M3;=$9eh!Yn zH!+~MKp+|DhY&!xgBSY%5bxbL+z3+(i!jWe{u2vrp3VkkNQowyctj2%p`p_MR92H{ zSdS8T18G9<)!Qg=Xedx|qHp$qaBqK~2v}VR2nHOsi9iX&&$Ehhu=L_;Ujeb-l<)W@ z839X!9wewBa!>KU|-bc+l6L=q; z{fi8}Lk*>3=XFG@`qgMivmS1(x7V-|lnwc&V|Gfbx%-t)TJgT?u z|Ez088x^E_bSp;c(?P3dq zGUGB$Dn{GwO|~&EIcZ#SFPEp>n`%a8vP;Yn#S9ZO+pQT)$(%KvAI|v)&hzZ|*Y|ne z^}cJZ&*%I3eAjx{m&Fo0q!hS;-leTHU=OA3^DP>-wzTYw(A~CeJWqg~PD^U}{GE>3 zvzi1YQ#*DwIeC$qwT*^l{cT0*xZURd^z7+iVFnThC2G!Dj^LPRCUc(8>8wmI{o9G@q> z9m#zpCTwjkBpsQ+Zi?nsP+sx`m)8fRG#YR)V`aqf3DcfrZ9yDu1&_Qot|KP)377Hk z=R9wR-^EG~&|FcNPjE~OzOFX5s7e|bE^EKm!aeRysCoA3c}7M?be=YLizdBOBBWy4 z@>4RVYS+~$QTT|v$tAs+nRZmOByHGH-81`Pj`m4%LdbiAZl)0hY1v8K91{>u`H#OS4==#a0dV`u|m zK6UX{+Iza)&Mx6x@B_EeO_9#oENRwi^NS!j-TddT>=FjUd5#|z7dbD=ceR4;u>%M8 zz_LiFHpv!wap}H})(;m--y&V6>6{9OgrFcw2gZ9tZO?6ZW8j=Y0I$O2L$l2XbzO^z zGsKaRktwy1Q!;y3@3!`KheZvn%#tTNvcfZIwe=Nc52jxX55LoP4Tq(tZ&-G%Y1Q2O zD*LzkQ!NX~<3(hGC$f`>$TU}j^O|srwo6A+Th~8`#@nxYGrM7!O@XhbSo@5<3HplhFO^ZBKAm>4m zUwju+KAw(h2wd;6T;at4M#b7SvFNE=HX8m6HxoJ^D#uz|H-rX2 z>S0Q-i68FRaB0b0u*=;0t0lP?p?%!yB}RmKczVNbnJzk!a-IIJG9>Dv(;J4BwRJa! z{iRyyH?bJhD`P_K2f3G@gnHhAOyAX?G7}q{+Kd6zADbyWhI*<@13l2F*1NzpJnLkE zBzY{V!OGwY!EU%DJmC;Kjqh6Qbr>nKiP|YV>{4lwEnqlCFP(2@2c{69<1P9(#>U0~ zS9GmsNsFue{KI8WuUTjBUgVruFlHCYlpawF=z|5tq{5zC4SYU-ia*q?zFC<}QNYCU z)%V#}-sV!+Pbw;zdUgi@S`B2--o(U2v8KE}_+<-n6)3^^`FVwU_0#al#R{V`d;K!I zz&%g*Tc^3LY!>t0VES!i+Ge_%&LH+cPQh1Z>`sNr^Tm{30wfO#*RSVnzgl-G6kXOZ z`OXfu2c<9^TUwBf;JN!R>P6=0!290J%~{$7E^XM@TC?MjYJk5i+@w@_}IQfGwrV) zmJ#Mg=h_Juu=oM0!2A93RMN2i9;`%3;ci?$VZ%ag#@d^kmq4zkH{xpe;Nbu-t-9mW zlqsuH!jTrnpI}xA`f&#es(0AsHIyGXIPzJ*fUbYep5ADBF1VIoB%fxshg=CL*5tTzpMP9hfnd#xrFVpz7Ias8(OO`C2 z9|vMPO`6Y&)M1gv>V#ST2sAXErmguML3p2BV>6ZPUb>$JDt&%bmZKlq?pyi3a5bC7 zo2)!&X_?i2$~vMWUrQU4&<_`AQxR>{WrIKbpR6f)uFz60uIT&sJ`);$WnI619Z%@u z6^|$9kzS9FMiS08e4D%WlU2^=#u1t_E^Q_(CI&5HtA*H9Ie1Tad7}o}t?lQ;oZRx) zr~@@Qtf!nYX3rLSGk(oa*b`%N7ush^W_8@xRCFKwq0D;$Zq&n`!OzJh>=rIrq@kitU`^{08}2kYP*;>4#WkImGm_zIQa(`(6;t{ngY8*nGJmSPtY zM?)J=SHA}Y)~|dXrmuBS#RM|>Z6zJbg`72-HYxw%<$O}>Uz;2+IDz9E9hJvXi${#> z&r~}(IbG|%;Wy^9?r0D< z@nx@q>YvBwr^<$2Gq>uk69I2GlvQxHq^YB$xU^hiNIiG6Y)9O(L@H(S=fUZqg5biS zg1)$w<*3Jc emp_mean[1]), @@ -319,15 +319,15 @@ png(filename="electivity.png", type="cairo", units="in", width = 4, - height=6, - pointsize=12, + height=4, + pointsize=10, res=160) -par(mfrow = c(3,2), +par(mfrow = c(2,2), mar = c(2,1,1,2), oma = c(2,3,1,0)) -for(i in 1:5){ +for(i in 1:ntypes){ melt_elect <- melt(elect_results[[i]][, 2:4]) plot(melt_elect$value ~ I(as.numeric(melt_elect$variable)+ runif(nrow(melt_elect), -.1, .1 )), @@ -359,8 +359,8 @@ for(i in 1:5){ } text(x = c(1,2,3), y = 0.9, labels = pvals[2:4]) - mtext(text = types[i], outer = FALSE, side = 3, line = 0) - mtext(text = paste0("(", letters[i], ")"), outer = FALSE, side = 3, at = 0.5, line = 0) + mtext(text = types[i], outer = FALSE, side = 3, line = 0.3) + mtext(text = paste0("(", letters[i], ")"), outer = FALSE, side = 3, at = 0.5, line = 0.3) mtext(text = "Electivity", outer = TRUE, side = 2, line = 1.5)