From 733c3acdcb0512b6737efc1c142aa26141cd76ca Mon Sep 17 00:00:00 2001
From: Kyle Belanger <kyleb44@hotmail.com>
Date: Thu, 12 Oct 2023 11:26:16 -0400
Subject: [PATCH] update site

---
 _site/blog.html                               |  48 +-
 _site/listings.json                           |   1 +
 .../line-graphs-and-interactivity.html        |   4 +-
 .../figure-html/unnamed-chunk-7-1.png         | Bin 27842 -> 27979 bytes
 .../figure-html/c-g1-1.png                    | Bin 82970 -> 81902 bytes
 .../posts/2023-10-12_DHSC_Capstone/index.html | 420 ++++++++++++++++++
 _site/search.json                             | 311 ++++++-------
 posts/2023-10-12_DHSC_Capstone/index.qmd      |  21 +
 8 files changed, 641 insertions(+), 164 deletions(-)
 create mode 100644 _site/posts/2023-10-12_DHSC_Capstone/index.html
 create mode 100644 posts/2023-10-12_DHSC_Capstone/index.qmd

diff --git a/_site/blog.html b/_site/blog.html
index d64b164..1c88b94 100644
--- a/_site/blog.html
+++ b/_site/blog.html
@@ -156,7 +156,7 @@ ul.task-list li input[type="checkbox"] {
 <!-- margin-sidebar -->
     <div id="quarto-margin-sidebar" class="sidebar margin-sidebar">
         
-    <h5 class="quarto-listing-category-title">Categories</h5><div class="quarto-listing-category category-default"><div class="category" data-category="">All <span class="quarto-category-count">(9)</span></div><div class="category" data-category="Distill">Distill <span class="quarto-category-count">(1)</span></div><div class="category" data-category="TidyTuesday">TidyTuesday <span class="quarto-category-count">(1)</span></div></div></div>
+    <h5 class="quarto-listing-category-title">Categories</h5><div class="quarto-listing-category category-default"><div class="category" data-category="">All <span class="quarto-category-count">(10)</span></div><div class="category" data-category="Distill">Distill <span class="quarto-category-count">(1)</span></div><div class="category" data-category="TidyTuesday">TidyTuesday <span class="quarto-category-count">(1)</span></div></div></div>
 <!-- main -->
 <main class="content quarto-banner-title-block column-page-left" id="quarto-document-content">
 
@@ -169,7 +169,35 @@ ul.task-list li input[type="checkbox"] {
 
 <div class="quarto-listing quarto-listing-container-default" id="listing-listing">
 <div class="list quarto-listing-default">
-<div class="quarto-post image-right" data-index="0" data-categories="TidyTuesday" data-listing-date-sort="1614315600000" data-listing-file-modified-sort="1697115484734" data-listing-date-modified-sort="NaN" data-listing-reading-time-sort="12">
+<div class="quarto-post image-right" data-index="0" data-listing-date-sort="1697083200000" data-listing-file-modified-sort="1697123995301" data-listing-date-modified-sort="NaN" data-listing-reading-time-sort="3">
+<div class="thumbnail">
+<p><a href="./posts/2023-10-12_DHSC_Capstone/index.html"> <div class="listing-item-img-placeholder card-img-top" >&nbsp;</div> </a></p>
+</div>
+<div class="body">
+<a href="./posts/2023-10-12_DHSC_Capstone/index.html">
+<h3 class="no-anchor listing-title">
+Reflex Testing using Machine Learning in the Clinical Laboratory
+</h3>
+<div class="listing-subtitle">
+<p>This post contains the abstract of my Capstone for the Doctorate of Health Science program at Campbell University.</p>
+</div>
+<div class="listing-description">
+To view the full paper please go to the following link
+</div>
+</a>
+</div>
+<div class="metadata">
+<a href="./posts/2023-10-12_DHSC_Capstone/index.html">
+<div class="listing-date">
+Oct 12, 2023
+</div>
+<div class="listing-author">
+Kyle Belanger
+</div>
+</a>
+</div>
+</div>
+<div class="quarto-post image-right" data-index="1" data-categories="TidyTuesday" data-listing-date-sort="1614315600000" data-listing-file-modified-sort="1697115484734" data-listing-date-modified-sort="NaN" data-listing-reading-time-sort="12">
 <div class="thumbnail">
 <p><a href="./posts/2021-02-26_tidytuesday-hbcu-enrollment/tidytuesday-2021-week-6-hbcu-enrolment.html"> <p class="card-img-top"><img src="posts\2021-02-26_tidytuesday-hbcu-enrollment\tidytuesday-2021-week-6-hbcu-enrolment_files\figure-html\unnamed-chunk-10-1.png"  class="thumbnail-image card-img"/></p> </a></p>
 </div>
@@ -204,7 +232,7 @@ Kyle Belanger
 </a>
 </div>
 </div>
-<div class="quarto-post image-right" data-index="1" data-categories="Distill" data-listing-date-sort="1610427600000" data-listing-file-modified-sort="1697116059113" data-listing-date-modified-sort="1697083200000" data-listing-reading-time-sort="3">
+<div class="quarto-post image-right" data-index="2" data-categories="Distill" data-listing-date-sort="1610427600000" data-listing-file-modified-sort="1697116059113" data-listing-date-modified-sort="1697083200000" data-listing-reading-time-sort="3">
 <div class="thumbnail">
 <p><a href="./posts/2021-01-12_blogdown-to-distill/creating-a-distill-blog.html"> <div class="listing-item-img-placeholder card-img-top" >&nbsp;</div> </a></p>
 </div>
@@ -239,7 +267,7 @@ Kyle Belanger
 </a>
 </div>
 </div>
-<div class="quarto-post image-right" data-index="2" data-listing-date-sort="1595649600000" data-listing-file-modified-sort="1697114923312" data-listing-date-modified-sort="NaN" data-listing-reading-time-sort="4">
+<div class="quarto-post image-right" data-index="3" data-listing-date-sort="1595649600000" data-listing-file-modified-sort="1697114923312" data-listing-date-modified-sort="NaN" data-listing-reading-time-sort="4">
 <div class="thumbnail">
 <p><a href="./posts/2020-07-25_diabetes-data-collection-and-cleaning/diabetes-in-rural-north-carolina-data-collection-and-cleaning.html"> <p class="card-img-top"><img src="posts\2020-07-25_diabetes-data-collection-and-cleaning\data-cleaning.png"  class="thumbnail-image card-img"/></p> </a></p>
 </div>
@@ -267,7 +295,7 @@ Kyle Belanger
 </a>
 </div>
 </div>
-<div class="quarto-post image-right" data-index="3" data-listing-date-sort="1593057600000" data-listing-file-modified-sort="1697120858345" data-listing-date-modified-sort="NaN" data-listing-reading-time-sort="8">
+<div class="quarto-post image-right" data-index="4" data-listing-date-sort="1593057600000" data-listing-file-modified-sort="1697120858345" data-listing-date-modified-sort="NaN" data-listing-reading-time-sort="8">
 <div class="thumbnail">
 <p><a href="./posts/2020-06-25_diabetes-prevalence-in-nc/diabetes-in-rural-north-carolina-exploring-prevalence-trends.html"> <p class="card-img-top"><img src="posts\2020-06-25_diabetes-prevalence-in-nc\diabetes-in-rural-north-carolina-exploring-prevalence-trends_files\figure-html\o-g1-1.png"  class="thumbnail-image card-img"/></p> </a></p>
 </div>
@@ -295,7 +323,7 @@ Kyle Belanger
 </a>
 </div>
 </div>
-<div class="quarto-post image-right" data-index="4" data-listing-date-sort="1592798400000" data-listing-file-modified-sort="1697115048321" data-listing-date-modified-sort="NaN" data-listing-reading-time-sort="3">
+<div class="quarto-post image-right" data-index="5" data-listing-date-sort="1592798400000" data-listing-file-modified-sort="1697115048321" data-listing-date-modified-sort="NaN" data-listing-reading-time-sort="3">
 <div class="thumbnail">
 <p><a href="./posts/2020-06-22_excel-data-multiple-headers/importing-excel-data-with-multiple-header-rows.html"> <p class="card-img-top"><img src="posts\2020-06-22_excel-data-multiple-headers\example_data_img1.png" alt="image of example data"  class="thumbnail-image card-img"/></p> </a></p>
 </div>
@@ -323,7 +351,7 @@ Kyle Belanger
 </a>
 </div>
 </div>
-<div class="quarto-post image-right" data-index="5" data-listing-date-sort="1581570000000" data-listing-file-modified-sort="1697056704620" data-listing-date-modified-sort="NaN" data-listing-reading-time-sort="11">
+<div class="quarto-post image-right" data-index="6" data-listing-date-sort="1581570000000" data-listing-file-modified-sort="1697056704620" data-listing-date-modified-sort="NaN" data-listing-reading-time-sort="11">
 <div class="thumbnail">
 <p><a href="./posts/2020-02-13_basic-who-TB-data/basic-exploration-of-who-tuberculosis-data.html"> <p class="card-img-top"><img src="posts\2020-02-13_basic-who-TB-data\basic-exploration-of-who-tuberculosis-data_files\figure-html\unnamed-chunk-5-1.png"  class="thumbnail-image card-img"/></p> </a></p>
 </div>
@@ -351,7 +379,7 @@ Kyle Belanger
 </a>
 </div>
 </div>
-<div class="quarto-post image-right" data-index="6" data-listing-date-sort="1581310800000" data-listing-file-modified-sort="1697114568395" data-listing-date-modified-sort="NaN" data-listing-reading-time-sort="8">
+<div class="quarto-post image-right" data-index="7" data-listing-date-sort="1581310800000" data-listing-file-modified-sort="1697114568395" data-listing-date-modified-sort="NaN" data-listing-reading-time-sort="8">
 <div class="thumbnail">
 <p><a href="./posts/2020-02-10_line-graphs-and-interactivity/line-graphs-and-interactivity.html"> <p class="card-img-top"><img src="posts\2020-02-10_line-graphs-and-interactivity\flu_surveillance.png" alt="Example Line Graph"  class="thumbnail-image card-img"/></p> </a></p>
 </div>
@@ -379,7 +407,7 @@ Kyle Belanger
 </a>
 </div>
 </div>
-<div class="quarto-post image-right" data-index="7" data-listing-date-sort="1580274000000" data-listing-file-modified-sort="1697114439706" data-listing-date-modified-sort="NaN" data-listing-reading-time-sort="3">
+<div class="quarto-post image-right" data-index="8" data-listing-date-sort="1580274000000" data-listing-file-modified-sort="1697114439706" data-listing-date-modified-sort="NaN" data-listing-reading-time-sort="3">
 <div class="thumbnail">
 <p><a href="./posts/2020-01-29_facets-and-humility/facets-and-a-lesson-in-humility.html"> <p class="card-img-top"><img src="posts\2020-01-29_facets-and-humility\WHO_LIFE.png"  class="thumbnail-image card-img"/></p> </a></p>
 </div>
@@ -407,7 +435,7 @@ Kyle Belanger
 </a>
 </div>
 </div>
-<div class="quarto-post image-right" data-index="8" data-listing-date-sort="1579842000000" data-listing-file-modified-sort="1697052101192" data-listing-date-modified-sort="NaN" data-listing-reading-time-sort="2">
+<div class="quarto-post image-right" data-index="9" data-listing-date-sort="1579842000000" data-listing-file-modified-sort="1697052101192" data-listing-date-modified-sort="NaN" data-listing-reading-time-sort="2">
 <div class="thumbnail">
 <p><a href="./posts/2020-01-04_my-start-to-r/my-start-to-r.html"> <p class="card-img-top"><img src="posts\2020-01-04_my-start-to-r\my-start-to-r_files\figure-html\unnamed-chunk-5-1.png"  class="thumbnail-image card-img"/></p> </a></p>
 </div>
diff --git a/_site/listings.json b/_site/listings.json
index 244f892..824e3a9 100644
--- a/_site/listings.json
+++ b/_site/listings.json
@@ -2,6 +2,7 @@
   {
     "listing": "/blog.html",
     "items": [
+      "/posts/2023-10-12_DHSC_Capstone/index.html",
       "/posts/2021-02-26_tidytuesday-hbcu-enrollment/tidytuesday-2021-week-6-hbcu-enrolment.html",
       "/posts/2021-01-12_blogdown-to-distill/creating-a-distill-blog.html",
       "/posts/2020-07-25_diabetes-data-collection-and-cleaning/diabetes-in-rural-north-carolina-data-collection-and-cleaning.html",
diff --git a/_site/posts/2020-02-10_line-graphs-and-interactivity/line-graphs-and-interactivity.html b/_site/posts/2020-02-10_line-graphs-and-interactivity/line-graphs-and-interactivity.html
index 702fb44..180360d 100644
--- a/_site/posts/2020-02-10_line-graphs-and-interactivity/line-graphs-and-interactivity.html
+++ b/_site/posts/2020-02-10_line-graphs-and-interactivity/line-graphs-and-interactivity.html
@@ -332,8 +332,8 @@ $ fiscal_year                              &lt;fct&gt; 2013, 2013, 2013, 2013, 2
 <span id="cb8-19"><a href="#cb8-19" aria-hidden="true" tabindex="-1"></a></span>
 <span id="cb8-20"><a href="#cb8-20" aria-hidden="true" tabindex="-1"></a>g2</span></code><button title="Copy to Clipboard" class="code-copy-button"><i class="bi"></i></button></pre></div>
 <div class="cell-output-display">
-<div class="plotly html-widget html-fill-item-overflow-hidden html-fill-item" id="htmlwidget-c6890387e2fdea7c330a" style="width:100%;height:464px;"></div>
-<script type="application/json" data-for="htmlwidget-c6890387e2fdea7c330a">{"x":{"visdat":{"4b1839396125":["function () ","plotlyVisDat"]},"cur_data":"4b1839396125","attrs":{"4b1839396125":{"x":{},"y":{},"mode":"lines","hoverinfo":"y","color":{},"colors":["#a6611a","#dfc27d","#80cdc1","#018571"],"alpha_stroke":1,"sizes":[10,100],"spans":[1,20],"type":"scatter"}},"layout":{"margin":{"b":40,"l":60,"t":25,"r":10},"xaxis":{"domain":[0,1],"automargin":true,"title":"","type":"category","categoryorder":"array","categoryarray":["Oct","Nov","Dec","Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep"]},"yaxis":{"domain":[0,1],"automargin":true,"title":"% Tests (+) for Influenza"},"title":"Flu Viral Surveillance: % Respiratory Specimens Positive for Influenza","legend":{"x":100,"y":0.5},"hovermode":"closest","showlegend":true},"source":"A","config":{"modeBarButtonsToAdd":["hoverclosest","hovercompare"],"showSendToCloud":false},"data":[{"x":["Oct","Nov","Dec","Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep"],"y":[5,13,34,33,23,17,11,6,4,3,3,3],"mode":"lines","hoverinfo":["y","y","y","y","y","y","y","y","y","y","y","y"],"type":"scatter","name":"2013","marker":{"color":"rgba(166,97,26,1)","line":{"color":"rgba(166,97,26,1)"}},"textfont":{"color":"rgba(166,97,26,1)"},"error_y":{"color":"rgba(166,97,26,1)"},"error_x":{"color":"rgba(166,97,26,1)"},"line":{"color":"rgba(166,97,26,1)"},"xaxis":"x","yaxis":"y","frame":null},{"x":["Oct","Nov","Dec","Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep"],"y":[4,8,26,27,18,12,14,10,6,4,3,2],"mode":"lines","hoverinfo":["y","y","y","y","y","y","y","y","y","y","y","y"],"type":"scatter","name":"2014","marker":{"color":"rgba(223,194,125,1)","line":{"color":"rgba(223,194,125,1)"}},"textfont":{"color":"rgba(223,194,125,1)"},"error_y":{"color":"rgba(223,194,125,1)"},"error_x":{"color":"rgba(223,194,125,1)"},"line":{"color":"rgba(223,194,125,1)"},"xaxis":"x","yaxis":"y","frame":null},{"x":["Oct","Nov","Dec","Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep"],"y":[4,13,29,23,14,12,8,4,2,2,2,2],"mode":"lines","hoverinfo":["y","y","y","y","y","y","y","y","y","y","y","y"],"type":"scatter","name":"2015","marker":{"color":"rgba(128,205,193,1)","line":{"color":"rgba(128,205,193,1)"}},"textfont":{"color":"rgba(128,205,193,1)"},"error_y":{"color":"rgba(128,205,193,1)"},"error_x":{"color":"rgba(128,205,193,1)"},"line":{"color":"rgba(128,205,193,1)"},"xaxis":"x","yaxis":"y","frame":null},{"x":["Oct","Nov","Dec","Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep"],"y":[1,1,2,6,17,20,12,5,2,1,1,2],"mode":"lines","hoverinfo":["y","y","y","y","y","y","y","y","y","y","y","y"],"type":"scatter","name":"2016","marker":{"color":"rgba(1,133,113,1)","line":{"color":"rgba(1,133,113,1)"}},"textfont":{"color":"rgba(1,133,113,1)"},"error_y":{"color":"rgba(1,133,113,1)"},"error_x":{"color":"rgba(1,133,113,1)"},"line":{"color":"rgba(1,133,113,1)"},"xaxis":"x","yaxis":"y","frame":null}],"highlight":{"on":"plotly_click","persistent":false,"dynamic":false,"selectize":false,"opacityDim":0.2,"selected":{"opacity":1},"debounce":0},"shinyEvents":["plotly_hover","plotly_click","plotly_selected","plotly_relayout","plotly_brushed","plotly_brushing","plotly_clickannotation","plotly_doubleclick","plotly_deselect","plotly_afterplot","plotly_sunburstclick"],"base_url":"https://plot.ly"},"evals":[],"jsHooks":[]}</script>
+<div class="plotly html-widget html-fill-item-overflow-hidden html-fill-item" id="htmlwidget-577cfcde45769fdc364a" style="width:100%;height:464px;"></div>
+<script type="application/json" data-for="htmlwidget-577cfcde45769fdc364a">{"x":{"visdat":{"6590739375b3":["function () ","plotlyVisDat"]},"cur_data":"6590739375b3","attrs":{"6590739375b3":{"x":{},"y":{},"mode":"lines","hoverinfo":"y","color":{},"colors":["#a6611a","#dfc27d","#80cdc1","#018571"],"alpha_stroke":1,"sizes":[10,100],"spans":[1,20],"type":"scatter"}},"layout":{"margin":{"b":40,"l":60,"t":25,"r":10},"xaxis":{"domain":[0,1],"automargin":true,"title":"","type":"category","categoryorder":"array","categoryarray":["Oct","Nov","Dec","Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep"]},"yaxis":{"domain":[0,1],"automargin":true,"title":"% Tests (+) for Influenza"},"title":"Flu Viral Surveillance: % Respiratory Specimens Positive for Influenza","legend":{"x":100,"y":0.5},"hovermode":"closest","showlegend":true},"source":"A","config":{"modeBarButtonsToAdd":["hoverclosest","hovercompare"],"showSendToCloud":false},"data":[{"x":["Oct","Nov","Dec","Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep"],"y":[5,13,34,33,23,17,11,6,4,3,3,3],"mode":"lines","hoverinfo":["y","y","y","y","y","y","y","y","y","y","y","y"],"type":"scatter","name":"2013","marker":{"color":"rgba(166,97,26,1)","line":{"color":"rgba(166,97,26,1)"}},"textfont":{"color":"rgba(166,97,26,1)"},"error_y":{"color":"rgba(166,97,26,1)"},"error_x":{"color":"rgba(166,97,26,1)"},"line":{"color":"rgba(166,97,26,1)"},"xaxis":"x","yaxis":"y","frame":null},{"x":["Oct","Nov","Dec","Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep"],"y":[4,8,26,27,18,12,14,10,6,4,3,2],"mode":"lines","hoverinfo":["y","y","y","y","y","y","y","y","y","y","y","y"],"type":"scatter","name":"2014","marker":{"color":"rgba(223,194,125,1)","line":{"color":"rgba(223,194,125,1)"}},"textfont":{"color":"rgba(223,194,125,1)"},"error_y":{"color":"rgba(223,194,125,1)"},"error_x":{"color":"rgba(223,194,125,1)"},"line":{"color":"rgba(223,194,125,1)"},"xaxis":"x","yaxis":"y","frame":null},{"x":["Oct","Nov","Dec","Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep"],"y":[4,13,29,23,14,12,8,4,2,2,2,2],"mode":"lines","hoverinfo":["y","y","y","y","y","y","y","y","y","y","y","y"],"type":"scatter","name":"2015","marker":{"color":"rgba(128,205,193,1)","line":{"color":"rgba(128,205,193,1)"}},"textfont":{"color":"rgba(128,205,193,1)"},"error_y":{"color":"rgba(128,205,193,1)"},"error_x":{"color":"rgba(128,205,193,1)"},"line":{"color":"rgba(128,205,193,1)"},"xaxis":"x","yaxis":"y","frame":null},{"x":["Oct","Nov","Dec","Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep"],"y":[1,1,2,6,17,20,12,5,2,1,1,2],"mode":"lines","hoverinfo":["y","y","y","y","y","y","y","y","y","y","y","y"],"type":"scatter","name":"2016","marker":{"color":"rgba(1,133,113,1)","line":{"color":"rgba(1,133,113,1)"}},"textfont":{"color":"rgba(1,133,113,1)"},"error_y":{"color":"rgba(1,133,113,1)"},"error_x":{"color":"rgba(1,133,113,1)"},"line":{"color":"rgba(1,133,113,1)"},"xaxis":"x","yaxis":"y","frame":null}],"highlight":{"on":"plotly_click","persistent":false,"dynamic":false,"selectize":false,"opacityDim":0.2,"selected":{"opacity":1},"debounce":0},"shinyEvents":["plotly_hover","plotly_click","plotly_selected","plotly_relayout","plotly_brushed","plotly_brushing","plotly_clickannotation","plotly_doubleclick","plotly_deselect","plotly_afterplot","plotly_sunburstclick"],"base_url":"https://plot.ly"},"evals":[],"jsHooks":[]}</script>
 </div>
 </div>
 
diff --git a/_site/posts/2020-02-13_basic-who-TB-data/basic-exploration-of-who-tuberculosis-data_files/figure-html/unnamed-chunk-7-1.png b/_site/posts/2020-02-13_basic-who-TB-data/basic-exploration-of-who-tuberculosis-data_files/figure-html/unnamed-chunk-7-1.png
index 0684d7dd877dbfd8ed781332d89bf4b0fceded34..0ac91775323466b87d6b237c1fb7132cd1d250ee 100644
GIT binary patch
literal 27979
zcmeFa2Ut^E*Di_?q^XEBr78-jG?5MhK`AOtx^xRAbb-)IjEIO3kPe|mK#B+`B}m^Q
zy@oCzu<0cf>7AT~pFpzjJ>UJ$`Oov*bI<+R7)`R~Tyu^&#yiJ&$CzseJXBRYL%~Qv
zL_~Dv{yjMjA|etn5z)!N$W8*EeE)g{OGI>H`Ju9wJn)u?NSKI7f{4hNh{&8sSeQuI
zm`L~)k%R=1ggKGKJ0jx@B6D*h^LIq%XrdA^qRMJPK|!Fw!G*w&v9Yl6E8$lSKzpEp
z1d;hcyMrI#AMYg0%_Yo%SG2^tcM|V_*8!D-A3GJ5U==&yH%leB9=NM9(9Nq?#;-Dr
zGq6wMapni(0NNk)1++Jpcz1CBgMR@(?|}cz-vO^^^LGR0XtX&Rc*Oxd+Svu$1!vg>
z*V|={zY->TWi0$EBjZ&AHW;{>9q<c$Gag)zdnZBk4j7p^(YxRM0v#O;?cgu;J2db+
z@NNM8ZUA`2Wf&7>yfV&cXvk>5W?->db}CuHc3Jh~S>rggIT6}i0&Q-NekXx`2fY4n
ziUxiLfDX_Dz$*@oL!)s6XdJF6iKsqUr9RlMz8+|etH<FQUI`!c+JJ4qVh7$y47@WR
zKm)(Poe$a{-2C@n0|Pjq8{lOCha1nb8?O%@uLo|9!)6#`8(v|7_6OqvUa@PYW1B9v
zz_4)j!MK5U2e$<pjc4J;>v7{i3t$w$Z4bJ^;cyAhuW|xwPX7F!o)Zxfi~qr&6Co2z
zW<*4ni0;eDYPrSFmj}i%_qwO+vO47xF;iWe%1fwuOny%=;@T95EJ&sPCFrk+9)St6
zvyi~FXw|&b?$g)dN@7=gB3uVS<9_F;Y&pN25U~Ke{g}oHI?wvdb{HA$C3Fs7tXN!m
z7qgI=v%RgWy{OeK?tBAzlIX8X$tny)MCWdh(Goqr^q+o7B$hxR4GkPv6&X^pMWfoB
zG~A1wCS-emnr|30*J#FzZR~%x@AB_MbXR_et^z$_mM^vT+Wn;{c|WYJyn<gxBhpvh
zOv!V>nX3u%aG0|H^LkK1w`i)c6TgLKtkOW^^y$xIl*-Ar@I2FYE{rF?iw)aJVn(M5
zXXE^$rt7Lh#*3xSf?!mYpY!XB#I}--i}uh(jo9&?Uc+kzCAc_0L+8&yVRM1GJeU(q
z9dAMNk2u1owL(31{?&2yPWY=I^6i`$v6P(oXE9&{9Hh_M&UzxHI`I?V!@er|R~Ly}
zSc*49Kki?C;PQ=XyeVrQX9W8sf30Hk99*I8)B3#bc}VY#fX)Wd;hf0!i;sI5VrB;t
zrA$sDt{9ZvVz6N|s{GjEq#?2LW$SzIa;#}hg4baD&~Rm}doKw$rPkNa(vorJNJ+<G
zd(*Ix<ox?#A;VHMIIjo$7le!rwhS$1W*uF<3OYW<>r^i6DX}P04}Q9e32qz}{%o}W
zqvDpt$+=z7GX|^!Z*U>F)4BJD+vr94iJ7XAnn>K84Kr={1BUepx@oaIRYNY-ah*O~
zr|#KKRz8d=w_)~8a=2=vtE8@i#ft=!ONk17_jd&tAhz16LGx!CKZ%K2|Eu{2x{Uj+
z`tvjlu&eWXGI|;L3c<p}NLqA9X3z`pnCl8p$w3c;CXeT4A6r~AxdRs|6LN5TDQcpJ
z8ujzGB$3G3>0llRG)d2#$C*2e2YRx=k^Ge%Y)?-Bw=XOG(|C4SqT!qfA7&@5v$dyq
zU@Nz?Cmf3SSsJ_QRlm)Ch7PiqfpQRX{54uM+~iXbeZk4C(=h+bHZ9B0C#|0XDi3a8
zcKDGE!}dP@4z}sWS}}Ctg#lB;qOk@V0|DGSdVKOR=AMb=Qg6|%`!mTD$}J7@AM+!n
zIS}%7NorBys?bGw!M&YGey>OF>Ac-}F{1h_@v(Y#3B&et^@S}dIx$j4wxV&SO1ZqH
z0)dkybB3jey~-OO>F!v!{AFx45vYqsO@3_5*sA*!ImkL(9_rboqhn%Y8>y9C&;980
z!7^=vW<pBN%8K$}R<|8Hh>B!#vxC1UWAFAeO8sJl><MN^%WKXmeG*}tWN>IKYF%_y
z(KPBRyuaS$)G!`tduv}B!6QMDRnv7HQx-8U*-Ij!YQmFoX>!W_JH)}cvUoaMba}DB
zz-MQ0lyXWXV`^PeBb&A}%tD}C+v;VZyATC;EHvr!KvPazaxovnr@`8NlbpXI?_j^E
z6jBs?`A8vg_HTOFM$}IO5-Wc6U6dv^+=x3x@Gla742^|K#rGedz$&-Y&AhdA71vxF
zX7!9vf}Ip5GNX&q?=5)*igy#j`BHu^EY}F7U%yFXg06V%9GA()yum%EHTXST10|X8
zM0MFDvESq&yqlCKA;Y%aK<36!iN4p)9joDs&TW@f3N@6K63vFAEPOoS;5fg?pi+Ks
zt>{5UYg;3}M+d_GI-aKwkwRyRz*S2sVJ$L~{QZR=hRZoNMBqL21D7#hoKFoG{!7q(
zZ67^4?R8M*cLk=--B<H7HHwT9;=Q4}(Q@&w%UO&GiVj&GSIVC$8U^8$N`h9napkr(
z50<TM&Sy9wUqai&oF#X#6_UBE=SBJ6@$r13*DM8hW`>z{2ls_PtU$}ab|0&g+$ZNU
zX$yYgBFT_Y;oN4(d+&T)dHDSH41@HRkFAGfx0OK4?Qp#q*N%$bgkE4qdS6_Pu4VE4
zRv*Ix7lRF)sgfaYf$@OWQq2k*GV5b%-<yPp!e6CD6GM5C!VCjw107Xc`s|=qBFPG{
zZO@G#8Q`X-EBU(*oSg4AY%K7!%7SbYhgC}X)<mPluH*X6WcoW}YDChn-xq1L-Jw*y
z;Vm}D`#%43REz|1iGf#WKUyl_6BShJp}2lb1nGqqc?)}$rYj+HzB3F%xvIm;h5E{Z
zYWdY!W*$Z$+v}es+V8*@Tx$9aqXT>FoN&2besp)Rg(||t{g1R=SZX9gT86WisdT4Y
z?VHNIxwClDwnd+==0nV&BtO<j@@BP!gY2|WktsV~+&6UUy0!<O!$qV!XEG<xb0H)j
zee`S>t6a)l;ftP4YTc!zXHt3QKgaWlBW+zp(xm5WMX%nO>Ond!mx;NQ`M}nwXQIKA
zplt6E^N-z6k?z4wuKGx}xAt8cj|O@(63_HT55~)5w-+k>Gp%tZ0tX^BLbYg{^*+)3
zw79T16y@o}ZLMcBV5hhBAW)~49gg;fd$A(>M?|kb#L_w%etMrn^YTP5IDCM~N>OiV
zTnYEeOi8(C%n7D(@m*@aO@i??dsWS+2^B%}PMbX|Q$1DvPpudrQ%?e&BRY&^Q`&Uv
zlJh6D))6)=1>PfJyK`9@%2(R9&r1^b>pXI1&w7gl=bIHZAJ|>?V9p+_8{=WC=?q7&
z*`u>^o>%x}^z(cX-k8+s$@_5@uETf(KxBKkj@lJ2G9lO#`C*4d>75BR6BhZCB*<2D
z)JC3NO(X}s?nYaMj-8t}+8`~n^<#<lq_fIftf5MN5q-~rx?=71K)iQnKA{}oK1<2m
zmDywkOMac#8nw79A(NK8Uy5@JSl7EYW;sBEXbbIFc_$-2{ZgaoUpl9=hef*CF$?I3
zk1%vAz4tP`_eKwZ3i>910L59aVeSWlxlK^(yjmzd)JAy4b8=sjej8##sCpW@dbZX!
zCtg%!eYC{H3`x<mhP1RSoU6{h?%z{YP13I?`)q*u5@wRYE>&WN7Ls=*nmfPGx+EGr
zu<fg|LsnpRVCgM;uz1nuxmPgj60;zqjL_ikog5(B$)TUA`t+r8s6ZVB#TS7gxzrFf
zIIE7rU;1}Z;oIU~O^gZg<&LGc0h8r%HIk+Cplr2g{EgfBi5uzx!*ji|!q=4zQ3-VQ
z6hd(Zg4(?xTdc<qHIywj&uQMp`5Emwh*Rb_3TS)d^Z-@Cm_Y^@0p=>SMk!h<7A8zp
ztPJ6#Rv9y%^gn`SKNz$%c-lCYboC0eMTe!#UaqocoWn|xNZ)NHm{%#Kb)cmb+(rBI
zBNRe@L&DGgem8wa!qhv>O@%&QhPzQ@1rosKVPjH?AkMGJxu9QZ+xQ;Ll@P5eM_lsQ
z3`+b4TskxSMyR2Ls<js)*JzA3v@Te0vTW}wLsy6C^<1`Br}_I+yY}aD6%KJ<yAr^-
zIS}{8x=H%AWt~eC3WRxAsUh=}MXCDN(?Zkbu7nLbVD_z8mI2H+GZK+}iT>F*xXImd
z1+b8=WQEk%8c`I`HHB1%eCkY}`e*!^{fimaz$m_Ip@i7Yl<A?*K7J~jVNCyJzSiCA
zR~%uq6$ha=3fJ&-n#~zRO6m1m85+5LKuAgZ?u%xZ_eoG#2Uyz7Q)W>VWW9Vq>9Ahj
z&rtplRmlI-Fr@n_qkB*Ek8VWfhtCw985KRSAwcHzEzZS{rV96Pm)MjcHUF{-5#7kW
zH3rIp57p?OaRz!#PX}C-va&Nh0bKd|5CwfU+Z|fr$m8@`m3wz^@<Wy>_h<h>p%q)b
zr)DXQJ_h3Vnu*)v(^5O=%05Q9t!&QLpm|fvKcizB$7VOve+#N_6#ZFk^A5b<<SWN-
zke=sop@6C@ZWq+gmSY>}YD&Nck{!K06Ul`J130R;BRsmNvwKCf86ZyD+K>1!>%psQ
zKL?8P`VU4X8QU7!PWLxEyd%_SDLcN#T%uKVFKlPvHAO)-+w^TLM`$pa=EcqO;_B53
z;e1XNcnvSdq)yFvZS}l6R*1xM2kZd*DU6**%cRWv6;_*a-rllbM!)8RN9}m2pp58f
zMQ7=zvRdT%=^)~Jg*{r?fE@dkKJ`BGNil!Y1HJDb8-8E6u}(&1vS4k{;~YXysP|yp
zgE%%^@-`8?`v9@&Om5@6oU|i(7$BYjYd;Opd6Q2E7P<@g;m$e0=E6W$;NWcgeVS1@
z6%t(@^(ixK?$d{Ku&sU$X1LHiF&j5|e%_rfPD!<-Yf^}0{W1H*BBy$<iek2(bDimC
zE95;mWtX_6M7c-%TWSSrGC7*OfVthYNU}RQ#yoLC(ty8^LZ~s$%F55#C;Zjixr~yz
zNuEzs^XN*=r?A4tMP14R;d(92$_M2v4&Oxuie$2HL}h;}{^1y@bz#8%(J<Ey9l*b&
zByN1n-ZLDMk{qJslmAUfEsx9_3oB{28JtVBur*7tq0=t3R}qkZ77+QRG<mnnLuZx0
zq3r>(bNp&_z;dz9dd2cnwaO~}r;WpXB`z4=huq56@B}*AQ!?5H51a0Juw?)0duTHw
zt6=a^2iUn+23?xudOKPp&H9>Cqs9Zfvo9@vx8yAqKXCqxOV{=)JJg^bFx$48TMYa%
z!;iGP-$juZOq3Rl5B+S^r#Hwsp9QjBu`;=saDwmL^w+gF5GNZi@WlA_X|5aJONNBY
zb1FsJNMog#k{Xqfd)SgG@yt(QG*c2uJqa@DCE{9+#nr_Z8!w3`OBlE#*Y-@^{%#aQ
z^LD1D_V$H8vC4h|ll07i()FD0oLf+p7?20?R>gOTOfOI%Q&xNE%gdO;i;bTk?i(o;
z>Hu4jDcS7w+<ece-lr>&hSYs+pXKD(A0?3=&~vps$O8=2-@&yO&7X+YCCe7}oz%$Z
zH{S9ZJ`uU&12}|C26_WexwEdOyC)B#5Bw|o478xzFo@*)WD!V_j%T-t$b_9USmf1Y
zIUUm}xZR5ulR5{j6Cl5cl)xO3n?|H4GU!R03a-~#6z8s)D#zPAAvIaAWBh*mVsmMJ
z-18rFmmb!?5hWq@M~$6X6jwQyVUmZPWGV=10xln~9*EscyE(X;X+T3f8(n}K<W#$B
zsPh8+{xQ2x!3BHcM%BNmGwhrDRsw2$7lM^Y$Y?3Xow;(y*JM!u{qmoFS-OhJCHl*u
zHsoH{h!TohdFR*r{9CCHO`Z^4JfBRg|3D69CyVkSzjXIb1XwA6tc#bdi~oe_y*K9}
z*QwzpB=BvH7pKY9LA)I74~s56tR#MS`SJtQ2RY(ddSEt0x30>O7eu@P555HNod>^u
zbqyYMo;t$-kN~Lu-8l}720O@^611lD|F@e#>Gt=j*4GnZTPdqGokcl|^Mw@|FYshE
zO|iRE{%Q(lW9+r`V0jcPV_lYkFGC1SdcboZ7TcCo7VELxIz-79%fRoY0aM3c5zNqS
zZ>L57$>B|i;Qq!6Hb9}$t%f;7pPvVR0p?p6a!oC!UDqpQl3-;UE#ozH2nKrmWzJD$
z$4JhMK)j4`E&Y^~hYQ=oyL2Z=j)e?r7Dls{Zf|aZO)`Ov&|u{y+I1aSK`%u3u97vA
z!E=-yD}uo%UQSezT=!+iXm9b%)M`0Q_QK4|Kc`R94*g4=K538oy)49nQQXUYYf~+2
zt!9cS@xwt}!kiI&h+?xCoTkoD{jE7*6q9)j7`JCU)ETbh7WrH4UVufL&%ve3^EVK?
zj21%^f>_dRZ*0r?qw#X9Hz$!n=@zu?y2n+o{;Sbv^8k%~ITZIVhc%szbo&MGl&^b(
z9#7zZ*5U-qjA-*a1Mv;V=EzpA?h`SIHyOjv9x3m9i-l(tcuH;PEzCn)a=gG;3;h3v
zv0UPJaJkZNEH-l0W72ms$pLCLEYE^xtAPA`!TzX<s^12AZu+$>>h7V5XHj&~{Rb}<
zhO-(4xmYYF1|-wyE-NK$7zZV1uk5T@qc-e=ldts`vqR-+k3r#O8o1Kq`U9~o*>#^P
zK~Y|K>rim=tf{r{F&xNhqS||0H>Ui*h`P4yj9rtcOxn)7fw{lDzI!ujepC=wap@RV
zFzguXKI><VzUs5;&zj$Y#~L*3Yh~)8)_0CE3UwW${ANrpW~^-H+P=IzsuO}m>^{3?
ztAsa2ArfRl7#Bhz620Z%skkiwGNK}uAYP+8b%0%%4vM6TP_lwm%cg{TA&bKvYs#;{
zy(i&kWxf4=;~ozkWIc}$Q);nn?nYcfPX;BM<vx7?kB@&)L;8y?r<Sd$#QaQXj=Kb0
zWusnjzOk}X4m{@!h~?!r#mNKod&GlTKGj-QEJY3Jsk1Z|Y0W)@hlWbT9yc4$%4YkZ
zK7hFlPa5HOD2J+jH)SWfAlIlmvKUt?ozME-`sJ}yzukhj=En`G?SFCR(r~Htf-WS?
zwSI7xJr>jBOz_mkfWor}3O4-`8$N{zKD_7t3zqS8<iB>e|I_#F<w$>`=Qe;%j2!MV
z|F!1-r>{A_2lZcY_rC=0Aii})KG3b@iN&8Dm%dy$^tBG0e%po03z6}ju=yJNz(9Xu
z;aZ-!gL4bvr;dvnpPIvUht%2z*>IzZ7R}h+Uj5Vfp@DdQ5rTJPeq*8btW>2*5|jkr
ziER-pp-!+V9lyvHmAL(Q^C{tX+d91yt)93mpceK2iNFTqVqW=mEwP%Q(`=_r#hsNc
z^$w0z#2SMyp6d=l++S@bUD*;VrkaTrMh*+&kEJk{v;X!5`Sf)veuYwN{!{qzQ=Eg1
zYD#;yXfsYN+lfX4gg<%ue5Ts?ScMS29N5_qyqjgn&o-w7wy!h8(TDEcf#`WPELek*
zt(}Pb51oyJP^<8s+6Y$z$HN@B2)-Od#vlVil}t_@6vJ|VoSXwF>{sp#oz88s5KUPX
zgG%8~B3nRU|EDTr7&<4rl3>NL%oW?VE3_dg_6eoDp9#Lw9S_v4h{b)5{<W4AtE)C#
zQc<+AtcYl!#tQ{)pY`l1Z%TT`f@La=sUhZ_T4~z&_qBb#DDNb*+g_AYu=>Qq!-Ah-
z+G309wWKG%mk?}ua)>giOBz3jf}B}--YSP;NC`*St-^4=<#$j(lw(qc+gh6wTis&o
zl|FRy55iIi!htqnH=$jSt$F{Z)oKdP&3@4n7EQi76Gx}#6JNgNAph|?{$A0qoHA|Y
zLNztG`nr{Z4K~&mD7e9I>^{OjHr76@(vMh}+q>!BDUq#45EGc&EJ!!ny-d1#_ia}_
zOKj2Qi_Y|lDM==6{4aetrY;jP1JSX(2fr65##g=RF?%ssCQxlkCKlIe;Q2+8`r2R7
zG{jb+R2I=O`OZRVZEu?rW-8NoGubg7ikzw=ctN&23?7whvY9$TCPa#_Wr2NXI-f_x
z<~xg(mVjGixj@=?kD_mpaOfrKE0{-Vl#HQ{=Pf!Ya{Z1%c-ylI?OS_tDF0}E|NJKA
zt<{!~f-Cz;t0xDAj`)C{o8SB9gV2eRG`Ing#AOTlF?IRWp8=_K`-#PewE)LGVt2i0
z%?g4QO=d{9%he{;eBS-sXSH5s`bn7!Ke{c`Z68-I^i)9b2sp4Qp3TBnfTM_A>WL61
z%MsO3!fqzn9xn3(2#7uVE>DFQJ%v>m$^b!K#eavkKnw2FWN%!hC$QRt?=t;KZ6SQ}
z>QKi$e@FI*ZAUlIe|A1rb#?3-i;g=XmRSj^6u94ft2)nSY_nKjaGpRrg2H!((;HOo
zWp7mFk`dVQj2kLe!9ekuJ~cjE@-C0eg*}lw2RZpC6gi+#tU@JLE_pMa2iX#scZcTY
zeTlO)y<nz{+?z)POq@f3EpiwkZs}*A{3q7?jl*d(VCCM){5W;28;To$4}_c%WQ9oF
z@Gfx9eukvOSJQ&lk*r}Ksr{*G1D3JA>{IyT|2Kq?NbKINu_60*sxAdQB<T?=yBLWH
zt$6(>@cE5J;w6ukET9zdeu5d?r?r*Z=&0Xiur)G*3E<09zu7J(?%gQPM3B!2r>aUk
z8+)W9yuo~&u52n{abk7t+fp<5kWyHG>M@e@d*26~3DvQ%zlMRS6zD$0c(S^3SM~|}
z+eDgUZ63Bn?1;8ihbM_`_&iG-%WE*Vo_f&cG`X~G(W^v^Je$!BQ5Npfz3_*|(mg*t
zr(jvXIh7$aUL91~ejW2&$?qzYS_!kRLHW+v;Spt2-<ws^6sVzDi9q*Zw5|WZaGusj
zgON{ql4s|>x%vFLX{eU7sqGsv1C*4fu>=j|wuPpN$919ZX^-Pwv$`87L3!&Exf!z}
znX;?R+2jI8Qjem;!Z+#`gOf9QZfR~QFJssI|DIFy2ai=!PT9rDkd?9{6;O$XCXhv5
zaQmZBT|7)ZNGv{}P#cwIy`AaxIHm8a57N$?Gcg3*``#Ej7$Bq?{BrCLTFxf;c$d+o
zf%L0%yer_M^M}Ne7?4PO`5+cNho0ZI5aGpawY3E7@D%5PWiS$dB4L0i<aT*>gYPA0
zwnFEe_CmJ^ytXp`toT?_Hg_NkNUBWy7T12wyLf;<Fi9Lv8c(x}<Jn(bm>U#ShbAjp
z@4x&ex6ir13h=&*(kBA()RLP*$kW)Y$10-ofuukoW!LO>gsQ0#NujipsLX8KIO4(7
zRNrU^XIdN@ywZTKh~r(#((}YMe8`qLZ6SIX;iEoO(~%&PqSN(*%A*oKq?5)L(yx6I
z^_YL~bRO{*4BK)Uy2lpS&a5r%BPj^EJ+`v5(l_8P=*@|7%L`v@o7&))?|b$J@c>{g
zL_G}4<&LQoU~$(}Q#Fiw!(c&eZ@E)!K?z-PgVz43g>6>_Z*bl3j%OP|#%dGm$N#b@
z&j<pqjE#MW<_C6|=%)PXlgB1zsEz70jO}BQthHBkx8B_bwX`*JvnUsF=dMs@WP+QF
zGc%twac7K8?A@0nk?`EGx$!J9pzC<=cF=~WMN2u6r_J(s_@j+Z8p)$9Iwhr6xKGaH
zs?F;fhh%|x8KU{J=1hez@?mB&#E=u2@n`T<n-0=n<E4?vZLcfW!-+}k1zP}W7G4yn
zroX{Sr})+HVqG7~X)C~E`<Xb9^hPp$3M<|poqRJ@C5or#?m}sE?{3m`U0oY+*)J8=
z9~mRhzgw{nDm<$tPb|SFWY+?_d2HYgW^iO6>H{s6f`L6Vtt&LAmkNp;PBlf0nO3@Z
z6C)9%NSOG7U+()OVEdW}Mm%lAB5U<NWcQTOSjHEA>1Ary{d%gT0-SCC0&IN@EIB+6
zov2q8v^@sKN`^FaDj9~L(Zj04P3iZI`uix7Ja3ohG*V|c;Yolk)aU%(RHWvdCG@G5
z;d>i4#LQ#UkXqBC>)JBU(#oRt<5*s%o!Q;nfm0Zs9JJeWzlJvzXE?HbrqLW#9lRww
z@OcT$ozy^LX(!+zML#B~-fj<TNVqq1EfGs8wC^&-dQ~QN0OiK1apnm1tGh|8R2!6}
zVmlW`Urv0cp5acqt~$!)(zdPFW3W2T#$U|fV+-fp(<pLraZyme`kd%3Sc>KkERo*U
zYPCDXs2hB}G${bOX|*93`Z1?TZFI`N;ci50MI!F$2t;{`ZCuIF1T~paWHlj-NAJU>
zA~m1B+l*N79I@Ciej5T#@>DUEJ)W5W8Ju1*lihnj^8&*1koN+tU6!n1Iv0BLyj!CJ
z#WBBy(Rg|eB<$*LESypu;vrp_PkKz2{j1R&nX|^zH^s!qTp3`TH;E-+yDt6L_&2J>
z3BCXm-=M<p{eL=l5V#|AtH@zt?)FB)q|uHq9>9<ln69IR7lzyeq&1JHO%11KPTf`x
z26v9c^uVrhf!36dTqbez_)Z$#m6X=LLBY^!?-cx2lgd_ALU)W{<3|+q!FDXz{CIPn
z=5|`>Uw;!^ZQhlnJG|aXgzxdTfKlGZCMAcu7+<w<NJJj^=#w!Dsk4w2e<5~Ze2-o{
zt=l`x&1RZ^n57+&8GyI#^42FAR~8C}G3~SBIfa<8zS3?3@uHmP+!h4h$I@m`R`i+S
z;x({2!Djq#5<gbo+)#n|gW(7wEulS9ZaHH8zuZtw_!o!=k@n-?75Uu_B}Fjn)0`co
z$33)x5W<mc-7FEjB1@r3;zLT}mpk0@X<z3v9S1wf7Vz4h=8)ME;v0@L4&nrghoxNY
zj2WT{N!pq(v)y^D)!o@%v)f&+UQlkQBK0?|51wLM1DC4l-kff)(R6i^av?8Rr_{a4
zI(_aKDSGLq)01+ZVk`>`V)8Umk!&ngZUj4mCMwCNBuut$X=_JJQgeZJx~ob4VeQEy
z78s+EtP5uiQk}2!QO@OYA%nWO3ig7hf@@EDlM&U?=YkSq0^ce!begB;(G6|p^;1;(
zbgEEYpgQ860aKDDkthviHVf`V#{zlvB25Xuk-68$4&!t_^~~dl_&AGRu>sW)i^VrV
zf47t3o0eSCU<_x?{Sr$BtIAUnnH#lGlCfjP8*;t<nc{Y%nX1#({`NOQ>rPkB1K-{`
za`4*6vg14RD9gpw7SBOG>9HYx1(8aS9j{jis73OH`IWcOwUcYm^KAs;S>?h!(A^4{
z$?W35Jj#{c77!qi?jAW*BN180)znKrNXdUG=flmIdOYEmlMB&z6*jgF41(4=gR7sr
z9A!21ADGH*pC<0dQyXIBx9eVP$16t-IXebl2OmuXu%?@=5Gwo&PK?3%6!9*I61zwR
z^|L(r!>;?t52VfjWW|T??*1F&Ak2zN#+G|*4ZxO%kb!t0OjZyMC7Ko{C6UKVB^88^
z8*hGR!Vb0u9Q$R|5UzZapC0xwX@guDnq&Xre;{W|nMhfA;drTt^{bplqVa<VN;ke;
zM|_!_ZSz}%;~`4RNbxU1YrU<NLv`#4k_q|NF%p25`6Z0>@!rgiIjuUfbF8dyz)o&_
zUIfeV&s*~TUHl6VK~{M%eTdNlH;>Wc-nVvG8TT0zpLZcA?8PoSvQ4l9<Hyq&DazHy
zT0+grDS6%I$V9$q5S_TUF<F}*+c9*EZiDu2rfpP@S@=j+e)nQbxL`YFpLF2^sHM=|
zp4PUg6?~ciYDW7(d%wQZo%Vn(bq)Ru>YN_`&>XGEQ0dW55An*F-8@H&Z%PhEaG%YQ
z8>bQ!O8u^;w`aQMIc?7LB=wN!Z?&HxfGKN=)$dfgx2DCUVQf=9L8^P{bId-w%_dzW
z63*V#1f8~L0r5=wIzlYmJau!pvOM(B^7QC>C@-eZC<p%W*f9jI<4U6f;I80e!y9NA
zGolvPMxu|d%7rmZJUxdGYu*&lDAwn}ojE84l%`X><xmb~0dwCEI>a|Q<DZs}QQzcj
zj+Me&gq<Zd`gVR(oB}F9v}K@MbF)v9ovQQEohFE~$^}H`ap0HSW~Ur}M|rYZs+itN
zKcd;a%=-*fgY81Y354e6xT<O}m?7oJ!<+tc#e3pH8*>0B2+=kYPP3zbrQ^pI;vO$h
zY<jYv9FOXe8fp}8Vd|k$n4|@=X`h;57OHdBAcPV2D|N-1@g~#qkixMsv63KNiCPqB
z?-NUuepw51FXenl#kFLc{fl%tA^mvwO_qV{cr>UbC(BG<WmBl8hs-^y+l$dJ6;P>;
z%O$u>wK1i1^WLI9C&tDt4Iou^uvDa#Z*<_T`_C2KGLJoi_Bim^vqtO4q#{AM`N>xz
z#It2A0l}*TpylzuOBID}?UY?09|1ubm=aj^eflz9m4}r&ORF65abOKFkLIGUNQv>G
ztIPa+!ufKtw|Kaf(K6<mJYDS+Em%>$p0Rl>A!@jOSK`?=rx85oo&6ytaS1*~5rQZ|
zX$gcWpHzboOuv;gwA8ev*c*kq-IT(|NMUpP^lU}oOh-6KlmmZK`p=l<xnLFmiJLDI
z6h_*cOOD@6r1M${a*!J4diCaK0$K;4QHw5Un4Y)IEhk_;c{{$z-2!&_>3b%3@%9q^
z)Y)d@8v<w+{Lbl{NVaRZhnsyowtLpf%cEti+|^GUJ8B-Z)88`68g~1=q@|XATDx;^
z%yIGWHBo(ZO->TyZzp%6HcJ1MR?r;Zi8lYuqgJ|^wE={yu(1~22E#-P*;cC(Vkt_I
zi17ba|LcrI-O0gL62_*2_BX4mt;T#9d`8s-zbW84L6vjKsT6un3<^mIG?EBQ3w(^1
zsQbx8UhslH^)BkmMB5^lGqdqq#*|Ln9@V-d+{Z^s{O9gy<P^-%^Qf!>;9Gm?r)N67
z&-9<0ZcvKl58?A!OXhtTO8?6b>YSQXtyn3Ul0DU0ja%sP*;pDH+Suo#nXap;9L_EO
zjOVXoDOOi!hECa%t#(QFiSI(OYFH2*ti&Lp)pG=9Y-pLW<Fvmdy6?5GH`yrZDWklv
zVr+n4{W6LKNqLu4%Ep2A)PVMzv6UH=(AjNv$i`##kl{grmPag9Z`uyX&N-XC6)eBk
z)AD;<I}cj#5{aR0v`{e5D_Fh)Z&OOZY18ZlN52H0xKx(~4&-!srqOvH5*Gix4ggq2
zz3{K5U%;@wtvH|}VqXyJCncW#>!_wGj&8b(*`n1h=G&MJJn?HutPkoGK+DnEX1h`(
z;Zc;L{cj@H86+;)8UW}uWVy~3mhN;L!{j$<Ah~koVfP=lvRcLE*;|v~F()@CR(q3^
z338y54ZQE~qH2>2+V&c<lgen>_=}8Qf1ooK{zKb3gtN?yMK6h$iTmb~3$1^|GKH2b
z%Dt_K(z(b+R%E%GuOHp^iEVl#TT}@T^?D7&<3NbWtwn`_l@f3WUy0qT#R`Usxjk_^
z?oq)7xsJmS>E~y#g(%wihX3NV9e9aMz#=0e({ZbC%`U?br8fL?N5NsIbgc?>tmJl&
zP_+>sB$VK_iZ6qA1b7)+bLQn$9b#ARI}@dG1=Xhd{vrOpzHg5SYf4fGU5cAbI)Gh-
z<aK#HA$D)|yMfhBF3DW>HH}_d;ZY29$KxJNBS9KLZOFRZB|DNw=Jb77DUR*WRL&#r
z(X{(UTfnO-0unK%+-e&p?K;t;)>3J~&*kNb$ofJ6T3U;>3>TT%jwkUy0$PNb$d;J$
zUhx@zh+i9ijC4_vK@A;(@^TAMNCn~fYe>O><S5zcMH4G`i7AR>#t;azo?j?ku8t(_
zcJ&c@n;dS92*%GFLHtS^2DdHvaSho9MLr(xT<$_0NGgjv$Gaq1LF3#){p_8}{rvf3
z`LTnt9X3-EniC~^W_H2&pWBW_SI+s|+_l0V#J_=R!dd^XuL2y1A^%w&OTc#fdh#Pl
z9az1wjU^`oF5nM7TfkG&J8Y@FW_q0QO8XT46bN>MWKAraFFXDQD2PbTT1g3<6u9TA
z*j`wOp9z$rSVi4>v{dMBp80CEZZlP!t!}fddZMldN(Qw_d=U{T5`gYC#>;VPU4Q6w
zro&ly9+WWn!z1O|{Nn<ji^qEA;0>2%>a?!%4Ru!eB9Gc)+E4)1`6xjcGPLi1sQPw1
z=;}g}?YVpaTTM{xzy)A}cvKhFCOt5K;wIC&W27`K;g@S@6hk5O{mRj#s)Y|)@0}@m
z2~J<&f9WE`&T&T3lH-fArQFA3_ANslH91nnRC3Bnzod1MD-wWwW#10u@gU@KLA;E8
zi2DraDoW@RlRLVK+X3#VB?z`yaH+Bsi=X=ZNIM;n#e^l5NWzs})BG!mtV{3@HmMt3
z>6l{)5S*HTQgJSC4zgTXaw_7$Pu$SCJVVNXiXQU$Ege_56-0b(2wtrTHSeF#zd8Hk
zJK`Q0^xSbsVr)NAK#X)LR*vaskO!d4{*?(QrjOsQoC`mJ{Z$-Zn?Bozee@x%JneS+
zhQs+`fa90Bb*qwAzWqMj8V>;+d_htd<hh1JaOJS;9|y%RGIhJlq%GJfr@j5s^^Oy7
z3Gb!|aQMVe+NUzy&GsCT-#*8i?0FmW^{w01K}wi{7B3+wdL6ShXVhu5C%69V{p^`v
z3j?9RMlJk7g(lsJ-wTg0QAjPiS9h{Ss1c%!N8(av$UCTY{of^qQ`PR?K@nc*K_PQL
zuJG%re*AE_KPbhvbJwo<KDQSQ9^_aFwy=4KmR=NKCCF6ie-9!>20vi4CI5NW56{<w
zBz)Jc-1FFNYcG<k&A*EWF#o2O7{i%wV*Yc7cbgzRgkkg-ZIWCkv8z|a?<Q><g1IK)
z2ev(qNT@SfuD(SldRm(92cmOw2(#3@9q;2i(-F#76`T*Fg1?LcLY{7`A;7$OT!X(8
zNgyivLzn3<y?_wbY}1E8GVaV@LMpHG<0x(qoIS*PT@GoF0;DV;?#mb`*i7Nsk&!S*
zZcewqJtdE#2NFSrq}{nE4!0UI=y&K@i)iU5eQx-P9-x3#*&m4H+KUJJ!e{GFXBZxm
z4?qEDr!!ZFSTPR5C~uJR=0qg+FoI?b6;Yll|0N^JwUF<y^=qQ=&^>x#r_5yj?J+xy
z#?#5g)nck~8%T-%D<AYCc$Mij0Y&uB678BX(wRz93lj!0Skje;!^f%6kzX1^3wEc>
z&R+;5hi`Kp<{mL&r771cclKC1$tr!gIEiQD{%q3I+NgZjwrXRE9gpSF$699%;}ISa
z>n0m_HBpnHzqp3mjGKq}n)FGJV~A-@l;15ipPTk{kliS7Z<CJ@u~lty?yM*Kk{po3
zJ52k1tpM{^uOcz0b!=D*eHJwwlf7<Q)jRGs+jBj0-$Y%;+|M5KGURh*?>^o~4GmBX
ze5=CKLJV5cT8c&}U{f8WyYMof%^A*U(w{!38DJ24ye*8DfXbi0FOuc*V-CL@f&>8}
z`}r&NYbkt~&C?YwtDZMUGvl5A=-juC^NWMb9B24qO-J_zq>~~p+<;V|!Tg5P_L$81
zlr(VNmv2{DQ`!UR;XTkkFAJhWOyIe`G!$Fr&4CSeJ56jAyp(hMnz0BmvP@vDJLuIh
zqR~f-WlG22rk)ZwmobxWclM)+5{JH}pIYVp<*P+=nRW}7#i#mj`!ReywSA6gcUkv~
z)_xxh$2OL<{~g98U%9-qM1}hm*IxPj%e5p>LfZld1)}vLfA??Ra1kNpOk!J56@o=9
zgun4`JQ7&o10gH%B(@#Xa%)CK)Eze)xd+Ae5}i!iJ!&IV3IRE3=gav$G3OxV?Fn|u
zynht(r94M)_T3~0N2^S26gTwQ4Y9HxJrpL!=wBT{1qE03)GVz&9@YZH1h1+b3h?E5
zYZj}stv*vOH!$O>^)!7qE5}Cv>hh43u2w=W?gXEj%LUkgS@RAJEt-ra-Ph4MsQDsC
zdeVJ=Q8T;Ohk)={HlS0)ui8i4^-KS_2H9#>^o<S0w2kMw#{A!hv*VYpJNQ8QI5C#{
zAE*?Jk)ishXzmBY)hb-DJ=w1O_XC*!SoKR14%Pm%-pwcab-c9PV@zVXi5YFZi<Z}~
zO1-^xW~h7}7P3*L_EvNBOJ+7F=F1edeE;kG9rua#T``@2qrxVj@V6!FMQubw>143u
zl|&6xchOkyz}9N{_TO%_8O1^l&NAYXc0-MN#Uz%aAGjgd7mW=8o*&y*sQNh{T|Bgi
zQ)H`JK1+hwg>dpt4^O0tG{Ubxi@bUYqU;~-C>gt`%YvBc@^Mc}-}3V}Pt8&E_=%gz
zimr50s!en{w8K+mP)S@N@57z>mtUmetw3@oNZC_2nM(-;Gcdj+ys&`@sum1AqKxT9
z*$a(N@+OKrq3rS*__ev8t=qOb_v-tb)uY@$Am}v%GML?h_Z%;#w8m(a3`%`WU!h<!
znAKYrYH;L$MKa`|Bw8r3${KV`gz?;HuOOG4@9xq>g(vfifs9TcXLhE&`F96b4a<_i
zE7Gcabx-f&)h#~>n2d@soo+7Z>%Zox4Oa!SeHV_I?9X4Ti&7}2S|qa)s)j|S_&f)x
z1MteC!_GIwQRGWfcv7rhTg>uVNbpHvynI|={`pgNpPF&ODec(-#Py3vOYF~`NWOJS
zys~M4Y9}l3t6N-{n=_;?PM|s51Ax;nm@r=@b?CZ_c)^N0T;Sl0&(R?P-h1W6YqeUA
zrWS`wdXNTkQeGSgkLH)>YL#p6Wo>4Q3!U#_qocs@GJbA9*J0^eh=AIJ4L(6CxI9%=
zN1CihsvkR5m3z~cXdoM(kgfNBeti)>?<qQW2Y(nX_09ochGP#7$V8ok5b)urK=Z!%
z9sM);L{>n+>z;(K<L9Ext4nNN;%8j}X7?WiynyGLW4OH&R~Q2CHveJQ-~0_!-wMy6
z2a*H&K{?`l3O7U+S;na@Nrm19=h~c+xx91_p-RAJ?vbxfKkbv1a-9+D=OtmBXuC)^
zC*OrvijUC%SYL12PK%O0gbivGNcu(uYsHs2zblU!W{Q3PH)R{L7evJ|i>JYm>khVX
zX^*a6RQO!AH?uddljUgZ9n=@SXMT|&1Z?cr|AqGjE*?OUri{M;$k`sI@YOGO8)QC!
zX<T)P^|#bnkF^-cfdVf0v^va})ks;{@>Ogx)F$|TDM0(W|AY2T0Z)yMS9_ngwTM#2
znMnDCz-|DXCU%GM+C~+>{1MsIo(@i*eBtEseOJc8(t{aE*+u5mOW(ImRWo<$*d&28
zPdb?9NgD6nhVHfk?aX|p&Va1M9k`uT-D7s8<9yuek2kbzUbU~|<+h$!^yFrqo9^pv
zk(;@`JD0FKGnex>BR-ET1+WoR;?J&go>2_o<VHM*v|P4Eg^#*$h+e{6K6GJtIkvI)
zWYqXxPWl8%NvQ1HawY@dV&b1(J1LEL$yccs{nt-DgSpFRvN|JNy(Da2DWZJw1}Dkb
zx!Hw7vbxmv@2)Xrel8)N-Mq?5Fw0ypmw`nd`h6e5OD<FuUK=hpSBJON7DP<z0?Skt
zP!r>l020<*l;Hlbq?`&QTH4?_$FxAQ3A~mxviN-9j!-GdYynFE^~});n}UdXJg7WC
zjeq0o9s|&S;@sTDd|hnHbwQM4cwQBy025DYAki(Y{6*J0Z}wzS7jJi@P|5o-@J$Or
zh%SEY+mO6my?^PzI{nM4C>bIcg<hQQp4&+{_Y?-40trqB+!l-#2CsuZs4u+Z!}aP1
z+u_;1qyAOQE1SP=7#N-`ltqCu_(RVDIdyC1p;YQjCdN?WhbHWo*Gb|1KM+d*yMAUc
z=I9gUWFQ)hR+y}WU}v`j#dAO(uIxSUioSO+X8IZ5x!=WJbZ%*bU+6M4j^MOVtR&{P
zFf{CTi6zgkM`rk#%A2RyuM)1vr<PC3pNm&eBZs2*1Gn_;wAZY)jT|o_P!St5cuy7Z
zWolEpxp=7X&(1xJb8uV}ET=_U5!SvIieHci%B##bjjm{_642Bb#<B7J6iZrLMDjR<
zuu=Aklhdd)6PGA^J5|APGK3vuyDa)e)WX%(CFj#(8v>vapWQe4)bK!b*H!zPL*ZTG
zb?*~oUu6EJJ##yt-wRYT*WKtee%5$f_nRpD<%iyX1kU>@Cn<0TcoagTaTRd3&REJD
zyFE12#3r1!9Y&^g=CHNjM03p^VSVk74U$U-`Vfz<bL5lY-?Lean+U|GfYSh4=*cj{
zi-UEgOjCjLF(PJKhc*I}WGWL`{H1YY{aO!*8F9`(63RU}->T9YQ7)8UkT;mxpoFsy
zG1u6~mnM`!Vx_nCa!o7Sj1??Q)J*7l!HZn>fzZbnh<7T84wOp&=8g=%iOAjSCaqho
zJCxG6)t0wBGOfW1GCB8z<wFjRlI^8DU-q5bTYb+VDhOB2tGsA1oKU1<vMVi-R8|&O
zsSHaXhpwad(6B!<dKkDr=I^!CND15WEiWf1$;ALwu85tL?@WF3+G9Un?PUH6vuEB}
zGTq%6-T$!qxm3V=*VF0O7Op&jarH56!dsKpp@0r<;#e?OgW;5aG&?+$i1b?pKhc3^
z>pvQdp%42<A@7L!RvnCGPk*;fX4jl{kE#y~+wY}f+pnyo-U}SxfYHfUZrg_s#}$PS
zTjXLpasA)tP6BTFB+mR}jEoX&GvD;%rsj-R%^Xp%C>iup()_&lV)&L!c_BloAQ{|T
zK?$*8QA{*u5|gCC%cxP<lg|Gtw&ipD{u7bN*j-%1aEs9C=RajpXILvsX_6`z4BbEf
zTG=vF>x|N(hLm3kPt@F;i<htz`dH8s60W)F&`zJE+9$mCea>d^G}<x8G2rV^s1MIC
zxoO$w>(_tJvgf+K(l(-IwGSw>E?|aFPE$kHZO>nh^5G$lrM$WKMckWYthS(VT5exA
zjU7|BVPEdSc?UIk2nQEniEazaN){fBUChwe*D$-K-68ih8TjZR9h5gL?O^4b51R)C
zd*t>H70otpaw6tCllrn-2*=gd)9>kgTCQM5X)DI}vn-Zd^D@Dm73z}FCZ2y?-v#}_
z43S8uc0bXj+ur%J&1JasNgtH<<@MrI`f<{T5616j>P&sYYopelBAw1aFV8An1$6#l
z;M{x1>!c|pMUF%FsYEnGPdRXDY%6$7sXO4*cXw8ueR{iviXGLHeBxOUGRj8%?0<`W
zTox1A7X!`9c?TTmtyMb=sKd^Uvr|4QVE(x1mrJ?yIO5{-FyrhXSW*c;jaAcX!y+5w
zH)Fv?a~R~7We>5$2;=nO!0EY9TWmOpT+npn?x2}S5$N`d8Px0Y;OeleTTLsTX3N)H
z-`p_J-3X_wiL^%bT`!BhpNp+K`}mJd@;)7oIQd4IA>{n-_`#`SoUu#&)_C@hB>vtI
znKcR_tUplLK9=J-V%^D5UfQ92Rzb%iR|}=sH^0(e>`G5nJ$m*KXwvMjXqa?SKz%BK
z>hcxKy4I)}Dtn~JhS%nYt>&M0=Mw7E+DK^xPKw2{u1A{tRDNEh1RuaPP>IvsuzEIb
zQ%>t|A!sLv4!<Cx=boyztBZ@r@Y@1{%oz4(OYVZL5#1v^4pa_x26(L6@6t0P(}&LZ
z=uVL7BczX8o<lb-AF?Y4ht@CtKlrNuEJ65(qY4KTR3!Y<QGUJmQ|Jp<3VzZM`OhZJ
z7qD$cIZN|}i~fhf>4764<ZJzplCJ-?BmI3;rT*@18+_OQKkQ=vhf7!f&007I+QX&a
z>cRLDAbmEHhvqyus)q_;Ef&s*YC+Q+Y8$T);OB-u^R*(lQ2XFQ5yA^)DS*V|j(vd*
zI^j^|?8wzo>1wWwT21By<bO7i*(f3sk8Nm?Y$3sgxzsbOGbE?F^ZHz>{(yD~N12^6
zS(or194LC#8_EhVQTUfl&qn>Sn~+20sQ=4#DdD&c?|3uLxW;k*w}%9xy*3!boKhio
zXO0Twtn>!(TgnaoV2~ZT1^{|^Mfv}`<n#aCiv54#5eyL8X}=ga8^IdNzXx2^3w95A
z<7~MO9UOyI^3^Io;nN?@^5<W9n-Kk8qd*C`@z>A6glYlsyGPmygq25{0l0yFcnv$=
z6gV6%Zade*5&_#IMWCgK0GQN6rJ+ZFjPPiA;@PO&+r%%PQ38j$@e$x3p@6(TDyjA~
zpSd@IZd20(WrcP<D1DIu)kANlsGb6-MijLnoUR<n_Dp)*Kg<PS7mwrt0KriYKzioL
zeBM(x9A7kDJI-)qmC)1;%0q*qx0_h~-~RC&VhkC>?eYWybl`p1Ha1{M04$GC6^f5~
z@Ijy^8(c0kb{8K(fajJROX9yLN6Z_1aXni;7MDcF&XMv^7CGWS9tBvwJI#zWpF#*A
zFc~13pL7yple`ANQ``I`TzxVMK(AYv2;lBNIanOaOv2DWCV{1F7>ExB^Cc5}W)GKO
z9abffQX9xwsw$6QCL?48z5WD?K(2t=lm0-^mFU6Va2F*dlSc3{KR~6JGC^xXHt2E*
zI>nNAiS&air4GI=WT(#1Jv2q269&E?4-77SRSdE5%`xNzt-aYkPyRbv`c8t}5p?Zm
z|E^6UK}I}FeF)sAC<|6CZWJO%=i(%K>8~N~u^uA4Sq7M&haO`4D0GcPzZm@MiLyn2
z@6;mskxkeU_h0y7XA6t!Rh8L&4ktts2X;)<`^f0+mA)8hd9Te8cETMk?=@JGF|?mV
zVsWHR`V>$s=tsERW(bAUbvxxrL^s>Q(p<jOnYZA<!`-DxVlYO-H)@ggl#$*+=C&6_
z)+KegX?+5o6vkPv#&l|4(t`LS`QbFLF8bjLe9jMhw(gNUxDw`hC^Cnu7-KcX8+x+9
zL&h9~4~3OOT*AJ$cVE$C>W{BJ$bJ>mh4kI)t7PgtPq3b$)R2XiZ~Jq@p*{ix$n=J+
z;Px`}oZ4lA%c;*z&j{yuKS;q}>ZWaw6auXK;t*k*`hUNNAH6U6{r=_Q`@mOVwXCId
zB);45omgL_I4S2sm#ljhfu=THg6q_t7APVyJ7pv?o=!zDoQv!jqzsL3;)1|*87bj6
zmoSYP&Rdv!>1uII0kjtgY%EHfgpnza79uWY;laH#d4^zPX?hDP+}*NlNs5(C=<ZLi
zR^cn7IznC@nv4%^awvs3KN(G5iL64kfH*@pwj(eGo^p$n0UpPyK6MV>h}FS2uc&Tf
zs~thxSGkm3`_0Mfv&@FK2sS=54!Dm#O~y=xDN{j9Qn74jt13qbYXcLsyTzq_dR_G}
zG8oKzP!=GPRJdo!wAy~fK(U+4IaM>d(sQ*QF01>~hC$k-f&6f|r;iThZs@)db$_&!
z-<F8p(-Y3<W|t{SqKj5DYF34V8DvH}kD8E~l;v4$Znw==PP5tf*h&jd&rnQCJ!|M}
z(~p+pg-2;ltqhcbqi;VOI&R{+ZoCQEA8#pVkj~sob}dUXexvPL5=oWR;`7-<sHO)9
z01hQYE?t?(><KU$D>6BIX|831`?vR=jI`MyL4#gbfFqHL|MJ#ue5>;uZr<PXnHTjQ
z+xt9_B+lEz1A|ac*Om%g#<={^{_{WkcAhLRTEyN{+OCzXPFf1^yxd`arNe85WyVs@
zO8!q@e|3uHYi_jVPBF+<hOK;N3nb}x7}~#SZ}=AG6{Fhc<dAr8uXyGLQ9K+>@|+LT
z`QcX9zSrijzPV^~`t99V#)9qbwq%pNqMAV1X3KPMzx1j_y9^F1Er`pSZ9c#MeQ}RL
zopvuDw}5+8*h;rmhnp8op4Np8dtglzrJ5F!7kf{sTzYuo1}NLrRDX(gUwz5kq1A3<
zFMgni-Tm<(O}Yb6mskT-Vz#^N$fd8hRJ!82_p4%6J_-iL4!&`0wMd#n*5v8&Ke35=
z!oT~NR^GsVbsMVqW~+DTHgI@^6i$J0Bt~{h4yDP4bE4EVVLoEH*Yn?{>B2ndrZwJo
z5$i8mM0gii(_5F^h?>alm5~WhHMYV@oH>_4bP!m9?vWKd!K9L3W24jh{G;#}JLYLW
za5^!7>O}5--PfwR#acz*Uiy}&D!MB9eY$Vv%Z+5%7w$Aw43mTAsX&pB_jEShyHOLK
z4_IsUP>)bwsuGJ6=69AZk5>8qC?x3@(+i1q%dW}Fh5#(3EDDG$&yVlP_-~vPCjLBl
zgB~JL#Pi)oe4p5g{(>&X8a=D)M8uSgJV%{D402^}@%>?EL?*Ov;kv#MdriW@OeXHy
zI_7G5RI&AtSed0hq;;@W#%-}?b7E_+mU<eU@Wh#ZqlG6q!IYfRJfSS8wZb^JR6=jv
zq3QjMZY-@mXU)&jh=|x8rpTtv@<#SC^4!=N)iQN`DZNK}cMG91#Gfy-V^pr(z#Kd`
z>RF5D$ds&2Q84j#w^C+=s?R%Bpe|6OAe)P=i77C#xDQCp7VfzK4?$|RcoKz?!j^V7
zOd`bP4>&AJAt}$0wlUW!cSNOhYvb<Uw%C*F!2S3wRJM!3T;0RH4>s-+F|mUNh4Op@
zZtDSz!zHwVA_&n^AR|*2%0kzpKf*QBJ}_1!m>v{v{2<^F4;;BAhwH}e{-tjyK<RYV
z?SiL==a7`O(~OXhxF=U$E^l>sf|ramZCQlTxJ_bJ`Y<>8iOadzd(v6Ua?l0YTWy+s
zBa1L2z0}y7iG3qjdG#e?2kJ@RQrizZmtLHqhTAcYEP<2C=yp~nwwJg-+3g&dYNcYB
z4ZK#TsW~+9GK0T+xQA}@E(SXFfUn(#zNV&U_l8;Br$B4a*mie!S72H~W7+UINX3i$
zLqS4KxC=2rSz>Iu-uU-M_Lf(@A8RHlo1(g}4U(R)c|!*6yv7_V{bIf+6bzhSgjrJ-
zly$@!Pw<#i!*Ygfr}tZi>s4LtEd-U#)yeopAJ={2nl~D0DiU-TB}S^LUl2EWr>EsG
zn<%;c#4L2;m7co1rccQ`g&AqG$9LsWaX=2_TPQei?5{MiX4`m@bfJm6l%0Cxci3)C
zmc?7jU__6LQu~@7le=w#Crq|oFVh)LpT6KX(HOop`n|zFOkVmEPhR{@?vMF`mIFo3
za{pQ=AQ_sYKhi1MPmDC|<GHs@G0|h~q!RYN`0pRnwX2)^yeU16J8ODvQ<lCh0o>i#
z4DC8InH~}=yD^?0Eu24dyvN4xBINa9RLx}r9*?w@He`?b#p;M<l0#jk!KhMO!6wRP
z{+pa!Rep$t#7qz12$H4$6(@33M`)%43Mj5kl}Os9NQ(elAFUg)#4EtZQCD-3cgO^1
z_e`~3!E|Zqz3#hR=hvz{&@s`=8e|Q!wfs?$WC+Umsadc})`fn$oJ9gWM)!^(Ck9_^
zPX;N{)g5*pF>~_KL*z}!fu}%s7Moo(x8w6Xm0)j~_OY$RP+@2)qauFY8r97&tim){
zN{r-j3;^fPthi+B<KEtuAtIs}IQV}A;H?JG?X#0~3jrL_*PeU<H<`~VyM@1f^6`N{
zeyI_VEf@FWmyZ?wS=3h2)FMBXY8WXD59a32=YWz6#iAj8YD}RvaQf_DlMCBX9p2~u
zdi@403Z(j~`sspO1`%n9$!PQX)M^&sNH^7Kjp9KI$+&)<x5X<{KXI(OVuBkAXx3`g
zx!MogpSU8W??zt1aO{ESS&^9~k|b92TfLF;BE<U5w(&;n*^vvrL?XarZ7qRZV^0pI
z#5iUs{s+gyl>9#5RcTc3R8RTsDLdD}08^uYW{c1S(m2V04iji|KQo(&aM9k+&vn|!
z2v>HF$bL{EpHhr&58O-zWp0eqGYdTf=M=oQC}$Oce}~*(zrqHM|66re8V>c^#>X_n
zjK~@e36&)iI@X#AgGwEHIz#p>V<bnijIGf~p)l!Wr>1PFrfk{95F*ozjFLGKVu%W3
z?7R0rbv~SL?{&TJr}O3ca^Ls=e{auy-Pg1Ho<S{ESq?VFBVg>U$?ZW!!W@ZeS!9~i
zpqAI}(8LVo7GbAy!#^qo)FOS>JyvqjoMKE@X44eV+NRqO`<Gjde)~rvN$wtM4#=&y
zlQ!<7LXgdYwsT!}iF9>Mj?|0P4&NiOi_QAEh*BmtU1Z63t#d+@>t1z_M)kRX+V=9u
z3(=K#+*+#c%X)d?X0F^ifC0KOyR3QZqQoO(dB?&qv7goPAGmY;UGIP2D#SPfbSa;=
zUou?T9^|ZKy3Zj|o%pOZE5aRSegiDN?+}!@*Q(PVWS&s0%<_T%B8*Ndmxe?iQn3(#
zNo2;ONvggYAeGiL;*%8#B2eYy&ca~h%-at@2{0=M4SUel!|4AG;|V<8P#Ww$JP@;5
zXp<!&2Q*zjQB*KDApIl&$P~Neh>!J!hu?+k>zQeSCm9oL1o(yS0oJ`w9~qE-MWu7*
zJN&=^E@G?Yyn65qZI)hwfZyz%qYZocog&jB0VEYtIm)CmL9hX`24JJeeOpxuZn#UX
zt6JV1^+#BMr`w0Oy>w)8{J+?Q!526e5nFZpAkJ^z8zI)KGgOF6BODryyXl^O*6DAS
zw?kro#!(#4ICscCZ=B8I{o2b_>r&uroJeZsO`I?v<fW_XJE*coPko#J?&j}8Y!szW
zjqn-rtZ(s&)mPCZf&1;H<onF+uN2x5lZdtR%Jy>c7~(r8U#N+;t!Z<xKcIeqaJ39z
z;Z7Im8>Ll&*qYZ4@9mF(ud4vzI6jR|E+9a~HAKuZ&;gTfBwu#Pc%*oBYnwPwEV$m5
zPSoEc*RbL28o*giv6%1UA5%z&9wciMFIT-*o*65>f3oP4v0hSlofKS<Y(=gBH?>T6
zAm&%Y-=}`1i{1I_sR+DUryfn^?6<-_v?9-|i$v-rkg8g;@3^M(Y3l76T{A14lJXi-
zlN)qbp4ysj+^EwSU1@6Cc$;>}kndZ|kNUm*5Ge+Mp&*zbL>P2f{C^#y56M{`b@lgD
zLf&#*Z;Ko3Xu-vN6%yOZs~RRek3CAoNBL7L>-yp_J`tQ8G0c`Y+7w7kvNVnfVlb)G
zVauM=I&0xZma<ZzS`w2Q5nBrFi~zT$ax~|J$WDmYQP_gB7d$N63^jGPnby$Q(K9nA
zCQmGR?{`047Uu!GdJJH&f9$tpJ4Fr*?0VQe!1#*)EW0zT)UCCrouXHUo-P*C-sdW)
z&if1lCdngttmL^}^18RigLV8O3bQ(Vhy?$$`E7QEp3N#ctQC$0SipG~*jVPQs1zz7
z>5l{`GBsLpslDBU=8*4A>e?9v+^f;dIwt@zBfpM+d_GMZtFtROS0*>Kb{>!S=XM0=
z$I>DTY)zA=I_|B1@#%S+u{nl^Q!_kknTyua1$Afi+<>(`LU~}TGnuWn`jn(?G9NcM
z32YFZ7NtKgtVFd=2|Agzi1N)sfo=Ba(@}<3*o`+0=3gje7?x=ByScoFwgi?MtHZ51
zx-7r(RZ@kE3p)YZFbWEh59(fn0bjyD8CG7ussHMl6yMnqqG3jx6JzT<-dJ(9&A~oE
zkC@xA%P~V*tQDULPMny|$F7kKPxeH^;^5}$NNT4^C!+iFPGXHM4&t&$IgMjM-wSp>
zbFDrh1Qld6p#6Ac&)$4su0V^?++k}JMn-+E;!X-91zS@UP&Hf&*C(I~G`AbIST*$?
z3=dbKC_l4e^njXm+FA8gGhUy9F{I(?jngwTAu7B%1~>^QS<nbm`$F>R5Y}$g1*4Et
zC4cs&D}uGsKIo!8K>Bsr)`>n(dT^K;=!d6Hd50x%5xY!N)xWB+{0yvf6Z5JRs@r}T
z`ciUo^{in=+w<u+5B$D7m^oSG{aA(=(H-s`RdKn~2~|n4$%g6Y^@l}rf5_Ubzgx!~
zTjcnFRDR^-WO8*-!^4yXORInie;N1!Z`1Ypy<`^vM*bNC+K)Wn|JU8FV<wl~v{~Z@
zMO|L%&yGF%at+-A1!Bb#KfYLGU^>b~)!4}hFU;h8YNvpMn7^Bo>DRA~^%Z-7-7#%6
z*(%Hmn*tYj#ZMkX;w~h(K-Ik<Lc4j1JS{!+K>{~7kep*a3hTYJ{b7uY-ZI)jj91{R
zb}%UuaXs_h8+PVF0M&D`R@N=<E^sU};(mUMSfgM+GVnd=pw;z2@{b(H35T88L$KLT
zr670P_AGcC)Mk~?U8lcOW>f2H7*C3K6VlP8J$j~!ewHs8t|PL2URp?3Y0B*1!qt>o
z-ywHnRIgQ>X{rkp89){6H)LaUY8H36A7HJpQOTSei#uLmjms8ZRc>KHN!Nh*X|Y!{
zm%qzJ9l-Cq5)?;>)RPL>Sa+<QpilF<93$t;dM!>`RtW{+1^hyTWN}ekI~}6hAdD%7
z7)tKNSZqXpe_WsQ?c}(91}gm}obS)RQ}610HtHQh{MU~KYv0sbOXDMpIz<7<q8g}r
z+n6u-p~N9=R%K5!aA<GG(D~)ofhrTZ@lDuVo9)bXAxoeZn*}05k=UNqYE)5A%F(ry
z%3o8womBVBxl_c{yoU@Fd**Ky;W;@Mxmi{?ra^(L4S7DZC%a#b3C$&4eP=~xT*wAm
z4`lqkZdAOkyi^^SNH{%v<(Kk_NV135spv~k@aCP*uH@XbwMY%gpVT37%0#)Ho$942
zG}%*fV|mOW^iyex_z{9KO9#FM%{7)KaAw^iF9`vn<;12jq5Yz@+sr>EXOHZ$64wB|
fME~EzR$N(Q``V^&wm$Ga7U=W|+vCs7z2g4^3mp=a

literal 27842
zcmeFabwHGBw>OOApa>`e0#YI<Agy#WD5Z2uD=`c$-LOYRL<B@6BuBat>7gt@dT43s
z?#_8{e1sYH`Ob6VJ@5JcdD!D9Ggq!_t>4P)-T^8~vKR5G@NsZ(F5Z`uQp3T)h2Y?v
z{fu`O_~cvZjX4~gGmR<=8q&b8I5@&MI8YqE=QzT`IKogI;Ws#j={Qg*4)hHUv=|2|
zh*SNYhlhs`2ZxUjc=7QW8uA%F=X+icbOSmF<3Nx49sL0Rcq0sj3PXYSV&OM$gx>(~
z{fb9Fwu*|uinhQjOELI|Ar3G@{o`0P^k`zB+tCm}H>mKNqiK)+1^m1L{)4^&-ix7c
z`k}?e&|=^n4Gd&!8*Ce#WgGm%Hf#L3A>VUD!{_yL!N3Hzzzg_zJopFtjWEs|U^P&j
zH@^o3Mmbu}(O<=Hih)=EoBrZA{lGgq-4G|ezCL|!F3VOiE7&&c$9UE_x)_R63>7Yh
zLW|!B7rz1Ce|IVde)@r~#r?oLx)@ztjP5T+qe~KSegrH22)6z41L%$ZfkxLq=c})u
ztDl?ee<R%g2HIZ?ynqRhIv>sX`>+0fG%yD6){jPyXW5Sb2p<0d%#5BpS_|+3de3c`
zj%~Zx0INa&2uAn6IhqY<KAwdh|A8I{+5(dUvmFh9Mx#A~%B}&2dEtqijw22Zt^d)V
zGa(ZzW;i(4aqde=YPiKNRE8uBbi3#IcTIe1R$FYHnc!xy$+a$HROBNjYa^rVwVCLQ
zQ41iO$jrGC@}ReqOg%urA?D7EesnWyTO}i3UrJQhlf!}0Ut3>7C<!OU%!dj*;#*}$
zTiDOJO%eRk!I}DXJ^C!p=j(}z6gW7SS@EvmJi7jW{T2@v4vN+{vcFarnUv!i+3Kj~
zUgo**xMu*mWpu4ZJysaK^3kr-zxQx<xLy7+{C03+pq1DDG)4LSw_FvD*R|Bbzp0wZ
zdyddDH^Nkg3Hm;6z8>rnNal0oGFN{u-`_Az_;HLtA(0mT$+V3bwa4XZO?MVd<@mwb
zuz;w6rFbcOYY<6!U1j8}@HfJz#k6Hx0!ZH!1&29L&MUfu=;phIt{-2&oe#`oN1dT=
ze+622$QU;56zZ|}kAc7Mg+2c%-Nu9xOv+s_iGt{%VZBziRuf6z<Fh$cdcTrCrvx`2
z4VrmK|G?#o@_1v`0@}bgTl!Yj_GP$CYtH6^HVLeUHK3zjU^q9tjq*_sMbvD6yqMA1
zpc{G>+!WSy2GyC(j%vbd0XyG%R^OY}*i@S+Ezu1$Rm?pN$7R)jm=LGP15B|bz+Erf
zR(7+VnJzxaSDeF_kSZ_7E4RSOxlBY{*FsY%%V_IMcyQ87TP+fptl0|HPZnQmBg(il
zE<W)5z>QLJW?jS#(#l$N<uz*>fo!DqA;DmzCN8VN&k}9K*bia*IKfaoGqkdikb-9^
zBrNAi(bt<`VV2<q{eO(%MrFpl!mN)d(hTJ;7PwU~I*=XykM3FsCLyaLW&Qoo!Y#Dv
zhZZWK?#nQ>pAXWwL7<@F=7MR%qY-@J`B~56K6nw}_AR%6ufH(lWd?smv6(|QUAidm
zXwBslms*UD>6&0)bOu{i?LY8+i3?1>w)m%WM&sPgdp}DdbWutodQ(f|)k=EG?R*Ys
zX!{!dTp+IoVk7BkZQGBL#yp>Q2QaQXlhdhXP?HT7VWdt*sY&!Z4Fr)Pf0*yU{-v=#
zrONc%Y)n?9t<`qiCCSC=J(oV|zq;MLDZ2OQicQ?!oHSWfbXcIq6sz|Gs=#201a{`Q
z>BC0oZU~#vcKWK4UZ&ZdrQ%5;o`M176V%U8s~Fjw+n&fiTmJe8Lp>K0@@D7WG8gJS
zUri0R=iSlp%FYIgJZs5j&2ZJV5FIuOPp>VRMGie3@BAW7wE%{^M_>NIYsnI`!r;M=
zkdC>=`)3EfR1^ybzse=Duv-6Yh1h5<G$dEd;L7jwiZc4nG7L=2r|7KOvu1c^Dy*KZ
z-*n%bO2_GnR$zuY!kwkwHJ89Cw(6mZWRu<6i?-2OAICPmrODwL<DCUAaw9>zyJEhm
zP|K942+_cq95vGH<|NgJ^-oD%JbO2EczY(E7WMx`H<FdA!NiI)wBY<&nv!*A21b{L
z-g;(17HVAZoGiURS(!PVEB$rZV>G+o^=b@R`hBL%?2y^n^g~V^u`B{7sP4#|?EWA#
zZxAC>WVK_v*}Hy&s;Eg`T<B<4H$}EB&&IPcAHTR<&r$}|V9Rah9WG@$_VmxQXCst4
zi>GspuGm!?dhOk{%nL$Jy-C$&No8#PWY_5ETLD2de|=Cp7%86FXd6^i%t?_wSbJ!s
z@1Vm`c&%R}211>cnLJ6iMzOHlezf2ih*jXi<>{Zo&z5wL_|OYJZ?0K6BfzFo@FB|a
zWpdixPq`1|qsha2h?*$xxm-dSA;_XDW6HTQ1R`Kem2aG?O2d21CvAs3RwX-y6eW@7
zu~lIQ&eei>*GL37-*B>LldG3QIx^mxbp`i^sZ_b%_Fa9VihKV;|B|UJghGTOuF82>
zpF@r$X0XBKV4c9uS3hP*sYq9Wr`42vGOlpRd5RAOeXKQaK+yo~s420GlOkuZ`#_?X
zM4KR|hhNicW#4}?lhuOXnAwbDf6=C_#M-R6rg$MDTs=mbEs5uIFqcY95k5aFYIXGo
zdv&}1pvr2cNTA~zNX(RLN3Q%qGo#ieXaU`VMU!z%$Ge-<6Tt_#%;DlRn-M6Thw=)v
zpvs3{p?$>$3w0d^k`u7UYS$j|Qp8pAafFC|B1$#dMhJWJbXneM7HuXm;_8?qfyqDa
z3LwW{H`dN>b}oZ0@Nc0Tv>(zJ8un}4Lj-A>^{7^?ecvBsML%)&*(x6BFZtAG-0#x(
zfICo2M*A-Vqw85pn%|~naCL={ttE-Z&I&oh7b#$4JaO@soc8Ud&r*;SL2J|r!b=Vr
zhcivpkMi4iU4FED)it&pE?hGUn)8h7f(#f)nrXL)_f<_>3%QKJI8l8RwyC-tsqd#s
zz0y*4K5WZy_!W5v&GtU=?rqj7%w1aaj6!ar$?nY+DR$xZ>1(>s^4IJx9s=YPDESoe
zo1A%tFf(=%SU<&&sSg>nK4G9DCHlG=s##(Bt4}WSmQ{Xmc}J#PwXXcI_`9iC)v|W@
znfsZ|-7|ixle~=GGmSsR{q4kjZ8@?zQeEIK*NPv?vJ8^(?s_@13+pMF4gctt?5E(Y
zZ>?gj;a$z<%D;!O@zZ4fl$m~kSI?!9J$lZet#6?Zt$p$6%qd`cXlVKDq|VR8rJ-m~
zM>Z=RYkvsa#qc<`q!LJ0S|}+vy82_{lAv<J!C{YGP$C?pXs*}jsZ%oAKoXd>H#Nj5
zP{As~(V=0kImo((WU6t_P3_equnNpDKx~w-!y`U8X`xCX)oyL!!&>0J?XMPB%re7`
zc-IOeehz5s5_!&gZjitie->o^VaQy0H?|kub}^R3Fju_?T@rdzuf*L0t30h1b3i#<
z#Wp20L|3Mhr4iv=DtqLtD0bBO`$nbDzkqD`L7d22>Uze`WBl4J)YP8#gL&MFxN{!O
zg@w8<quuZBSv?*FEo37WVtq8>{MAoxblJk0L>$VvV=7ZUFBIlT{45NC=ye}q(g3>7
z{p^-7$R;m|6Xi!WBPeRXfPyYID`uMI%Y%_HGbeEA_BIuK^9roj`w0h}ANipuyRE*=
z%C#>7HdL-t;g}EX-eO)_$G3Y;oOLDUKscSrFMy!10HgzlI$EX9>LP3mi1scN+8DUx
z4(8gv27zoi`5wYKbt%2~;4WSSWa-2(_i&`OUr3W+R-X4d`cmaN%P9VCqbxP9Vvai#
z^?7fJgL!5O6AragGnz}?Wn!%3gCwd3{fcS|<00j&57|+*iJoy^OOh=KI$Ionuy`fS
zM+DN#gLUJi9Sw@}24$Z18fz2g4D(N@Ai`SYnHfL^AGw7=Qi#EIJE>^X!ShpAybNYs
zdbxbMdlQAz)`oh<_48UDw?3v{xSf!?s$>=Oz~S7W3rj`PN5&wzF@V)IC7sLT3i&wJ
ziD3%_CCLDghNel~cspp1I<%x+&23FIGvFVxC=V}R(N30yRTgJR2g%tS2$2&wZOA0s
z7Z7Lo{4n9l=vzt$@E%;MfdHo0h&BnC8;oLQvqRRhROonbI6vkz(>`R1mhMUJ9E$a5
zvu%!Nx8cj>tZ1*jmLQ3a=^nDC^(*?$TfFI~d9<PwKfyi2g+RkwM`D{>XL%<`bWVPL
zwzgC4p`V3@(Ok6+UZGInBvL<nt?$q`iioMu_-JKFNK974;cg&qpPI4WVslQmS-wqq
zN>_JhB{veJe@g{<XJb~*NGL)`KaK3raIIbQ6WPyiw$VGq?D?Nm&8l-~ZbF~Jl+@K`
z@C`NPE8M-d9Qw)I4Ik<$OxQc`cg%toG7;AHdOw-HK0p?@2Hsj0MM2{?Nknjw={LM}
zO*e)%#$Op5AaZDDtd4{=X94YB^CSY03agk*g2J*)R(1-Qr|hoB;)0%z&C$x@6s8)c
z@t=f3X5^~3wOWjMXwB1n>JM!0;r4YCImK_hm6Ls*LAXDpZ|pG~trM2|c{GB=G0WJ&
zWVEHiIr?d#H=<Nx5xL>gpU}1mz#liMEjp$m=Yu?ALfnWHrj1(@<WaL@>DVTZtE=Q&
z$)}kWB?GK?jxS<3T_=jqp#3paWah!ncu#$7v5!7c;+-Rk7P@5Zp~HqX>8^j&J)-Go
z;8cQLZsywwkPTOUyl10Ux4w0MW%MTF#}>d^{RM*a=jPf(HRG?B-bt41W^xzPQD^Mc
zkynQI73zPeHg6WyLpL+_t+Db)#yVv*Tj0-sk!l!LOw5f5)+Lw=u3zqheSjqGgPV~G
z-I`yLs}PfkkrxVS+QyAtGo=BQ(&$=jXh8;hC(zZ2Kex|xp_g988363xHi+JyW%zI&
zxo)0K=Jse;;8la+YJUiYjhgh4@#L64!J2WqczF6Dpwu}pPk+7ik@`^qD2|T8TYoj?
zVygRF>1jRmH=hFM0?+uO@S;K1Ov~YD<5#sLY$mQ`Y25{hzW05!+GClR%M{+V7Jb?Z
zr|{e*>n2e@Z0X+kW((JStV=MTjkvu%)Av+YrhN|P*ZRU(o`}0ot>~4-<ol&!y`KL5
zvQO+W?>paml_AN-y#;g31kBs?BL}TYs?gfI0l8Ont8G}(qZ3nrMMBli4KMcEiWrE|
z(`htr)HK$7WMjB+q`h%Lv?bSwZGtZnbP{q{)uv?-&Uv)1BM*l}=}b5Ey;#+qUg~Hf
z(pp@_b3}ZVoE_809ReJA-bp%0Ip?nO&YiDc{v2*^t(SWLeqI6dw@%$}hc27?GpyN+
zslAnhPQ`&>-RC+KFjw4WRS&B`!=a#h{k)I0$+;=IY^kB<++b&?MJ20eR{8FQrfO)`
zYL8w8>%j)K6Dv07z;{d2^YaARU8`n9S?7G9w)n6sWTI-gl5wk6tGoDT18coSJgg+=
zbqh{8Zsr2vPzmJA$DN$ds<;Gb?$0GJ1ClO&aJQ>@A&H=VwAN!!qxlzveq#Gm)<uP$
zGq*s4I5A5BBbgvDJ|!u$-p`SegZ$dt%IDS==b30+aPh8ik1BroLO<>H%~OdKJR3QW
z+&RZF_6cY%wBo{4#iAhKJ=+b2?=mj<mehA#jwHLTax3a39Y<|U<R?-$@GQ0CrdQ?)
zqC8CP49E}UK3LD@?tS?d&S%K~^_%F0brGB=Z&z-RIB%0o<9CRAjAs+FbZTFPym)>K
z9zjB!u6H@z2=wF4Wk!@51IU>Gv>}f}Ns<WGeISLfl|=YlxPI^MJBWM$UMB}$C)XKM
zxtAm`7GgLO7ud~Tgcnpn9E=PqCD&D|!Efm4A0Sesz_a841#q};N?j;?_YyMr6mmfF
zA58{gY}rhT^CMMAoDvT}Q_7|h38zV7rpJNXUIhz-H^|N%&G8pRfDlCcbQk~Z(W;kk
zq5Q667I6AY2!i??{F0=%-|uz*xUjzM;AFo!(tAtTnWMVX9X)ZY5BWr;`rPiX$y=`y
z2d%o;60!FA5`Vp1JMsB~@~17*_;QO2PMeZfG@0eG76#Ekv~`CNP0HpAa7Ay`sXC2Z
z-!RiegpDuksIvDryqCZt=qFHRd?kOXC{4;WzS?X&-gx#6=>EMFJyNVTiJ<1^f=bVY
zT4I7njWmFOMDb9wgqDTgT?{RNDSKJm+hH0OF?1!a$#geRLLk}~e~9tM#!q=z4y?Od
zIH8oxOk`W_%zqc*2o@&%L%LsTh~7pdWGSvWW`y__rr)v;INHUwuX1<up3=xgJSV(a
zHo~KG|NI_Oo(qRoMosFURiwO$@;xl5tfUy;X7^s1KcM#X%;91^KKWk?h>44_?v9=e
zsO*rA3hP*9Nd(*S(k6-Fev11_b4-2U5;}Dy5&xLK7Qr5Z4VNTyd=M!RX8p5#gqNqa
zJ-H6K)^<9!)Rcz?J!g2<MpL+ExiU{?P(swcnOfpqlxk2Kp^GXPFSz#M9JnvWd}-le
zV4s@KrWWnveWPt!z%F`Bb<Pj>c&1CZ!mYL*!-w*7O3Cv+JJb6)^DQZ0prhSTQwwTo
z@xVzO?X~1zAJ|IG#eOUdPgqbp&x+fk-V(<YxA^MYq{$-g$$>ot#At$A=X@V}K8F8c
z>n}(~!&jl{XW_XD4vB~JmGjmIbJSekk1OSvca>Uh;Gk+#z;H@>RQUat9^zY&kNU`)
zW-4GLs}Un$n6&I4+GSI0cE*0)`z=gQiyl;Hd~~73bCRw?t|XQXmCfVvo<Ei}F!J#^
z{PneLYB5mP{og{0=k$$`bh^5~(bJ<HKkw~tp}Rc&f|3Dc?z-jk#%Qdm+zWaD@wKef
zITph&9*nPcNa49(2ODyt2Lh7+(W#qVwIKn|30FLCXcpK+CEb;hYCQ}!5H}89P&%+p
z83vcN?-UB-bg0Xiv`e1gMCFcUE6Mc!%-)K!ovD9pcOd@%JE-_y#if5u_CEse|03hR
z$oRiwY^=t~;yf`1H1x>75a_>dhW$%U|0Sot<rMaexy09gW45cuR^r`5!edM7h(Gv=
z41*uE_*QHhADc=?enXCf-Id;05AWuhV{7fm6VP=)Kge!cu%b(wT2%Jg3M`o15V7Jo
zcWlo9o&zej_k3-{`AyF)V}C=zbY&z6TW+B=OS1hok)mVY+B*^mjZUqDvQA<aIpB`2
zmPH8tu~z>}UP@ofylaWX+tZtK4n7=xBrc(Zd|p+4czT0(0^;{f#p#&0=*3E8);!Oh
zqDhBTjDOPf`j@te>CwKxQ(hC4CZ+@CG-t4e?wA{R{_ZbqZ>Yw4IEtrZdSzmxb%Yqp
z3oDX~bN3SJdw&B(j_s*Q&o+Hib@C2|=&2YzJ~6(?XIS=cmVq1iP)yi#fYK~PO}d&W
z>5jyt=iNT>)M6}zNe(u4=ArMd`RAU;-UJ_0ZGy=Cd+psD8x+s5RtbwsDlz0!UJ*QO
z+Ytes+8kh|y07`~5P4o0MhCfX{B{ZKyt<=kuuqsDI@tQWx;*m2`W!VG9Lld~ri<-6
zqRwp@@o#;jLr?3<)1?Ats{`C89Q~-Ye5>7jEp2I`a$S1iEH+bg-zJ(;0DB1a**Ybm
zrxF&(K$YcN9is<%cBXY7xDG#UUch!gtzIX=_LOB>y}9?+(%V7~*D5O$_SKnC=1ZEU
zJMNp4Q)C&b*eq+w6O`Cf;3>G2BH*O8y?@?UJ+{nuZBpKsf-dCHqTSZXb!n<TrrW|B
zgiSks6UQx87t;NklxoQ`i$5wZ)~6Q;QXTBd_z<s)2!-JM`u-Hc(e63I1HTrmdycdo
zcURL(7+te(G&CGI7yvm_6?a`F&`YrVdu&e99dAwjMFljU&3!U>w+OdA{u0KS=GY}D
z^g3v#-~gB&n<lzVn~L95p)K7b^Rpnn^Kp0@7f(F(K81F;)N6>zdrp{C!~NL%Y!&1u
z?tYOFjWoq268JR(3)&V=$MJ%#%$BA--*zIWjuUrY_Zy*kiAbNvi1of*zgvS5S&%GQ
zr~~s`%qTf){i^TUgs*w0&`m2>5ucBRAJ+mzNgU`n?0IIl(LLd+ICnCw&GPuS!JqMI
z!Y|Hpa60<LU#xvM@M`^CTa?q~<4D2ut9J`h%4lo5rJ4l5rBEIYIoOdo*d~SVGM(`9
zsi?z0ljkZD>9);Xq6sNP{7E>Yu=XZ*+;p9)aQ5ooB{mwi_T);OxFB+1DAa-x8|I2A
znYXHy!(!g(F8LV|WAhnD`wE07s5rQ`km1z9jDPE8{PyxX>KwLgGB{5@-sQas?t}b^
zOdLg2bd%GT!<=ZCa^d{g;>|w>tK+Svc5KHVmcnY?r_ce9%560lNa|jJXdi`^j>&?e
zf{LP?G<IQg9(BBI*m(0>lD(M^r?zEj$9i*4LD)YD_3*zx5Fb0FYa{BE!CFAKAd)g1
z6<T#1dN|SoMM72jE9OpA@V--!bN`A><#NN1eF~e(s?(@i6txf&^JWxnB*1BaR#F1b
zzCVc@aRhTQyV5DXjS;MC+ZCHR1&=?@J&I=f)|-MhBEp<O>01bqELlpF=QS=ZAdO7(
zNi#a9K$1`W+JGpvvd`>(U66ZlBU4Pypp{tb`?|RV11@5iFoHYjP8WvU`u7n92kmcG
zT2(E61W@`WsUu{y@$d7;I|=0$du-8GeR~fnAf6$TohfZ_GRgc<_4UtkOZ!;%lX>;M
znshe9nwt9PQ8VeYKl(1)7ehQZE1Z~6ZY`-*>uRvfwhag-qLy{RiHdB2b>+^KRnopD
zQ=<z!ns~JMZP*qwU2tN0H@EtZ!s^_H|F3yjf5=!h!PHWe1RjMnZxBR`^pBKilfv9J
zEP{p5#aHbGNv*OViaqNcJD+6=><@SccNIkG;JNoIr;(%<u{5}Ke%1j$v4A<32~`-A
zOmCsgdZ~?@pcvoDSl*td*QS4?)mj&^HXKd5rQ=`*_dz&gG?4aut%g2WQ8y^HH)|lv
z1{CCLPU}!>r>9LW0`_onG*#LUq!(JMrm3!Ya=Tt}kY8tiCa{30Ri-WDTFwr^Ino{f
z?T!M^^2$9hI|#$DxwlaB?%_IFs)wu#-#a-~vgXu<L!HSwcbh8r)9v00uo^^}2g=7p
z+4g~&nfrI`i@z^H7Y_R6^?a|k*d7O}0M*Zi&nv;DTy)iwLquMgh}()|R>y9=FZ_ES
zpmh!ppH+m4lP3vfdaX)AQEs&qmnI8{R-wBJh!xX*y4ES8T&Z4@mq8DJP~M(ct|0@8
z9>c-89?WVPxpVarwdOV9ZTxVh+2+Nfd+mMZZz;pWk}X?8o-{YHf;g163k)@65IZX?
z?TwL*;N86mo%J(V+hj#q<TlL*(~gylRq*+E!zaxr!!M<Zg!k;=c4{EZ@;W;|PLOr3
ztR5!Ef#ST~IK%I>N?9giSS%CL(HLI_R(B?^yw{%#&t*V4&cwy<gu~Z+(ui2|>NMdI
zf%1`>E}x<aDW;t?Xqs0wTCh+j3!itvSe&Ib+?AEViWJsrg(x7BZQG0+4ePGFUqfvB
zxYnM3THhxz{_vrafIedKT$X8Wb-B=J+44m!4!9P?B670{%y<8wI1FtYq_yq#b^c9W
zH6-V(CNVsiAV_bG4$Df@*Fj7&z*uU&wRM;K*U-kzZJdpp6kyRA6YR}1po2rl;FCtd
zo+DORv}RXHidsdc+G|;4@hwSFncK{7$gGnA+vQT3qrQ%!!oVmSL8m@=Fz<n#xqgpc
z!|c}An8j6*8P6Tw40#c~5yz0U9!(*TbMT+YC`xT~_C~vMBD&Dwl~|Bc&?~lg3rTlq
zgXi0#=J``*&70o!bodtBLlwfSeI-=jRtS+C2_h^zC6`l$N7$g3@ZHZl5-@81Yp@BP
zvg^$pGE3i$E6B(WHX{cD-UW}ARYAt=Tn`_whLv4>WzK+&ECz_lcNLvsLJORn4=+)N
zR;|7ty;)UCAujU0$s^DfJ@M9aq=y{V&gE?7>gsw$8gw3k*U9roiQ9j^H!%-I*iS@#
z+Iuf2Yv(LMnlX#qzv<)iPE=}UKxBuDJh;|r<Z;#a4P47$k1Q?2qa?&1Y`XeWU5N2q
zfbvWgg^vq5d>e1wuSA;sImW_!b{S^>j<vl+%&#r#1>%I^u0DqZ9zO8D0Z+3|zK$&q
z=jc@&Bd6w|@3vK2(_A)jFadTL%N;y;1nq}n#uriY5X3zUuoB)wtTEFi2dz3N$KE^j
zg%o1-)ad`+WI~bKGJzxY)Z!vR9^X<Q9T?j@V=N%bw%_8ETYrBS1HX8MzixM#JAk7v
z)fFDz6CzGGKe11m?~KL9dx%NQ#tw>5-yaZog&`I(tR<OA;YR0%EGM>^&-;z=g`LC~
z6RHb@;-^~69Jp`TED_>hfPeu-2<|)oCm?_1B}IQ>@uI`X7%?o^LMk(u-$Uw#8Yy-&
z6Wzg*S9LEA55Ex)Mnz*}h5_|-e`Z6k{6^Wx61JM;c<=qNGTd>Fs>I=xMM16%<ORBx
z`xgAUPg(Q-EWtxid)DCfi6}9EI3A0lQm~f*0vcdsjRDjQG`NP{fTs5B0vv0E=0~?f
z#W4*$$YI$T`{|1xt@8sy_M27=8(2bXV^VI%4qnEPMvQ>B80w?Z!>AG}AJQm^%}4r1
z2&3Bdc(?rlx+$A}|D??LV6LgW#gN1}XRFyWY0Fr=sIP}G@+o^N8N!uN6*-qLk0>%K
zeYyhi$FP2BE~I+jf$W)5QlKA;2(Io<8~y9^C;2Bt%6C58-HAvxN++6x>W~7S2_?8v
zr9Rk96kAF>$fif8*Cprc)*FodA?92Bju)L4VWOy`_|yt3DxfUg%}dBehE;DQh$|~+
zc}`$({jXDtm{tdDk?~uOvBk|!7YZxl+F1zA1&(uI0N*48$@wRZ4~Ul6_PXFplrwTa
zm8H8pjYTbQ7nA5K%rmK!83$C;$wSl~WT!SE6+%117Ae#m3X{Fj{<Aem4)_)i!*3xa
z4oZ!j>yx6D_YnC|Z{Dvw*QT#y9R)t`5>9l`t@bXW&W`({W7r_jmH=Thm|#v#Q;UR{
zRPIjKeRsn?s&!`6eRs=i3G7BjPFxj#l}3Dh#DH}?>rAMJDm`oxOHKrx$|5A+dM_U5
z?_eyU#4|jXVW))UT-vfX24|!YLa)#FoyBYe9R1A=A%@)m_w{)s4ORo)QBzSAS?a|{
z<(k-DHPGrRR;&MXQggv{v%5<hJ)6XL+KXnM!9iJF!aoHL%=MMavU_ubEdkg7!(1>t
zcsTt?TrW?86dT3<iHUwX8%q#RP>sEI-LH-#kr+$jC4|6@bKe1Tmc+12t$s_Vgma{9
z`4rJ8MKyAXFuE6y_gNj)7Uo=t;n3?SENKQXPHAKhBTz3Pj&7V@ME`6`j$dWVjjAUn
zu+EO^^|99#72EjQFI}=>RJocbQD66$KrBgFhy$@Gg%6hH7mw>9$VvrGRqeIpQB;nU
zhrfyy=XyT%l?byydvCZ8Rfp&3ilcAr@MCen0B~6?Q4UgrPxe(vymHYszkco%quJZQ
zeRgN?&xuue?HbzFS`>OSu1%~=EEyK#Qqg4!i-V=HIa*&Ek>G=TC7IS%bN6k>^m@)b
zjSq68#~H5W<8&62ss?P3XwboWM>wHyaO-eg8DCNdT3p1RPGYOX8Lnhtbb8QrR@Aq)
znX@-qk||jZx9GM=<*ykH2^HfCm)G&BgkvEm+4T4I$HG;y{5L2=mEI<`ZKKN|jau6q
zONshed2*CmqB6Xt{cMYUA6X|*7aPpe-0uvJxItZ>cqi&dW4U6>ov4>VCjgz;DwF(e
z{jIr+dj}rxN~(Lg#}US?-VS0cd|li5ye-NSvx43ET3(j#rb+{0Rv%KO>tpNsdmzjk
z@K73*pr7*M_&A=^9SrMS6KU5DUTF%2F`%|-#D((n_!xrXhF^9%Tr3nq#Nl9^=eDt&
z*p7<F2Tx3u+DPHG4f`dN->aBVKZ}B?NA#Bbh9kH5G19Sq3srFz#-Aw1fa*Q$W}94y
zhKR*}FDd#;*WenDrSuQMx-*Ot0j~}bVP02>^$__cv|A>Y3$?t&c2%dE3A2POj^3!8
z1024Q_drZ#DNllCpFtN_cyG;MB!vM}?qCNB3Sr69_8F=NM_;_$cR78{<)&~u7V80+
z^`EMN_+JRV7f~iu-#}i)*oH45fSXM~l;n?vKk3rWf~3T!q8?ET1Vnh)$d%rFQ<%ep
z_zIR)qY}ehk~rN-pv_}w;HlwtY7R?f|EaQNJ}mK1#|53TC;my@Nnud$y^K>~<-T8s
zjgzBOD<Qe}MWe1^tpP<<K-AuyG}hQw{8{lnhLwon-B$r$C*d^^!rh!wUH!Gohi$xd
zLaC(l%w4|^Q(qutKhBf?u8nCHL_Q>B;SO-=HpFskq!8pYj~Lzq;RdJVJWLP(Af}o#
z6cm27{}R@kR01bJ2b0ZoPzf<lbnVa(bwW`^I#yIh41fKJ#*nFxw|GLl$H+oOxaVe;
z_TdI|mq?qk!JFylWiNBp-PCoVEf#t_`-7DVh~bJd^X)@BDokMnV31tI=RIJ4939-R
zO51SH&2;-*+!%au928{M2b1z}apj_z9;}QMkCE`UTRK%!0d(EK^<YZvdG3E>?k`)a
zII4-KR0&j?N^vHOAz<Cl6z%k=pQ{v?-U<ijN(Hsepm)qY%OKTNp)|HWYm<T1*_9u$
zA{tf%>rL;g&e`BO?LC-m9BUk|v?kC<#`U5%pq*h}X<J%^&G{9qR8v@0?|IoRF{9sI
zSYI0*PUtp#hzY@dcgFRYRIq!-5BAvAa=9cixI2f0)FdowrL7rm50h(C%^t@39zLsn
z?;BpWx;WGt<{Q@2O+bL*x6)KdYwV02DiwnE2KxIf+RcIDkX3knVo^WBh+GwUwCc`|
z^2myNa*61ncWdR19&)wUSB0(N;V7|FlTAx3nh*N91lzz{7Hwv!rqzH7tZ_FoSlf47
z1xw)zif<jakMQ+|6-gvJ`Sg;AZ^xDCEnkz$kIYk7hK|dl?1B2e=&`2WDoW87^688o
zfexb1N3~~z5_2|`MjSDsH7Y|L+J1P~KZ$nk5~4Q;il%oLt~)!(#XH>ho(`UQ9O<<E
zM6JH>K$Gw-X3cGnYWgP0RXN)Wv>?920gsV9Tl8%Bwp-Z(H+#-<=5cg0W?qi2`gQ9_
zGo_azB4678z*lc(we`xvhHXfx;+Rnv^6zCK0J~QXHS}JAWjFbX^u6!F_3-L-zTvf1
zxoo!7YOhCZWY7E-`o}>UeSs_7KkSi0Q<XG-e)jNYl@)Jl!$ePa`3DEMxToFH`I?2L
z(?{|cPNg0(%MR$y3&M+ag)qVLVhW)evzD~3Gg0x}RAHA+MwT&o!0AgRU27NZdxW|I
zi^*5a+Fq_pU*sU+>JNyoqGMYN;?gzLz~Z_Xa+ph7KE2A+f?VK>0;?VOTNud)z}Lq3
z!_=SzGYP&dmhabTycq#7^Vg#OYJPNldGzuum9`1C^Hh{R6vV|XD2`DvfYhH-WLSk_
z|3N`q^qswQ$M)ei{Dh<v@A@T#Cz#8wBn08*<R_C1!m>1@c>)q6B&X^0E!>5t@G*h`
zq|=^UDPQd@^6zr>x$`P<p-83<drO61E5~gQ90AjFbD_Vw3K=6xWzp=<Lyu8aU|lm8
zJ5%QmM(AD_42b}66x^+`g|-^ZIr&`2{=9f)Z`f7hst+HAWB-4v5IoY3HcepLQ3Y(|
zF8p#3+5Ai}#MjAY5H3ZCz4-1Z?>FN0+uII>m9=u~r?Mrdl!24Sfr$zRJzhd=QdQS?
z_qRW}6Sh|Z*|r62)e`~|%O=$F@{ZSGr9ZeMZqZVAr|P=>j{O~45N!<eb+Z)3#JD1C
zyI&K(Q~#Nhfnqttd{1wQJcTy6o9iq_JLGbqrc68(-2^}7vJ~U-`i>pS{rYKlVF6Uc
znxP?xrKn4bAql=!d6Ihs8sk6%Oobj0_?*LE-<k5HcEW`}NVmFRkhUD2MW7Cc0%fJg
zAs_$}f!@`U+Lxz052R7SGRes!w{mVqums6rDP=zVPEmcgdp!_E`5wP#$#0X`LM>Eu
zu_8&+nh5C|<#%SjYPrEV=jEqo<s|M9@m{m3e8PXYHM)x(Okl<JnB52h!hNm2dhb|%
zDPto0>AA!fF7l&I?m~ml0z`M7^vLb+(*|G@*>5n4DfBbPJ9!|4fE9+d{dB|IKKZ@N
z9{X$I%_lcVK(x;>)@qNQ5C=TffRi+JQ@U-eagll?5-8U!@29)Zj+Jh<RYI&}cx(!5
zWmx2~w9a_Pes{%RpXPeqlqaQH$nk`O9CI?ZDhPidb2zp=d|o@TFD@)!HEzpfcCpqp
z^Q!zs3oIi+fR{>rw9evC#^X*WlEN^VsEq+xcQz>NWu))!ujx+^VhmH-hk@c+#d!z2
zl+B3fGKX-Ms%SGDMOD=Mc<qI^z6xNRR8uLBKqpa@LK0wVpGpy3*^*jlB8CxQ%xS#N
ze?OU2s1s;~z>3}yr#B1s-DzH`jV=5tfN`~eoPNjt2iJla;<3}IC%z^(#7z2nTg2xD
z70fOGyb$u3>vA3S4fegs9Z!pmkpIL*{dcoSIz#zfPwt%pTK+ECXEJRTU`uSgv|&;$
z-1y3NW6h{=WA_xZ0W_d(5c2N(A!V##e$4d);oE|#=uY4}&-THaWdV-t%a2YncCq2x
z+ba*wNh8R6aTGdC1<Nx&7c3m3+!M{wvAQhED{$Q_AjR_<P~OzzsPkvlfDpPom<rf3
zG)T_KQ{{l_7@mQ$V}+?FE;FPNL9*&Wn8Z3zpy`CS4rCLn!^ARtn*M4yPN$p!4c<0z
zWe5t}3rSTi<a>2hrR+F-h9I{1<}^fr)^i*cr;a2tGCVPErfUlylM^zn66Fh+Z@IYU
z<t&{D*0fyp<J0+&zv(AkQTM1rPq#%{_}Z2bXhZR&et;}EcYI+Hs=@@%kGh<0cM=5U
zC=+<KT0U&|US@kk<PN>c@Nq^s?<hUNzu8{q`j)~!$>G<ib!So`8c7!o;tP2`d?@I7
zXAi+{MSD!n-;O7F!@!~G5G!h%1D+ds0K@BiEp61bB{dpw4J*p+4L5u>!}ozQ`=_Yo
z!D0Bg)XtO6Hxt`s5=ynJ%aZpHVY+oYrTU9fnHaVJaFNSk)(U08neLSyjD#G;^q6mh
z%_RWip{h{1H;tr(0iywrY|9xnyJt%HLQMCr@!<*waXxr`y(a_-8ROaRYg-z5ndZ=q
z5e$8GL?q{iz;x%Psybrq=OdDkwrS}=h!xVhiU;SI&mtn+(37_;@>_0_E;VoB3I*hM
zPZ|PI_?28Sc0+z}bj6*GuGh~o(Zz^&ZfNTvNZiJh_!$u2L1**u^Ahy{E!~k0ySJkC
z9G;mmp1ME^Sa}3D7cLIMY26=I^+WentkI$S*N2~?Id-*uxjx=Z0FY#n89%6nnyU*i
z#*~A%YU7bl`E^I?He|N$f4?^|`^P<h>c?1HZtKJ<)bG9Q@b21GzF>&o^3Rv=RzEwX
z3S?#{e5DH}F;HamFxo`WqdbyC2BUP3aVYQsZyl6k)mvyTK3x;R=48SOWW>AiB{E#I
zTpQbi*G+`mPf#TA0gc{N@YwiejU0%lYjU3cpn~ozOOOa<Y0+^l0N-K5aywb!fmX}t
zQg@r;d!PdSPsz(e72_P)(UG#A#bl78Eu%zuP?$L9C54=lF~{-bovNiLvxl}5uayJV
z?ll70H%Gf`!4<qWiU^tB(ww!c_TJlEAj*>qI8JRo#bs3LcNzToZi-90KbrvVv-M!&
z+?vzn*9~)KZWR<hYOy3C%@o-eoaWu7LW@V{ee}x2B>Hyqzn_%*JX9G?UKnVL9kH#E
z4VQKAkfBGpDd$y)-B-S+81ljJyvjA;c(aWp<XVDbN*uIoC8OPD@cV=j4i2O7vuj_!
z6<^Rg);UjWfO~~WSJj!8qUnWR8$Ez)4F?-7jdyIdziDlY0tC;6n^9ZVMA%zpXv)H8
z<O5~KT<A3-pM!3o@T&2rV=%<~cdGXb4m`ev%LjVE$n#j&PI;{{Enmg6h<=ZjX#KEJ
z`aFjo0{zhNI$w$>OlI`G+(|6;EEpMv?juh>aQX7^1B4HbVM1~Nh9bkW9M^hG2s(ZG
zm&d;>l(cNl*I?b&`0|uwZtD@cdq8wZ53%*Ce42Qg0TW%8MEf9S%v$0>d|PxfZHrwc
zbPo8{SXVSYrb~HV2`toBSB5LSim|vnZH(1-$#Y~WWoq;Q9KB^fD-p$rb^k$L*5pC$
zHKo0StJ1lwsH)a?Sa(n!*$2=`k#R=3YKi#yK0;=1Aya5D*HE4^GDf(XnU|PuU75D`
zDQMl%J9y!D4|8qekxoE?QKj|8%+3;Ob#C5{?wt@egL#Ul5Iwimk;TPDzR-Rk1%$Z>
z!y)vVXt;Hd#owjs`t8&U*h&sJL!e|R?m_VUYpkdVEO<t=*n8uF)2#Is@1>Fbdc{!x
zz+>(3JIfO`SaqB8+Qgm7j96@)43jz3-`<As&Y>CC^tb;_9GY?m4?Mx4?`=1!i-)}k
z$}&#iM6e<%uyde=XD0>`kbr?8PQ}G3@d{4`aL>XwG2zjF8^3-1FjDa{>>{>b0*9Q6
z=<-1A3~W|eT^V{Yk-)zv?;;)n;ABVrAVqCN>K8~>oU@cBlY1WG9q{}o-O)WEAQqK*
z`R+UssQL0tVJ8^Qc@EC{{PNzIGNQxSpN8TFS<Kd@wW+DN2k~f);ui^T-I8UP0VgaT
z%o>zQD57G-K)+d+0DyiZZReV|BaH#zVNQh9lg>+bUIZBsf}CIMl3d7_m?K!XS4fzF
z?)5@yI;J~siP^~y2{#!wErm3xEc=-^TfzNFoZ%3_Zjbv=C3SbcwGZUIUz#V$+#9eb
zxNA7s{yokQVp33BZpwn%7P#c93PwgLASTOt>ytip5U{6y-Q$vN>-Kwg7a=PkJ9)nk
z(2GSg)YYwqGE+nMjmUZ+bOVLg#>B2@Qo101kB>YWzeJKqww}IuWg^FwdB(*5t?vUk
z(_%JW;cAj7u*DQewI^dG;?qGuul3kgM<bg+LB*;+#O}atD7I>KZ~E@)s^KB`fin}T
z_xxu6Gu80N=V#?_em~4+LDhxqQ3Ds9KIL6~4CSPaF=@92g3IwY8BjIvKtWw@w<Y?N
z<BPU_6yg{P%K1f(lkM39W-iX^gFfzuG2%OwLfb%%gr&+FB4c}EUdx46lyv&$`?>w;
z1|-p{`tdYwSEjvUV@s7s4Q>{h?xJT|y!O@UQN3crJ&-brs=LyNo`Rm0K6fX<hIk#}
z`yBzk2}Z3gM%rltUz@Z>Z@N!v*pEsm`Cgsk@SoABnSYVU`t4F@q}<Dc6&6%RZ_z02
zoX2GQx*#t_I`O2mp6Mq8unmAA58zNM`a45O_BJ1@?;jF&>^!d8&Fs*Qj&7%n=x8m-
zXd3U>A5{4E?SvTHS6~cHg=V+PcHbAXI=h$%Zy=|95PDp<qvRx6P@{O<hW6-TpA>;S
zolrlO0v4+d?fz9#Z6!s|_PPn<S=yO8Jg2qG#=fHb3^ktW6$J{3`yYAcdNlBOZK4#F
zN6bqsWm!j`Ty(k<uC=`$B=r)VzidMPL;tUtkfND|F%QxweY#GweczliUqKQ?OAoqx
zokMmt&3?jvGv&4NJ2iV6>^1h?-OB^a;W8-=ygPiT`}XB;se!Eu<3?A`3x3sSMI}>c
zv=1CAt$c{`G&kdnNpJXgc7u_`*mvJKIf0o%(ov%JT3l+mu0Nzl{JkCsh^qc1hRNUi
z^{j-%AX?&02Bf1(wOo7H=Lbs#2rpm4@I0wdRRvG8OX<(}u?Kd$v%F?(e&1x=z{uw=
z@XfMwx^YzuKl|qGQX(q=7xMSLFU>Q6kS)O!#yZee#lEz`hmRx%HId-i?VH!&oT&zg
zkXKq8*_B>ulvkOo{PL9O2<}uz#FaXAUwKloDc_u1Nv?6cWglGOUSYjW?Ru9KCE&pW
zl`sE-P;}6v5{=AVB~;`QsbgM9lC%Iz=I~4MHN>#8RNz{eCJr!p9;9(FgQg=_9kG_!
zQA|M9Dz!Vf5JEG(n|y({ydZr;DLJrtrenBTJ^oY7ka4PKbeVca#kuIXuQBhld-v{Y
zzMxI#3I$L_8?j>eo-Myrxj+x0)E{~^)aQ-?sCk!Oy5G0gnX7^WwQ9KS#1}c}6E^cn
zB=l4NRMJ{WcZF@zF>^ka@+gTFg}2ZZ0@W7u3qOHq+5TREs?dJB*XBs>3|_Qi0uht(
zxhLFW^F21g8ppB%+)f0up<J-A`hWh;W%M1-Eb-{o5>Lp4O9MVvjrGSjoS+{n%~it}
z=r_;9q04e1;#bHFk;xs1Gp6a#;UxfNpFxgtsjK*025Ocl9Bz$*CD*$z4}iN9LhnJ9
zPWQ7U&teAnlVI$c--`nT;_{yjoQ(g+xwF66c@B>M8{>#TIrdIrGRd|uDUv^UZ)qY>
zn;?VWcQQHo1PFEIP#99aM<?d=^cXeWC%Z*E<DYbdkwl;(IXXLXw1oTN`_DWJO4*Qb
z%q`NIm5K59(6I5cD<<$d)*Dz6F3V7{cH3ytD0Ae{m^%r^1p#UkZ-Jx5pSm76V#P&(
zh&^<#o@IaJhg;$9^NA1G`r495Dc2`8@-DVF_q+ZbDD>W^?I85ccZ2TeV)xKBi5>9e
z1%kY)?`W`Gz@tviK2}Nt=40bBH+SLP$M*Hn7mA1Uo0IcHi;G1Y2LYJEzQ5hdEsCnt
zbPpaFVe^%{@fMS#12**$>BG5rez!U1?<Lsym{10T3PI!hz&*H+cM=1tDK$eO3wzbk
z9h(nZq??zG77jjo*}E>Kv`#7y_j}F+_Gw`I{NxHTAOl{ij={<VatUAW8zPsyS0alt
zuqn(Db&#N)7yaQ~-ekq*%F|W}&pd|4)`FzARyH+7?5JI5B6^#CxMHV$_yDNyRSt7W
zD)*F79x7CtBgGyM*xVhCn|AlOXW4^gfRuv~_~7V5rC|Pb6x^$*WGjqo61{q8IIjf8
zUtR#i`2j=D_KMAdp=asx+K!oWM}!73tnvnF+A`)2b74y|?Aa0@c?WRS)VmF+{W(?W
zesQc-olD<)!dm%R^fM)J=8KbJRGUk(Z8IYE%CdW^t8O8TH(Qd)3<)q5)*3P&5*E1J
zSf~EK>Zbvg)Zm<WQus@&rF`ZKlvQm}s{QVX_f38vYqGohVy1R|-MoHbDPP9-bLBD>
z-pQqFW51Dk@z!%D4{W798ej^-Sl<*IQ9?|S+aKiqgEHxusvtS<Q}myFa>XX?*=@1X
z_AKg-Q&N%>I`Fcvyu5!;D;YZ^2iBb$x>X+LIOhyM^>N>$KNV%J;CTFyKi<lJbgP^a
zc)(hf^4de(V;B19n)tsd>-ZnGW)X_r+N`Gx=)c*+H^`^E3AC*$kedg~*o+T-a`C@p
zIRCx4>+e?c-^y2Nk8YumxWDwjh`qRf5=T2->T#+B{y$x#^0#d33J0q0&RlB>DMySA
z^ZXv@9|$i>u)bnaa<1!BugljeE<g{Tha+q9AaoKg)+(nOR^S5-drmiGl!M0ySfGO<
znu|#{z0Uxa2M~^;#|P4bO3y5NtwkOWQ~Y(Lfd)wsN7*|5^ivH-_!#1Z3O*xr`TLcA
zZsA`4ehBE$=RH9e;7FN2zC*;aaQh9Fp5Kc7Xqcg#SiDZY-zM-;TV@riQ2jrO#996?
zPzrUJ$!`M_P;VDh5l+djfxoRVU{#X%h16JX&VQGPrv&W(;iD3cw8sA~d;B+d76hui
z!n2%o>I`pPnNE@ab}`eeVBxv95zdjCcMcSX8zKu|NETTa$9-HPfc!Q=RGCrok==Jr
zvjrfQC)^1riWANN)EQPs;N<y(j}Lbj{6HX8@t6?;@50+deZCztO`<Bo3cE&W@IQ5X
zRE}W1G3rZAcE~A~{R%o*ZEU8}XoU7(*sH?%hkvUB_t}|v@we@!AJrCioE8_L(Ae*o
z9>5bg2u?--&r+O-4==+GrqN*3{)trj1+V*@2-Me{Sd6~=XC<BgBhc~R<c%rNh6wWI
zDFWu=&boVvoB|dag3c|x##0PbN|wH5?ghg}5Fi(GLWzHuj#Qyo<g!)3kn66j2Znh@
zw3M(PW1<7Zqji#^HrlWuP+9{B3fuIZ#wI!Z_4bq?>eHt$dBoT5r{V7ZZn2})H!3?k
zMNUb|iVs^_f17k6w)CuUsML-1TVPXZR0okO`>-2(CyX@k&D}Sr4&e)4;c(jNp_l;O
zV1-vWRd@PhMj*^!^DK9JrE2t)hA<O@_sQt}D*64b)=kjHt7B2L!dq`=)UzM}Z*Aw>
zpu!ua5Z6?X0yuzLF)M{Q`c5k8nU-ck&ch*MiU05boEsm(BMuc(wA5q0)u;MEDa7?R
zjuD=aY&xX|lyi~oQx$}b0#7_>hTVR7U+l|?rV4^kpY6|CXkG1_NlW0oeHuxWz<u0>
zt7^XDbRB6gl_d;JPir*bv7oXy)XE`KV*9;yN2PtJ)5o3N_OcUrKv6~h?l-Y`->Ni8
z;&jhr?V^)Lt!{~0jr)pVBLMQUdsJ88NZDhhRV3Wr1Ku(FhVY(x4dMG8Y&t@~@ycbR
zZsk$W*0O4dg_J|cG0B3#eRDH%jBI%CY!zCLiB%I0(N3<Gn2}qe`5g!VoU!NNXkEvT
z5__&Dx=&A?CpW0MQs`&Gfk-=-%qe6dhDXT8KRaM~eyTYLBvw#cq-=5OsCA4G=9j1O
zPY_l|@91|{%<tMqzdtznJ@oQ4CEuY&0hZZd76oZ!+TtO5CVb0I^VHzLGi4g0=qHO2
zO^C)9`|I#i%ee>ET{AaE@ra#^+xqL&H)p}Rltr9$R5MMKjyFO<r)BI@CdA}k1c>AO
zl!BevaK&lGqN9q4kf_ey;o(Uy(A|4iTJN_7KSth0OHk4Jd%R9q!Lqrfih0o{i+vcu
z(%EA$jtB?VGnJyuHcP{x;y!rFjQJD|vGGj}T6Tu_CFt-zh<hfVdJ4C)Z=$%YKzxId
z*3XJ}cm!a5y&2;xChpI2k-eN$gF_ci^qN+HK-=V6v4qVtaUbis^xfoOr`c845IT|D
z)30I{zD}_T9WOV0q<2qXb8~1rd*u*+g^7sG=WvIoSR(6Ok?#1^X2IxcMqn??<>^so
zFX7`ZWFs*GTZF@C#RH0iv1Vkm`8hH5FBRtO?vw6wZ_^o34zpf9F%;8p&6`9pT^5Jr
z6PgpMO19c5ij3BSw;JX1XIlzaXV!X&v_evUM&lKp`9mSrFFgWpO<L`Sya3m5cs;nJ
zKfzp_W4~8X9T8(Ebr-SlNAWUl1CQJ3t(M3+NVTg-aM|NYtBIZ<;s6c02{3{C{^)Lv
zr$<iV;Q=eD#r<J7|7{*|doHOyYpH0vsvBZKayfs-!gbp;beTQe2-;_uc6GS6VUiCK
zY3Zk%2$Ek332A5X<ZL0$kPtAy{fp;vI!+6&N2&(2D<R~XSi(Vj)7=CK^=G!ob2zTo
zRnD-2a$HSyr>-2@uR!fvY_|?#`%4(yA&mj*%(341zpWBbAq{*I*p>w<`NDK#XF@`Y
zRReqSOjm*>mYsSAxYl_a)((Cbg3tPJUKd+cF+Qv&^D*Ru?Zm(Jw<kaK&5u3bOH1c1
z@lF?^li&>m@DdrHDoiI4J*u#>8X}MYzAz~NYQH|fToVYCJSy!;r4j8mS*ykAe0_#q
zkq7~*F|Ay?Z{-sK7rj*12g<wk_EcLxmEWD;D~coi{Ng1<AZY#(gK`gD5X;Mj?mWoS
z!HDsPPFzcx2z&ZH(;oJSW{(Rd1%#d>{`qPpLkqhQGBE33M^6kR#N5X1){#cY`>Bz_
zY7%z7JnCWZcG6^Tlt}mWA+a&CKnptqME_&3@>ha&70RO_%q#T2e7DfwB}DHq|Lmb?
zHdfSDEa=sKxlq|rk&Jq^+eP#FMLN^(r-)gOsUY&d#+QegU8Q5-6n$x+hX@MWa0}?s
ztLS_2_lETYtAqs;+ob6_kMt!IdNYlh&se{-y!+c&<_GR7qRRyLmaVVEAzj`mUh#yz
zHEgVa4GAJGbYU$NHgj7>!A6FHFdE=VqLf<ZE1#Pf`V=ERKI*P-oE{L_KxT!R(Us6d
z`-I<LfvPnfu-$)eQK_2$8m(erDmvoKGnnBjpT$hTW|bbX=!e5E1x5lXugm%ufX9ca
zvDo;&RWc=TQY*}1rfZ}Qj4$skJ-1s~ZAURZ|ICXVdSS4jN;@uFC=E7Ox8?#*HD6kB
z->-2u9HV<(z%8-!dH1i%A8uc>bi#Z%QTI2tirOnL|315mKwUW-ycQ}PMYmus>sO?;
zecxk!bNpEo%UE)x8UwjJ0xI6-yQ58%Q$tp8TlT4Jewyp#U;%%m(pY4HUZ}SXeY`ag
z_g7hd;1XKkj-TL@_wz-sq$$Hrc7uA`j(@$VG95341=DMDmvtpo4N*z`=R3b@ird97
zv-7~23>ywifIB(5(BO5#GQp;p&T`{P|J3pxhX827EzaUeZ59!zfj;Tgp1j;tL*50A
z$%7Y=HC%;NXtK^>-Dj_|xCYTN=|ko&>F5i2+JVg!5gb{n$n&6|mx-rSf$Kd_7*QSP
zyN3Hf9C=Pm6y%LM-xI8c0@f4E(#l;wQ8E?WdLBvr(WE<UGk1BS|9u5Ds5$M{>sYQI
z?3sejtuzO|8WcK8QDmCD6KMn%?-t=$CsQbR$r_(`L*a0y<9v9}SgP7JvFL-voPrwM
zIvK0-l<D2<pbFr*UloYy>`o*kP<`vG!$iH;%E<UVXlTf*-rBHtq)=&R7bcsX;$XZ-
z_oNUpz;oul=&*V1%EUmz*kW++8+{n?;K;qt!%IO!Js1@)T58j&>s~EBw<BuvQOG&R
zgSKe4biNJ=X|{>Qr6{=IYB?;pqhb=;J$#mDsrZ^!7Z#<z_K_)Bf+_{+uA>5NcpCA&
z-l18Ah&ipDmaMzN;y{WbH1Fkc!h;op&UU?kFn8^YYu`=*>#_}=1tb8^sROuPhlf{~
z7(f4NR1L11(;6p>2*?10#XXoH?tO7emYoDm54f-W<H7YZuu54P47h7;Q!}nj07jbl
zl`0^D{<e~&(d~Re1$}nZt11%VJUEkMBTv(S{w5(3)vlnK;9T}vuN&pmm<!jc?&P&`
zS|Ul;86VaQw8R(e!kNdx!FNCUe+2Nxh}-pKhGQK`ckXR|m67;|4gn<O1clbMEzboq
zuBK*Q;VBoH$cYVC-&T9){>^(YyL>?3NvT0ohjhAhm0Ry_B&4|z?YPm;3)U_C8dE-}
z_h1WxL(Kph<ONFP=ClR*T?L}~qlaVY!$@4&iDBZm<tAJb;;b$8SSDK%(6hcFzESTz
zZ|D&jGrNqbd3T3BNchk|JpI-O;X>4`F&GC5qS(pH47A28jOrIGmpVn$Y@-j(mA5N}
zfD2?Y<^}#U-jJoHxvf>FfdEs3fF|?Mxbrb00qsUkO?@<U)wZ^Ky(M*;nZPYk4d98o
zNcP8uI_D$!;N29xmtow`R+W-vX0Dwuk|g455}S*sa|t938Xf1J5-PF>adF+=G;#@%
ztByl5#njkWHLaDX@whZ2=R=(Gg-!Mhx1%9rDO$}DRrBO9n@~k~A5c+-O$-Jy@luQE
zGG#Kc?sBkjwYk!2v$AYGGwT>>QBbX^;BLYpK~kARgEe{mBjwZ(uc753zPVoi^3-Ai
zqAB392RCm0pW3cIp2_u%&zfVCGE7PlMUv1dblQfAlH+Ak^rCr5%T&(tHc4$p$tto_
zktB~JZ)M~?L@$!JVP2;>Df4nB%~-?A*m?Bp^ZWe%`u%f0=b!tZ>%O1+y082DT+jX7
z_xHN)F*5$_Wkg|aKBGhgrFY2fBbcVp3devmccvcx_s#lO4>>-ih#)VW-rhRUOUEhr
zU6v&{=sbkgD1YEZ=)>26pXjG3*u_oy_6l&dlvo_z;M7)#{%a4UfN@1dQP1J1GSr%x
zoCUc8ceVqJ)OVs{kp9MSiNoG_D00*GeOWjK$ZH543Q>Xm-@+jsmsv*(Ad3<^tqA-5
zE`1sIc@6TveU7bDC)qA%LwSdPKf^TaJ-CI#h84g8bKej7@ZQ#BTy$upxdtin(ka9$
zkoNvRi>mY@gRS+g^VGPz`t&*eyZ3e2*HhAFb!~yVfV;aiAYY4CJ>e0{pBlp7$YiM?
z%C+ROvbqz%axWHLhMdkamh{VYq@Qu;(38(SUhy#Awa)oDsu;h|gYcuu_k~o2o0I>#
z@0;$8P42Y&7UZL##v5(quRfp<5lxOM9EZEO8=DJ?$>%eI6vb8sW!JpH3gn%plw~3K
zXP|INGc%U@vpjWvo-ZAkxJJkM!;dTe>dVxWKL2G=R*(UzpKHuH4vx^2q`8$gsx;lF
z>*#7f3`fPs;PA+b6^4{=nmAww%oCcE6=wZAAw6Zpj-#w<&oSgYzoA1AdJVse?jsC>
z###`2vQh(g*_2+{QUhyk*NuCYo=MeahR(C~>iKR4Yh%plZ<VDARqKn{+}$p_bMtJS
zPnPX8;M9*og-N%zXEDs^9ho~nwj+ORotJ{Lho~b~wIiFINq`FgCYEVR7p#{te3^N)
z%Bp!jzI31vwCzS>kNffzMU*2@5WThkDEq2_;kRMzTt;-DV7uE!6?w$^YuOn&8?iES
zN8PuBUqdPKPg8Eh5SF~~?Kych-fIbovjwpVph#>;8@pB*E>cxpvsjZp(#EJxfrq0o
z^7s5P3p3xNz|5w2Md;HFAl9G4&}=}5()z)N;4>oNi&eGhxjn>8rWVNu9)ktJ?f#fZ
zF`;l~D^7R)B^;Arrf(?Lc$*DN#r^LN19RO<T1?Zp+ZWEmpw?=KSM6eKS6Y?UD6UG~
zIVj4RISLdfUJsK7Nt71E&_r7s17ysY9!JBjZ%4`Pc)|XoKu<o`-}l7l$%RJaxq;`&
zT7u#H&@@dP5>zZ-dt4ei#~0)VW$mFE(dPM|8>ETC$m`q*$?fLfK1cc4tP%QP4p39i
zmxw1*svjo)afo{+-X!T;w<^VT?MlfvgUs2PvA>pz7j3w>)ZSzndRy&g_FT2H@^3i6
zD3+&2;sZ`YB@<2Ko`q>5;St`w8W?&(k9?iC^vD%RtOiM6d!iU>0Tty%i1zSC1-=C@
zZ5H(F+Ebn{?B+Cs5|oUVha%J#G)gjsw?;-<OoGxq3e&ct<vY|yJDz(3Gfif1<hq2C
z^ahg`MV%3oO-f&~7n^OGO*%iWq*uC;V8=J;C5_m(=t2n|an)BsjDlSUjUNwh(0u@6
z9hL)9K3p(fYmCGtzu#=Td74rhRQ90?VL`=YY?Ffr&6U+Yoj%@5QAE2O+~5|Mq{BvE
z?PmIGtzk8V@lI1yA^J1oHfRFq#9$O#_iVr^grkZ1bdsO!VpOmh19ts{NO_DXCl;lx
zZt}|RDm=IH@v&kn|4ke)?ob=wZ4b1axo4reJ8+@AAx;AX)k}53)x%bI8;Ubpvxwta
zQ~MvCe7uHE>5MoTRTA2K1XId#y$82Q=Y?Mo>2rvdF0KpRO<vg9kpPJPcSs5f%7bhE
zxG8aT4k`&;gOIeu4U#hwkHc#GirN%;Xn)?oop!8E=m|5<nB}8(zq}&r!tprVD@722
z9HhhSBTHL88&in~uVNT__h%yu8qD_G3$$E~8|}~WffBqL7E{Z-q>+UPg*TvUj<uq%
zMnf|U2^o~)`o*V0)KH%qNj%6%+slXdPJd*Lif~K2SI}cYngjzdPDnAin$q3MO))O>
zaha{sIzhXG%%7lSK6s`2{3jmzY|kxY=c{Ldk8lu`B;|0A4OG|7wJfxzTbJadWmRf!
zi??u+HJw;p+4dwylgh;9b%njqB|5%r^B&gf_cKL%qgc~F8ke)GP7M*PF}=<-+e9!D
zFsSw?o)y>2ymEF0!GI&>)-p!oXIE65wl0voDP1}ZNr(gI&y*|OHb1#G${=#nWsx5>
ze3wR$Y@sJ|yhS+Ee(1uNf?oUmj%C+^BNd2Y!CIs!5#F4><vpCOYBI#=^|F^;oQw$D
z)kht3zl&kML@e90|3LS%0NK@pA%P26ve|Xhi)}R;#<fqdXqri@TT#!$uNm`MRp1Ir
zA~NF0Vj>6XrsoP(9iwbxWlwKM55H1deg?1gLDDgh!LT~WA|S~o`<zPlfM*MQe=%1{
z<7d(RB*E8x-O)2Hl+~?<7UTCjSX($zZ6udqjd5tZBW}VFL<rmFPfHy;^HCkUb%}@*
zbleL=X}!t-$YnR*VPO3XN~bzco4UI?UdE#SBfUUQ=nosn%Txa)M2|y8EJcg+_e>o+
z1b=`<3aVgoXge6O9CE=7`)mc+bO7foZeYd_(oQd+v8#>LVakvl$bVWS%QxC{opt6I
T4Q}A=RS>6rZVp9z{bK(H!5->o

diff --git a/_site/posts/2020-06-25_diabetes-prevalence-in-nc/diabetes-in-rural-north-carolina-exploring-prevalence-trends_files/figure-html/c-g1-1.png b/_site/posts/2020-06-25_diabetes-prevalence-in-nc/diabetes-in-rural-north-carolina-exploring-prevalence-trends_files/figure-html/c-g1-1.png
index 69fcf952a4e06169c998f76f4058d8f1a3e70c84..9332bd5b79a2966beea34296c72c19ba6d4cb128 100644
GIT binary patch
literal 81902
zcmeGDcTiJr)CP)15fG(_2uN3|bft<^1*C%zigcCUr3ONYNCyGwgx(=k>C%hz-a82>
zy@eiXIGf)$_nz~|o%`3lXXea&Z(y>A?CibP+N(V4SuY_URON^sP(J{HKtu}iG8!Nd
zt`rD_(|Z3d@E6Z}G7-QV!B=@*XAp=k==S$c<m!PL2=ol3AoEt!J!NOn+vSN?^ZunV
z)627V(l}DV)~E8>(kcA>2CTg<E<^`}yadP$NGrb%sRxCP>p+yKl|cq&_PQDK;WGn;
zq3>idp3dpth$FjSDh<*_gPaL1L^cViNch(+pXT7GKjUZ~Sh^n?ym={iqT~wEf@rzA
z=5u;Ua`v+<HWa#{3-_8})sWrY2Y7zB@`6B4^NCSI{~dwk!$I`_9pOLwhJSm|dguPq
zo!f)2pu6t3?;zT5|9i^++U0+p0SJZv4U*f0@V}Yi)(ZdY4F8WW6W>bS6d6!xx|(z9
z=Mv#iNyKJ<<Vx@j9MjCNx?P2Znf&MWc4EAvVrEy?PSH^<hgy;Zrzunol4CuTQS>Yp
zNwd^XH*5<yxV5}Vl$4afKB$T0LZM>o4ceX#ITCNSlJryB8x6KJ{~oKJa!!KQjdviD
zPnzm_nsrl;goifIBlj<_v1{hW0rRUIC47&yUym1v7*ma(D>|>-Bn!VT$$7tjMJy1j
zEfD6u1(|rl-1yI_fzxZyr$zFj5QTO))%tCi+xunFcc^e|B(IPt*_+%Rg4djfD=4}p
z&NxV(y+^}0qN}wv_L?ASe2HFA((|h0jz}<wzO~@h$cHT_owKBCM9dm<{<?8wOI>@a
zK;hSdQE0PmZUjp9ig(vh_1Vj;bx6kY+jL`@MzxLrG!9X&y>SKCc{1nmMUiOH0(m_{
zH_BkS=2~Cx!;!y^%vCeKoZ7tt14?$@u+ja>ZZ+DU*#Mj{4a}E#Bv6c4h>*r3-mc;A
zOMWM}6@nh@d#-SpUgR?D^z6|_0S3xQa6Q-bHR3fdl-9BNeT_dpwa|-$hVE>GhdwCt
zZhrwLcORx@Pq_s(6ALW?D8^m%?r53u0H&nw9h1{eaiL{|tsaUr*gny#;W$><^+(<#
zi9Kvcw?2yWLu$aM9kfw&GJC{QaQf>d4H*y#=$GN!w{JaEz-lia5fQ&vBBKu^+VM~z
z0EuDt+}n#9r>;W%aFTZJ2cgq0Tpb}o+5e~->3q}j4!>`xz`q|R<)v**b1z#3^fWyo
zb&yj7t9ZP1`IGi3NXJ2xXjuV=FrtXZSO*<7dT<@t0(-n;Rmjf!Ar+V4W>5Bk0GY5X
z$YARhXHkJaWIy0YnYa!;M*PKe;;ur1nB2R?@28ukCdWN{_4(LKzy~u?#yL&>ft0$O
zhw-l@?S~dJ5z3IJ3&toPr`{eg@v?!)^<^1-`v-;%t1&U$(C>$N%)(&MGx2--pl`|#
z22EKQ1<ZKaUmY~aGk=Fn`0eXbZn9&LbPN_GwBAbR47pN*vWmLMH-#K#T32bm=6@6M
zJ3`w<A%_@aLI1ZVU)p2}QR1cUpi{<g_&<vtCv1%BXR=kze8}<aKs$GbA50jrbNIZl
z+&NSXDdJ<{X^Hi!%kUivOe8vvw^dAqT`OCff|-~I(z%Mrn2RoPO_D3vwfFh-zUkrN
zy&+RIFB~L{x62z&IN+45UeWP6yJI*Q&^f@sb=s2|u_FJQiinixq$8=>63l~d;iAs>
zZ+&`*pZwxcriK!&1h2-2aT8Ywzn(t>X|wjJ%<%A~xX;I%ZtXOe8Z>&8FR`3I4@aW(
zpHWLQRgrTwPj4T%H=WR_S)#tGOGLCW;P)rg#_@WFmPx%=eEN-`iw%DF+XQ1I7M|3>
zW0WB+cmv0atd(wpO!`eZZnncmhP2PL)V!r249i3=l{wdM!CrSGYyW6s!DxX}c|zM2
z1j$En!ze<UMdcF$6Nx(PfeQJjo#%~o7Z&41qT6X96@yFXd>*U$@mGD64ssuEf~~xR
zs)=cxBcjV)M)MjIU5V3wrDh)4T*5<p!&bAVu|EPIAopj>V|#m$;2i@=rLL9<JfEov
z6v$cR)yW;g-I1AUlas@mV>7iA@*XJyoR_}z?jRAi%`b9{(Z1x7r<$AGgDaT2qBr=_
zrV2Lpd9mqI78<9fc+`q9yP6I1(RQ~V8oi3c-F`rUqOpI}^<!r;#^_FS7ECDF+dh1k
zE6(nL_9^_D^QMF-SAl{;$z-m4<KJB2GIF&4+3d$HgF4HY-Vu0c?3`U?aS7F<UABl#
zYvGYQ=~lRv_F!!HU#>v&=80vj&vo0qsP9vrS<j4IB-}(pe^vIy*>X$4oCBtYHS2A!
zDl9Vm?<Bq&gFFKL;Mv5q7VTYkm&W99jgsv?m4E#%+9ZD?h>$_m(~gCJ+c$Seb>I>z
zPEU~j%sk{d|9RvlX~?YAvplw!3c`v8d;g$c_!e-=rhVfM8=vyF`b#jW9ou%fCUik!
z_1X0o2lP?-C!CT5<2pVDy1LsEVLne5D^wRFU$FA(%|n;Kd%R2*9G24gX2*?Nkap^s
zH?lR{#ALtrH@RSln45Q0^fnoBQOBaOlc?rIMYhdh%?t7U5IN-&Gc_mW2BoLpsDP-m
zC7=HIlCdUGP4{S<O`h}Hv}It2S9}h7dq?Y%Y{Pt99t++DU;8L$^Or}F)3BSp{x*Gn
zFNtAR?@m|EiC~Rp$xcoxKEGK}I!XVf^1nW{_OZA!h!ss7b3TIcOn_&u7<V5o0*-Ii
ze&sTp)OKa*{b^is<3jG&{=uz~^aJgi3P%q!y<G;qH+>lO@4CkryGdhS?6Q9bnZNX>
zmnwxSc@~(NvgT)WS<A;;4JtiJ9ntli`#gEc@k&YDicZn9(lqOc!G`A!%a&F~7LF!U
zOmIl8v`r_|$<BUVN8sHFuDtJ-&k>5fdb6wvdlGV2eLCch3)ZHA%*lshZ!$C2yv&Ik
zEbYX>qhBidzWHQiRxuuSzIv$uJ(a~9)lX&_?nuznRI_2G=Q{au1%J}iUac0h$5!E&
zYJ8f){dq}43Pkd(Rz}a`uS4nAI>n+w>Nn$w6SEnbyM((G)t+wd@Ml_o@*CMF+|)$0
zs+QL@R?hpGXMa?+w+|=EO{I*X6a_`Sh!q+@CwF0kf;G2JJaq~O>-emU)ku;1+w6)#
zA3y#_W?@hTmjJJ&SI}F&aFs)QC8p;{h>q12D0?GhqdOAfv-({s=%rl)wuj8pcW9z1
zJX>~7<6naK|Ep&QQGt%v98sH&GBO>gg`J{;uMK~;7js(b<IK&$Rf*&2wU(bgeafh;
z%*-q-6sQ-99JOPzYhHVhP`YpQN4+G|qsZ1KA@A`up*G}GBPizBn03LaT)T$7!rC#t
z&V5z?5!KsF%z1V`?`MvNg?dX@vo&Sebp?L2j7mkiCL7laIrQs9in`Ri=wm8(CKF;V
z!tIwwx!M~Y37hW|v;%Vrp4PX!?kVK-@9}yDDn6C62E5Wq<*iEODWi}Nta4aq*{#mN
zjSHM=h4acrreV<@A{#I~o#M4+E!t6g9v$ATl5OS?5ulJ#Lh-2rC+E_`&Q6VO$63?h
zyzoq1aItMd#Bp@1AI_hfR*uT1YwDJFyCdfyrkjc*>0IoEU@{S$(9vbCpFoePIsQ<-
z!h0Q?%0k#m2(*wQ1sQpAHdCATVU@g0+dDI+8I^?-t8TYI1pA|VJ0fH2oA6^=(_+v#
z{r#U-!~o!myrIcHf7ZwZcnb9g-uG(=lH(0I^co)bj|DyF_zf81kNE8986UM_p|-F9
zqu%$t`Xzj7MJ4ITkBK5lCNm$~LCOHL@w4bbpG^|<`&%=!JZM=r*)*PtMckJ1*hj{>
ze+TZ3Mh@QIa&pf;ndM<0NrNxCB=6W1k8@{d`Ei8*C{(TlaYr~-Yu3PL^TB0TiDo@9
zlJCfNTc&&lgz<UwnBMOxvm2uOZae{eu%ct`g8j{GOdKYCR@weH;f+Ld6}{p6z_4WK
zOYcv^N<J+ub+bC<Z3B(obz&5Z5#E4Z?%mp@EF+^aFAtF~XT@F=uUjLO>}Zatf0nHz
zgE>Av77!GioQO@JOmvu(335oHYC;^DS{CnA&8l>wHz_|wYbd(kodkl>0wqD`x~imn
zm6mm08WE&P(r$5@HMlfs-wo$Os+9U{8E!(=PI7~H^d&ETlwyA#jP$>wY=QGuE82R&
zRb3FyovgV@juKw2ghtCu&NyAokMTay-Vytj!Z-2=x;CqoyEwx2qHMDq8IbBRI%Rqt
z!8&L;J|W%Cm}P&wDTfpF{bA%>xX|m9`Q)|AFKtqP{3OV(0Rc1Y*=5m0GRX<?eL}cO
zmo8UvWmIJw8lBRG8WrnVlOf?dTXn+|aJ~r@dOcpA!wJvOQcO>CHf|AFn_QTnNmKKt
zOk!U11jp7HU(<$0^_4GbeM;oSI#nxblRBG!D7m3s5XQ^z<&kV=4Aj6MAbKg)S7Xh+
zna`^TG*(rr^(q}l-;L5l(-1{xbLVU76BSS=Qe_*V`bLW1yFJMmS`SCce-Pv?iL-Nx
zKixd$G^T?*Wq;u+mP6i_++vw6KBM=x@IpcZ%IB8H$nZ=7;%uRHcDZuk_H+YE0yeA9
z;yCc#u`D;Y-zt}fe+=Cl@Ip*#9;~MQ*_2HvB%jNz%hJq#nti@i99mlQ2%KYHx}SI^
zuAfkAB?M%XY(lYgd{CgQ-s`S}sIcs`#o2!)BqUkHO;j5nRH(@@!HzEd{(d$VoLc7K
zCI<0O0&In8wHx>MJBpJBU^^zLSE3QAa-41nTP0%1i-`UAAs(+F^^78u^IVVayL1er
zb5EpxzbDY=Zavd&o22O;6r@NXvoW)|Ij`_pW&6C_H{DnjPT#xFTKG=G?#p#n_`C-C
zxO@FW*~{Z$hxbFVZ`h#va9)$a@Hi#D6jTKC8XcIb;ZrX&)iTlR_NCf7^!!n#cV{|Q
zs=YHl@s*#>Z<Ped8{<<`NynsK+ZUffc#m3fe#LdZYJMfye0o=<w{~=vXW?0|5y(LR
zL*1Yf4fDHHvE^h%_5CBNz2d^#4}`z?9EMx)h6-s)nW?R6%Q-JFoG{5L83L3%?Jr8Z
z_mLN}$yry8C(9TWy#0{6fmQ%2g_=_(UCpsX(h}K!VR(4psb_3m()3Y;jlfgscci6+
z30|Q>ICqI5^7P*RXm(CBUkJ+ghsk~MZz<pp<76X-sS26r`}x)%>}T#5&+31uWYQJw
z|F;`_?A|FpkSKP8Q0)A-d!M<KDYxNMHQznRqV09cT<5<M;ftKo;2iL`&k*5FpEc-U
z%13VfhFf7_D~LRLftSN?Kf3RibVR(b^%|v^INp%ep?8q`WmP`<Bj7X-=ELuj$B3IH
zqWI<wWsdBsib9s!ZrFlQ6h4=-0fTj3%Y=I2ImJX|w!Y>E<b(-xFvfiw2imV4D~ubn
z`*wY-9CIktZW(9oK!7730{A-*M}gIrIv!IO&%hJ<@`9uN{4uHU+4iw5=}q>6P4z&*
z!XW8FC!<o)OwG`%B1PGg!U~HfMglW7w-)-yTBg~GQK5ZzG2}j5>8q=p(st;b!qZ0$
zeqWz&3UPDC+2IW(baKM{;reVZ3%v}PUxcOR4jjtrBPX(LDIr_jhPw*4&Z1dy9~q(B
z^{|hOS0S<+u-Q|1zXZ`{7y8Sp65T8xwXvS0*8p*UGW2`f{+O?0zN8a2X051^{fcQl
z1SQm)YqGs+=ikOLdHNXdXDsJa!U&gJV){|)>F7M^zy^0s@q^*b_=;Mw${+^AfFz|C
zpPv<N_yUx54?&cA{{?4_sOrj{Fj8tmJ86t$be6yG4$!XvpOP-GKRBjDI4ADoP{8#w
zdCr&r)RMg4ILl^WAvC4ABL)IVmEKqTw}G*vCraH<P4@O7J(xg0_1(h&UG@ImO)k|m
z(%6?T@4Djw;yg?6X9$2?F?D7JWmjJAdzv!dA@5EwRn7GGC6y()y%rAvrd`yF*4y%{
zYmF!Bq4^@k<@bDv7^M}%?=L=ok|Axy0fAQHKio%S#5ZOh`P}x_Fd4kz26O~h;@+sP
z7M&Gvt*DMi(ElhV+HU}$zg_?LaqypZ<SkmM)`n6=$8-UODVq+uXz;)q@VlUlUUxG^
zki$f&VZ-}34*@lPUhXvv@33m-fj|ZD5@o7)B)6h|!vTW+_FxGFppM)18gy%BU=ahz
z?)Lrv=cky+y}<$TJkP)4#b%vUmr6;=e1D56J`~kK-hhWS!~J>fFV1aJ<#2csf`3zL
z<-!MAHrGp*P2biwc&(x&^Wum>-xe$&X4K0l0rbJpVLpl2nnIi(WmA8;=$q|K$|RVg
z-2+o9@qJK5M@#RelwHi&(j(FY&PN;8P_H^nCzya>o!epS!3!c{QUVu2@n)|WNk`cG
z=+r}pq}oR9xB>F}E|U^VDhmuCkjU^}pJr3rKf~n?g;eOl`Y<kG?!8Zv00z)qMrqEI
z-^W`F+e$-giy7;z64x8}u78;)Q^aB1D1E>}$g&L;t8x6oHH)Bxl`@CXo}Slp)CSY;
z+NxM?gFrv$cS@E2sGbWC7VYvqiAe`8u5u>}@~H!O9zEZ|yftp2^5^4&qvhLRaY;KL
zsQSwdC)cLENQI|_JkWX(u>sx`<%s6fWH4*YIc)UFS6sg^&7jn+bE~5xE&Bw{{RQ3)
ze|*sE;KevZ^wiB?R<x7fXhX`a3Ut-0e?Y$ifkZ@+;*Ke}=NGmY3@aRRma7ZyDJRRE
z>Oi0xDZbX_i1B2uV}s1=41DFY|9q^FmuAC$ZbnGj?d|QUUjMi?PRClGri^M+0bviM
zj&f4mxb}q>-aEf_N-eEAzcv9$LXgcZ{PtZh$H6Cl8l0%s=&8w^+54Q&^+K6c<YJG2
zzxSB>4d8K6gK-GP4I@o0j8~;^ui<rayfCgoo2+Z(qCLkvXs3hg81(+<&50^O=;hFS
zocSLFSvT`j7nlw7UHc}=3ExjHGW9h}8UimS^^K#ljJdZB)Sdc5N(vs}Gb)W(TgC;o
ziWF<*F*1T-b6!jNcqA2wntpN@ou>UnIn`A8RC+1%5gd|F9VyWA>i*T}!#FC#fHmRd
zMv@6P+`Cb_8x2X;3?peBKz_>aRW#c|9lKk+-0;~z>k1P;{R~9S`(W5Oj*9Q6k?WD`
z!0zAOM3+iwI~@&o68gz4t+yU@C{H)^a5KuKUy3{z1GOIT>A<^aR}Od*Y$%pRf8qcp
z`f=}u75y)@Eu-OT)10itSC{(V9Wbl2jyMCqA=+fnHSGHU5UpPue`x1@&Nn*d@LMN9
z`5N3dUh}F=8{9>^Z#XLHp_w9n{B3GC@uE)&@tB71z4zFI_0SQ%&))|0x2n*Dr~UWv
z&GyB9iY9gtOKG1Ad)PGGZOgdKq<q})Fi$m|y;N#xk&MyNA=O=Y$*Ff>6Rg4v?zm#=
zQV*vC9QJajK$%EgJI7feW7D^S^@N5efpg?oN*Da{_lDJ!8E!=|kp6U?`&z7w>~x-O
z7#$zq*=_R~ZxK|I$+j^N%x+vZ1v|8WMYVq8nm7?Y2mGhCrtir&G9b(LJif_W%_O%x
z?!HiIx>kj}bQi!LxZLoji5AimI&jTSZ1T$<=|XO{QyKX<9c{%ypt`}XzKP&lZ&W?@
ziUU-xFG@r2303fjgJ^Cq7})dVHMPn0L>|&-oy)PVo*rX=$SIBw<Qymi+Nti#U3-(>
zSc^qN!)l}oZ(wvU`wgpuT|&R@Lp;zoQVVCZ2d%z94UwWagB>i4_8d8dIN(!G2B4SJ
zt~XJV*L#QE4R;NzNn8R@5FqfrSj-5<+is~Pr~6D_x?5xvA!<0G2IFL>cR?=?ZOfGJ
zye0v%5#R6)G@;*2;6QWOgjdY4x`)oAt*Kxupo0{O7vn*1<FmY3C~FUS`BZVu=-A~w
z+YT=185y5C{O(t3otFy*vX7nDhZd`Crsdb~g1*r@p}a96Jv0uDpI?f{v4cR41KN4V
z|9?*9FWqwZm!4u4At-qZV4Pr)%?F4`_y4}@aVyP<gSf*F7Yd+~KZk+eO#h$dX7jfA
z|9_v${^AQ+9BEtR-JP2iFSz1tvF-H6@Nf@-n_3$3pzEKa>0&2q%Ggz*{)_tQ9!;KK
zKdgfk=oa*Jr@5nBvdTXr)`S$l$9jDI1;)8%<g3p3n#1p;kWp3n<L)ru1F`-W`?PH#
zJ^ypWmEBrt>q7Z^lm0AoQE<{VYQs<luK_ZpHEk<yS%g6#fl~V4UI6`gV*8R}Bvl0R
z4}LJ}29QorFz&x4s82%7vS;>noxefQ2=71DqLfctNp^kA*E8gOba%6DVkHhT{q)lj
z+w?o7^IHTEt95QWOXI?7JC&26x4p)riN)KOOH=jsq`k)Kmm6b$#iBC(8qyK-A~S|M
z{M>W7K3{EI7ezU#=V=aQ0s%Qnk%gn_62Fgf{gmYFctvmTxit2r6d${!B#JM4sN<gv
zA?@WfI@$>JBHcV?+w~_2!gA72($CPVRu}2Z^jXuio2(s$CJ0T$hx9CMx6p;MaugBC
z9eH%xSohaMI$dkm*Vn^bre|NjyuCIM2c|sVc#X!9NF@D@tp~Cy8Ej|C<&}_$YL<Ax
zXqGnPbM)6!XQhbAJ?hE|tc6xfjhA#k)Er<HMqxG{y!#IdwHAEt<~o*ULq(k>zKI`m
z<~75x5TRsMQzt@Ee`@b*zJ=O0`fROy`a60Q|G51>Ao8AwvvQ;;fZkV)Iz_IlGavfQ
z@J6+D!s?vS51m3A{a374A8M>?wgNu`th-&`Z#_>InO1u|N?xXe)|5<hXkDmt7Btpj
z<yX!TZhF4Si#U#gB_Uh3X)Z;D(X-c6%SJHcv(Bu?!?ixgt+2~cy77Gdfk>0_7OYyW
zR&9tEx;%oCJ~0jF{JHq19IN-?rn58mP2P&$+R50qqav0rDXniJ?^rW0ht2yqZlPE0
z@VHBtWJ$WeI>g^1WnASc^efiraxI3_X#8WtCES7oLL3VCLkY6Ved?V%&CKMpXV;dh
zu)inkH*({7HImHD<I~&d?UP!&Xf(Iy&L+(LS>|#S{OUDZlWtu+Y%In{Aa}UH;PO|_
za3^qA?eXL|n{zfmG%yrw(DrF$EKs_^Cd~tI;J6dyVZXLm{rgH1BZA|T1hdFR3&7J#
zax$rQ!nu(2Ed!n#@1?IEu1)!-i$eBVP8vVIKEJQzQ%i7K@o}!3n&QdDg+@LZ`#}wz
zWs<{li-?KM<PW198dWU699(_PAMl`W<7Pk?7b~3WEV~je{9`JTxKKIOmGS)@4zRvD
ze2o@}vlOi*b53yoaO<tN|F;|*iVdT9{T4;ZrmQJLh||?hjvJo$(pOGvHRjbQ%RF8~
zFm&coJbAMUrNb?bb+h%$F6d}Dm~72FYU5vSk-ny*(eVh4t@TV!5MQveh@gw;7X_jj
zkj42P8)JWga^(-s+wkV1S;V#f!|WCnfE4&*nrgLLsYI}h50P-*^xy9>!wD~9BqDau
zhkZr)=4}Pw@@ul24{((sk(FgFCb@^`c%ty`iWCK4w+&Ss`!}Uny2=qH%V-fI=y;!v
zQlhPdy`->O<xIHR{m6xK$kBz->P@5Fdh*)vgqlcYV{=Qhyi7+6R`-Gk1iBAo#jglH
zav&F!B8rQP1)6#0-@<AWsm@Cm@ZHx<-^uy(1#D?N_m_*9K_QE;hWm7g#C`}@nlEyw
zjTT;n$JtL7;e;O<#IXMM@?1Sb;-SQ*a|lWm$P8lE;<}ExX}4{?e!H~!?>CSsQi?77
zl2lmt8$C{K{_m8BHAKOLJ1FgHskl3+nxTJzZhLw!%L*OQQez~Nzl^IDLXY3`r^B;w
zK&F&&>~ZX0djUZ?#aG65BO{ljw;Q`LKZE}6iTYSp{S!k6K~};D_q^CoL75&q;b=J}
zW`ER)Dz)dGvGKZm*>eW;-+(}&#Fi!t)M?UIfL_c<mCm5<Uz=T`n@UX0_pg*42X?tJ
z4>+f4&$PgoXP0_j{SOQuR?*)TNH&s@IXzpeODM713o~y;)z^F(YAn2V6h-OB{c_&i
zwliw!5NChx*u#K1WBr|g5F*HTkhdM*uxOsBRmq2c$=x`{;DLHLIL04wfR`Sd+TZs+
zXyQDS&1on#-){S=b~@5lBIvr9RsA95+!w8QuS}v9NZpx>`IIey4mx>*`0v}xvxDMp
zbX_4A&dW75z{FPQ6n{8{ByAHtbGG%yEWNunZb)~VGAc{!#O``|)9V7qu1Jh=Y+8eK
z`p3&;qtV)_>A7v)Iu<dL53ug8$E2j2cF5w=<VZoWsvKRJ9GU8)Bi|ZsdY1CF;&<NM
z&Dy|)=z<tGb=Wt(on82NS&%hYDbv4MaV(5~9SpZmcdIpA@=ndCutC|WY;Rz>52KG;
zKZ>SkJ99UPszZeDNKqFkBmR5wer8Sg9ey~dBMg)YLqtL8HvN-c-Xax)OYX^5%*f9x
z>d9ZHjk%Fs^cnT`>lwk8JIL=NME5`C5YlSf%TjvJr!wZg;xyhxXz#fVbCI}m(b~An
zBLsC^cjk@Ayt%%bw_WXu2i3e7ygw-;VLskX-{j-!-jxAgoy5PZSefmBNs}LRX*|l6
zASHE}zcV?M`w6?1R-?tpICdCn-tu-dzO{LGm7j6*4?H9_px`K7TE+iD8b4`mn9#Lk
zAW_$dVMuxV@vaX+c$SihgWC~?UHm1PBHW1p^j94o_yNu;XBIlzd&TV5X){M-(|^e1
z`_;#1Hgv8FFI;vqj@Z5OFmzgAs`Nz|-rTtvC-q?QY?{lu5<}CycV|G|@B16nb5~zU
z^!NjO&Cs-@Ue09WQ&j}YDD8LKk4aIX_+Tg_L*-_+;ueeocKm(hJ6%%{8Q<lURJ+nq
zEhpXGq)1-qGz*uZsL2T#r>xA?_RT@vhqYQeOLEc!TU!L2G(qn{p?<7x*cZ`P?U&Op
z-fVmJ)81UP?^HRt9C${XJ#mj%k};)<Lp+E>>=r2ViexvmcI(Z)D05elK1hn~4V|v4
zWmAc(t;+O9tYH&M*^QDeK-v+75am`6MRPXg2GL)T+A*9A;lf`T86R?Va&9&p+0#G2
zX;NG+_7BxH_nBw<tJA{w$2&RLxTB@{*YT<rrqt8aamCz=Z|<DkxKUA0U*;~FmJ<Hl
zX(zI;Jd0$pbIp9pHcBF@SrSj?3rV56i`C8`qeHTrr_#zyD|Towd0Ge)5-i|=tg-ib
z_mHc9&4DCsR-!@|^lc!6FPCqSf&)C$o@cfKdaC}iL0;zFiT0d;^>yofp8+2?IW*Fr
z8_bF&SezD4mgw7P?F>-KWZQdJIsH2uyt5T)p;Ue(`68Lv-@e3J@EI_B@eVs={(Lif
z7Bnaj$`jr+YY#Zvq{^ky3CE2_WY#^<2e<~D`kh&*dMJp#CktL_&Uuq<=s>Q?5Imqv
zcJWZWXwCGf7DEfI_Av|D@_R9yLtf9iS!}^SU*a9<wN_iLC|z{<P9`h+kxDtlVe_Lq
zrf-M-5h%sCPxGyr^}RUu_jGsNpC$KEa>fiEUtnh=*gv|KYz5miFkf{>2=gZ+bEqEL
zY>^zlh#9drSmov*Xc?Vv^a<&*tqQ`Ki|h)(U+Wxe3X}Y_y2<8=iGS5CsEs2eIbFIe
z3yo1u@$_==b1*_!lcaXX;rg@wW>p#STpQWX>IP-__Qm#1&}-&>Wdv?tw5Agn=wxR8
zK)aG@yyA7Vij2(v6rw8hH|qnMsHt$)Y4ADn2b@tM|6JX_TVU%Hr(m{0n1&X0saSL>
zigU@plbT&l{p)nBt^TsM!pPA}m3qByjq9NL^!?m-Y;%052wCANRvpG<X80vsHga4q
z8NZb!;8uob9N-@k_x7dSxD6=v{%R#9<Qhz`e6+AMqRnO`Usv+1#?YoE3m;$F3pMF3
z4+?I*oct?HFxfcdXPxS)CnM8byDz6$!a#p-rctgEpVh#E#;bh<*_8Y5tlamSBw<KB
z{)(Jkum0m=pGfm=n;CbX#-FHMZ$FE7+uK{Ec(kzlO55b!vp2syy~~2T82=1z>${ZA
zH&YlFxog{R%6~kb!8|IOyZbV@Pas8$11zqY_q62xk}nr$fy78T-|-FhWLa){B4&hE
zQs@^<-_Ie<M&onmg;9z3M)FN?g;W^qnxjO!9XZ%XtW!$Dz4t|^Ndfm^0&A%-O{U~z
z_*6m9HHl7DXt0;Va%3K7ng4YA=#JY{%Y}l8S?aJ2%L<4Co&fJSeA`kr(^EHRhz9}V
zSqol1an*4xh(9HV1DUI?RKx8~Zn;r8lr33bCYp<{*kQFu{G{kl@&*@_5Tu|Ee}C)2
z8gL^$K<*vRGIW_S)#b)qO8X3lMM;_9*xZYQniGuXw(>f)gZZFyAFofDgX%!B5YA<7
zoT|p2bdgS~AmD`?(8_?^<|dp`>eY`H|HL5Ccq-eEr@!}P8+5;+Vc^lq+rLJds7byQ
zk1o8jC>%gbQuJLNn4~uE4~5kf^Ix@QHhES`D_m#dln0P)HSF7ZF*_ob_n)dR`i4E9
zn&zCE3&Aq}c{9Kb$PB$LE8&@Zof}`Q=-gLo5VL8hqiFN;DvPNJhL4SB%lHYKBoRP)
z15gU&%J#D_g65Q88$%mCCSr3v21JL#(Z%mtvcgxDn<^ZDzLEwT+hnlq#}J$Ld0G9t
zCj>-ES==X;(-(Tv+5@^YmluT*-ZxLcDuw(l#lJ+{gwx{m-6oRjx*gESF?G$qhSL?Q
zCU8`Mip7xdrtK3Wi`Td@+vJo_Lgm}R?!A!5My4NQ%4H*Yb+5jy-&d81SBK}lGqc8x
z+hnnExd|M{A^8#e{e0eYD23!jQTr1Fiv8e8Nuk3wNs0&x>`>8`nOI)Gt_;*`t+b6N
z)r_(%$nY|}Axpt$19`$0=7Y_*B^$|j@>iH8?Y3NB_+3`n9CV(n1GPV^Q$zEw-8RY2
zcylk^kk_%G*}6DI(*4stZgvO#fr*aWZ;rfGYTVXK5}>9Hi6EktoT`I4Sp55=^>8g<
zno70p0@@iOI_ep$?itRgP(uLv_|8lbc!erG6yI;{;Yck1mFM$09HCN3a<2%Sm!xad
z)FkH0H@?}wJ&eEYicAJXAFv*TJXkBUPb#~P-y2$YK*L+aT?1v>;cBTf%A-_bRd)Y<
zYAoUTHnXg()<bt$AE@*SJF4omDE*U>_mdr!ps$E*zR5+ATk!Xu3g9t&sQ7J8o1pGv
z(dMME?dUOm0s3j$V6nY|7aRuzJdL~Y4ydMIjaM_3c$Y*nGNxMHR3)lU!57%4k9x=C
z<v}1qz<CO~00z8=<ze!>hj&9@-k-1DRCU*iKdqe^XvPr-=8J_o3Bxa6^T&v9lLtYv
z{>?CW;E{k{Iu$6tf&yHPls%xvBSX|{bAs7@TVa-yVMIa`0Ri`JawzvUx!jZh)U2he
z0nhm^NGk6G{7cpC&L+}6LLR2nhd~?#_6U-}wsDPRrH`FD;|F#$df~f^@h71cu_%3J
z#<50^d8q~cF5tWJ5q$zgKuSryza*ClK!tp~3%NIx2@e!SMdp*~5)^&q;-64h89t`E
zq-@qgZF_Dk56L?(pOvcu@H?eC%Gb?-h}rng)Bv=z9+w`efYQT!w=~B)l{6^qBT#P8
zEZtA({*PV|;Q)sLrC%%i@&VhepcX^;aW|RUtw~fx5ax*M<noIU0Q50>bCWx_Kb#z3
zFSgu`y9Jq<=Ak#cXP0LoqG*vP)@}l2#(#;+JpLKg2niI9^guiLwb38aUTT_kH5GRP
z@G)H9MW^`==&77p66^nDbr4^Gxg1oW8yh#x@L}ps1oJ~~mqrKA!K+EN;wPk0Q>Us5
zoe?LY4}l8LVZ&R*H}1G06*CkKaB1TO%Hz@i?CK&X#FKkNLi`f4w*cGrFv)TL9Lx8`
z)Y{UX$dn>CRU@a3)arYVAHb*B;5OfUp01$CP9^!^JVpNhp&@)A#=-%X%jO&8voKr+
z8p0`G{P!VPO6*?1jeHt2Ixu-95Y5|s)Q!3{cROTeWV|(#d3O#0kA4ze4{oM*fcyNA
z@L(j&`PuP;?lKoOEr^!c!bT&Lk1n@B`Lk~v$Y*0|FTrhhhh7sKXI%5Q*)xG+-HLVL
zVxV-d?Q8p0#U;IAHvDB*TS=VjB6V59f7DTG!^qk>CpAsHHNBF;r>_oDT`Up7{U1BU
zj@vvB+dKzhGcmRMH^r&KEd2PRkFDH3O(dS%MFtz^cnl-+&K>=(B6dA=b&WCedr>{q
z-;~sAIL1kf6axBO1hV)7aPx5fW0OSjwRj2L(8b$6O~p0Oh3M(u{H}f@M9e_DQ(EN1
z_WX1E9o1$NW*U5mWTnmeQbzDf!ld;A<<o`pfjx#T|9z>UM1i)GS<lFhrq}BE(3&!C
zzA8-1O{9bUwZkl}PL6=+hVWBCbHKf;rci8S^*NeGi|Q@Eq-139BG8LhBhhOBGDp`>
z;xZ-4ff7Q2wz0+CQ|WJ5Qixq);QI_#a*lEJpuQ&*iG)i*ZjzPGFImk22~Xhldu@C5
zCG=Verz3k7TlKQ3UjYMKY`GB=yP@a29ULouUrhAARhV4-ztB>#qPUa#g3%;<UYkoA
z(AlUz0ssXy>ZN{+<Jq~>IVqXM!^nnhavWZsseLzjwMlY;+POMOLwP@AJZvz&sc+ox
z7XH}hu4n1C@+8;SX7$HF@hoO*8CNOkvIAA$u}F=v52-C-aTIt4no;A2Qj!i*vTSO8
zRj}4j_u+8PzEy=5@LO9x%2oz1D}Z*xKG2GU7#$?Z=`@0yoPW*3zN$Euzez3doWG^L
z1QY?{?TO<F(2NJKs3jMshh;7{-10}#kUKzEF%hrTg`(&g9%lH_QUqEl#3r=N9B3ah
zo7kr?4)RW34ellw@-i}#IY5O<tqvWh%bDb4Ox-5u&0<W1Bdm)3li3({^q|{@;tVrC
zuP2N=cLi5lAV`n=XogktPFgixZKpd8+_rPmE%rB+B=&n4%t@dTC&vM@(r2+f09Wi6
z<@!(K?d4w|`yk7INF=ZJ|By`b7S^s_-Yr06W4?+fcARmt^`j(jBF95Z>)*-9?6sJc
zpr!Ozc9&7jr;`Mv=WUTB#ReI!#UnT2GAbOJdD-M~2r4{Ia4vPYW?o+{Q$@*m3)kA+
zv%iA7yEc!F29w<?gRM2MNA?UC88x(N7)1Z$CzG!3_kk|1M12yyc06srNxJG`mwLgB
zg?9GM=uuHOEp(%Rw0r)*@7HfW^4K-)LFoRV)8jE}#%JD`MA=EyZ)c}1qKPlk*Od;_
z=~#Ig^C8czUC+`FO^!F*He`?Im$3R%HIe5s=P;CS&4ow5%*v1``bQ0%@QR{aJxCay
zQ58N=QOnP~>KC!eFeD%OHk8xrzm~LLQ+IdUZcl%#QDQRlPYH@y;`$hTe!M7oB{%%J
zfx3Gu-u{h-5q%Q=MO#UWV)G<AVu6Jb{P00O#S{8N2<K)TB~!8-Hbgm_b+E#g{4Btk
zp}#It4YqP~R7;;Cv`g(wQ}pgSviV|KI7oIyA9AyM$9N&KT4NA_emIlmgRH<D5wqXi
zgw+BwuG3Tqk_u5xa;}2r&yGV>Cuvsb!{?m1^f|`OxL>VD_GzM}qF8g&`j)quz0jgb
zGpLe#ySpY5>W^P10lZSs_dR)KI_i7q^2fsIZ$w^1!@8@$4Yd+vNo;C1hYd6C*Au;M
z9Xyvn6JP3ntwFT>DwGH!Xq0%kayE?gH2te$V@FtnZej6pz-!<uO>|Ys;rtUUPiQRZ
z03T~sIM=6D7x79x=!n-MHm=<Z(BZayYQ>VHTg$Gc*VmP92&T$yNzWI$8rxxAzd7EP
z^o|niozyYr*10)}%)2@H+mfW=6z5}hvO*?F8b#EfuHrEwif$aAgNGl@*_5%g5YMm1
z0E%h6-?45Hb($uzzn(;2W!n3Sq*b8KSMh7HiXNoj7I_*Q{vEG2vje%O|GJi|l5=K?
zaPd#mg@VCq5_755xrqgA{A}2fIWSTa6}2ysOB1waTF+NP+dSliFt6mRcGPGUfS8p)
z>)oriujG1TWH`nfx`x^5V0HHOgZ&A?<qyR3NV+(fbb>YDN%h*&o7aoZVrIb4<A~)r
z%JDu&9tGiVB;t2@HQbEd?=^6wMZyCmdR<ON7gN3DWbhzUld{G%w;6d)Tl`6S?QwHO
zUwx8QpTLnce(jViP%YT@ruFViLiP*>r_}<qor3cra^c50!qE~_W+W0KMxK|EL6?yR
z3)9ypmyC?Y=*z*c%eyAUo%`t|DM|-mhwq)GKRTXD<P)CMq>97EdOKd}^d$D;{>xXP
z%7$tgUQ#>Ach)&tMzrybDr*A|&WP#L(IHDzEurT5T)KLb@I%K27K<CFi@|aa6g=ao
zCOVvrFz8@*RAP-x#3`ZeDHbBPSC75ej=QnOYIk%VO&i0S)_mS?VFsV%U%lSWVVL>&
z7kP|NN_vhoq2m>MDJ~23yF?$W6j+k8&pkeaQF>dkN(#Y{9kTgqM92R_eRsl;lJ-q1
z&K_F}1<Gahlftr|Idkc}UbJUN3OBRPK#f*AHRP|eYz%lR;lB0fb80P@mbHbS1+)9w
z;6n!^K{xeLGaZ^mu2+G>?D1#=nf|Xc9o*R0c<5(2;26cZII9ID-%jPjAgr_UCgkLc
zBnz7wHSxdkoMZodu@<}-c8;L320$fF$ynw%s~0&K$nZhz>c{IZ-_8FF{Pff31Xj^@
zJw6Le*3RUM|J8iS?c_#wC3bVG$i|I?Wgao+!5eL?JwF2sEPyrhJB!O$rhZ#9nWD_9
zxar@C1;>AvfP_qq%E}NdAIa8l*U(p;v2*ijx0&*LuOIb0Jk-T{g{FhaZcX)7C21)M
zLz2pRWOB5=c=O9<?A~;a2T`}yrtuA1_%KZZpY-{wXlzL>GRZw=`IE_EV*7k|nXViB
zuna>&!s&;U@I;g59t!<Ek~BX1y}goYoT`QOSS{uZha~4aEicmLOA1xK&FRx*^vFNA
zJv$oaNjtk<7Z<10aAC60iWUm;KuG?JQM-~kSNit?TsnAppppaw`?&8Kt58uYx?NNb
z53!)sYxY=!gI$_2@TfcPK#F-K_}7q^OAVX{L-BE}bBs@8)0<%TZ~l>Z-iT}2S-ag(
zN<2vHS1XNEi^!e+I(XJA3vPx@YxT7Z(TQW~f`hOA?sDUCW-sNh2g2qdnd?=DYSUF`
zJ^W3IyE~nwK27>KNsNvS2VGJ;A~a&oZfAqSyjM1;>GTK}qjuX81r{^2dXMwy9%E{`
zI>&dLSw#XjYYVSFUxY8aqpu&bfi?5kB`*P;nEMTR@$j2CM;o4&D%0(I<_<fNT#fWX
z4v&sx@$m7@zFI8uv*`e%j7>kC@B3}3qWFU5MQY9U`j!NBiM{B<_)@DxRsh)fmEE{m
zTDkW({>>%oWKYYdREKUurd*RZ0$~5bg&!NIh(byc$t>pRVpFlEZA(bi;K2o~9@}7%
zmwL%?qk@^ZOQvLCn(xJW6Bit;{QDsAdwUNV1&p@tYG!GwznRzgM&h*E-{-7SZfiIX
zIk{rvz)sC@t}~X5S*z#MV0gpTeYqU2;3z4YtXwT}iVezvTJyZa@W20J?n>yO|4jU}
zkASR&|8q(srq_z}d@GEES9M@Gz)2f;V7k|b6VoMQB)oX^-y)MO<ve70vBQXqp5m0g
z#@S;^;ub7EDf>Zb?AjDk()MCC<Yd0zZb32*(X{DGZg8$5LNo19c>L$a)}%T(I0d_9
ztd@@)&Y}8eZjA7GZsjUuwt%9r#w2?~?cFz0!yMAIDSp(spRFB~H>mL33N7MUUWCfk
zk<g8;U^T?F7j4-e9dm+DmM2~{+6j~Lv^eclp(C2!4bgiT%LGbFh>O{E1t(Nyc@MDR
z>3@rQDxsj`b(yHfp#^>;!x}L85KDLDncL~){KCOX+V8Ox=fe(HbaA}Zt5;6g(Dzz7
zX*!L0nc5uN^)Z9*%7pt3%k!1%O_<#O+@dbmY1e#%W_wLh<he$=%p5KDWY|rc&CdB#
zY_ivG%IdUCJ*q_KeELVafq>az^<lDcDtRtvwq+y2=z1Yy*&!u^5)O0R``e8}soE&X
z#dwGfh`}|<hg;gt%8N^t*VkXzs_DFo-dGYZp_@6Pnta<}6x7(+>eC+Ezv>dLPTaQ~
ztLs%*R1_prhU0vdpYC%Ev$dsHwOG=<%LLX6(4$cZ8ka+A$nB`6GeHEXXBy^t88zH7
z!_C*)Hf6?oMzbwVUIHci0x-}0fzzlVe}%sK4W>uGRg+%%EDvt&LAJ?fCv_s~>c3tY
z_a=zv%QCwkW-sk<s)(zm&cE`?+cTJXp#k5T$cawv)8tK@R{k{PD*Pi3!@JeeavMor
z?vs;~XrgO9&PlCwpEt+*Emuk(I%?oJglZQBnt8pq!iC=3&8}vx&Xi;-bGMS-?d_BQ
zA?B*r+><e-eAtO8?Li|&&W3uQD_~!E-8D-;01whUd9WOFdL3zBCGtLmB(ek2!WpZ2
z78tk{>-pR1P-~pRnE#xb?0N-Z<!bgc!RD3M>b~m@>RdC#>CDIN`*5IS!ZKM)i~E-^
zgEw?r!XLIapUmrC|A6||Ken>?l5rWhI-J%b_H*mt_d^|H?~~5|IrmW4OIf}2V^deq
z#i?R)@KmSxS{J+1pPllk)#sB(Go2xxgg#Y5icWLo;=Gv9;NoJg^yg*4XR=9{9lN9!
zV4Ck{Rr#oCdl2^s0AUm2PF!X|g*Icc<t)OHb#v~hhF9P+2Bv(K@N}Ji#8c#kbiWm<
zt|!aVOb;r(kqhjcNh+^@JZZ5}e(q@>r5V$o)^xE|6oe8G*Ohka>z);J2-)yIaEwDx
zkc~@qiQ_ql%ro`pWpF;H`hV>O5LyRj&<DJWVk*4a^kN=;bL!Eh#OcZhNppNrZK=b|
zu)DCT*McJqM+*V<gUihTuM0>{7gZeo?jYAL5n;9>apnH|W|g<L%Dd$1sB6~bZyNf1
zr%5j9l>NqYvZNVaD|eH(xK+n7(U<5oS=9-)jX>@$O{_1MHM~6{wmerM;~xH$ppb6(
z`Z&FE&_3sgiu)Huy|Gw&@#SLlFc0m;Fmux*iZkLWc1$KCEKr!v=jM1H-N0+>vDH7V
z=`2rs2%*tkr=W^En{U3+HBJu>h8(<$3V@W|k^|wd_zPS4`r{Dnf$QJle0vV)tM|uc
z?hBAS|GRz);I8;5U9xDAcEs=>wI(Be>fWJx{x$E@X$+T;VaSXoywr19Yn7*QmMBQ_
zymcyc_}G*P>V-eY2w|CO+Aqva(tOMYwq!W!-6&O1!QBT2*0-e?Ja9h&^GEbhb|p0?
zq^;u6z0sbwv;}4+eeHRd-SEqEFTy$6p@Wl%{APE}Z3m@)38KgcH=3$c05<PxsrzR`
zKhwCndUK&EBO&2w+TB}=Z#z`QJw7KY7&uH0#x|9Y_Us6vIGf%g*eS8ROh5Z?LGRfQ
z2qmzq=q4XYB1s?~_-5~Lo2bf%)d&L@RogB*SWQqF{A=PrHW7RUCiqw4)^-cLKYXFg
zjl2est@V>yu@r=}T3B#!alL1Au>AROjk}Bt)OgNQ8J2C58cveHlem=h1gn2La&<T~
zUiQ77FQgcF=)hMtQCkA8ZH_>}HophaoOZ9V3Ak?i7hdaiTc=R+mlv&xmE}?O#2LEO
zqlW1blBYB!Ez+W@^de5rV>#S-5_3vv`5X3)W0Q^tHp}WSnk#0=;*_J|yW!5(gz21w
z+Ii!=DPqFk;}D3aK4)Rhl#!=iJ}cg<=_af;Wn9@=qII_a`g!HhroEeCL3RZS|6Y9d
zqLwDif>6wLdu90_)R^%kB-S&;3h$anz1=)zFaXmYJ-Td5a4WoP%L4DJ+{3?KWYja+
z2JgTuF{Sq9^%Y(pO`lzt`nTQ9PJW-9?OI}dYlPxFJqL~kzz)Oq?sc6gN}tSv4$t8W
z*U5)5%BB3jVDoE(4at{KS(%)UN~cXSNqs{JX@0vathj8^o*_nl&`ZnbUD#}J?XDNN
z-SWn_%VY1PX%yG?u}*V&yHx4Um%>Z&u2@H#CX;aGGAcx)G-)RS%j>BcW^lHl6NKGe
zHH2Z%qi>Lh9~*{myq1sr@|nUj1@fzhtILnsXT2pwO$%yw`=5l($OeVxA`N$znu=Nk
zj{?(3BwnUa%}bgv2bOs=3xFrm0|^J72->d+l8tYpFP8j@#ZNK}dJAn{W6y^-9v|rS
zOLJKHKvqgSGQFeJkKw(qqvwFh4B!*RgoDrcv#*d@)mVvxmIaXyO?uf*V$HSIL(yx$
zDKDYPm+=B+yukJf`QkYl?C);jw&_Bj+-cOD{%E~^wwq{kiOY~4Y{v%MOmR~|VLS?O
z<;!sUH63VfuC8Yl%>A3u=ve1ek*ZQ%g{)p=bN3K#jLeEeDnJ7KW)&A*I66cdAy51$
zvuo4F5jEe_(;m|A-E7HN8b~b+oSLsre1tOD);W_}oYj_9>*}?s>a@$B(a602#TTBe
zq_%Q>B#zEU?u6=+jU`sBBPQq5uNu<NjLy2b#14M}ZKUw9{^QH)u>xgj69E@iZ~@S&
z)%mT&@K1kZZ-&TPD%6(X1OMA|+dfUWhRI_?J;TVNcZu`ESjWRrf*47cuQs>ao=)~k
z9-OqxQPwmtTh@rk$XxM4tRZ&+c3Kee>q`>{lrpLrxptzo5VK~5Y}c8i-7~ZKGujY*
ze4!7_4@T?5U|#xG?bvHzqHY#Yic2DwkezJ2Nlv;uiiKM_Kkbd<E|x_LtJdwbZ8?Z#
zlQpR|Zq63sj>3?z{<$-3D<a_EyWtbV>)X6lxstqVNL5cuS{oL3IeQvPOiqLCo1rN8
z!~9s7A6l^Rvi`%HKDXbWfD&qK`wgEqb{M}pIu$4VX>gdElhxn9$wh(?s>i?crU&cB
z@&v;Z(b39Ji2?(2@LJEv_pp=lz@XTTrkv&yN%ytJLrTksC-cI*<Au5xdR`@eb?b8f
z{fusIF);}V29%?pqX3)9{awk@D!j(v&uM$e<do$y>N(54M^<+;yb@?Dao=MXes$vg
znAJ(psWioFvV=sn!H^T$auZ)I*(`pcW=89vY(}jglSC-020JM$^G2LNGPgf5L)B7d
zk$2@fcB8FTnh7hbz8mH|_JGy?a51xna$S>GmYy}!K}uceJ$`ZVg-WQJ$}}MZM^{%%
zo1F%B+7EIw&vE_OBp-C;O%yB8ElN66yo#YrDzpF9Q2J(#X+2@GFh9k3?t^DVUa99V
zPYXkg>Y^!-+zTPZh51Fp`WG9a(?t+s)}5B(Q+1lP^oN6438y}^GWmnc+uL!?i=Gi>
zsvBk6wIX_qsl&hwO#HVkkVt@SK3*8Ozvu?=kR=X^7as39NlwlFF8tzMHn#S$QEgH%
zvve^#b-o)Q-!GRcC}74)op%XPna1uIMJs!9D?4<t@l)rHA2lKxD}BTOugqrMy`La{
zw&FgSMfT^qg#a_8QfJ$CBh>uC^Hr_8N^SAv5C86~U+z1`#71IFjN_3msZHLaT8b&K
z8}9zGk{u$5S<VxW_}BQ~&utfmRflKGh)iE1Qm{Y%b*aGJcYhF=*u6dmFposJmx4P0
zH}~l*=WEXeoBTStc=M~pa{m5o(cg5in5vJW5RO+-|MeAN;az47^}cDW&6B8c7Bx`w
zm?xen5QewZ=kG?AnsH|dC-3y>cxE*KLm=;G&yE(h{}t|-5RtGqEjW75@dFG#TI6{5
zb^_<kO+(GVUY5qrxEiLTU=t>PGx{%!o`N!Msb&QkP(vudpHTE8RR8+8z1w@4Tus`!
zEeF|I=34mNRpnxG4R+R557Xe_^5eJ4|M{}A$xKnw%ig73-ynupf5>QOtA%SZ^m#t#
z_$!@-*Vw7=<q6yLP=KXSvpZWom$VuZWB7+4YVmSH#^@F)#OX78Vl8x{`vmG64cY~M
z_9?qQhNmKXE2lbN!ANr5RXk1XbbU-|q5rd+Bk(L>8Q91H?Bobm$&ccCiyRB|zn&JV
zDSIUXkcvnKLq~=1jA=XP+vvcGWIBuH4U(38dAL@#XQdBJPq@o0-P+5%s`DlIKKYn?
zocOkOb(DrA&KXw2a@|l_3z?{qr%;VjuX3jjY<77n4V9g9&On?vFc(w>GJ+<e>j_fA
zN9E)<jqJ+tv?z7URl1zOW0sxu{YY1uM><B@d`uI3ubrUN;&YD8><aaKV=F&`mUrvZ
zOP<?5V3|ZQPP!;|72u;69Zp9p2z}lwxKHf`O=Blx9s5N8<taCwiuPt>*wW8>16SEw
z<et;SOI}8Dq90V>L84Ms^Oz<g+eiTS)8SrN3U+BYF`SvlOfG*I{&wh|hEzoN@$ZLZ
zudciI9Sgl(qeazZYRPm|9z-RI)-99%A7s6CP+M)(_8Z)x6l-yJm*Nh^y|`1HBE{Vu
zio3fPcbDSs#oaAvu)s;5_j|uNXHNdhWF~v>Td(z7*S)qae)gI%BoVbh1o5lr&+CXE
z%R#Ix!lgc<mP|XF1Mz~AHrBuS$050*zgpzvkVq=j5eI)37u4!&8n||ECE!_N@<sE6
z-$}^wT;}RJF{;G-z0alwd!x<h<HIe#IM>M?3EZ0^SFaFSHAM6=(Z7W%%ywjO5Qny0
zO-V8aah;s(^n6;?uU0QPGjMmg@}qtC+6zt#dr((8H~hKxsN0iC>B)UYlGDolt*z^2
ztY>xMo0?m{p}?w3GtJ?&v{^;V-;P6pa0sXKJjw2#bLj8f<w6^@L8a7fFLAd@aP}PU
zCRp!j{zs^BV|eMQY@Dj@K~^qyVO?Af^1C@;#pZ9B2APH23x~@12<0}Qjm!HAvr}=U
z%R#~FT<{mEAJsoNuS+b{VvBPHTqo;yq#*W!&u>0!scIEHKP_5yMUggq5LT%-8|5W3
z9!6tJqDC+hE-p?phkcF)Q0#MX;!lL1rOXt56k{1UBW$e9BpXLk5Qi#x2=fP-EN{rz
zLA2EX&AY=};dGLp@AG9{B`V4AxrM-csbQ&3z+uJDJ=6084r;}P%%PqCBLAJ6N+CX<
z^U4~<_mjJ}@fwCU^S~X#vksoa{z3cB_tC#ISR{MQ?}qO+X{88E?7TR@mF>?+IT70a
zrI1KF7rd6V6*bg|AaIt$ad(9uCe=vgS~~5pMZJr6UBklY<FVLvMyxI1R}w(>J*45|
zSyTGfLwH#(J;o8u;Zmng>)S8qwy>{_Pg}$vko<zBH(LJYm;on_#;CvYr`NO{zPRZ>
zPS#9C{?ku1HSP|pjSdGmpQEYCd)|JXWZYT2e<b2fZCs7?3IweKcYtag`RNyGeu!#>
z*Q}j~8Qv!^qROwMYJYwkrCRef|IjGGi*?ObV&iqNRC#W`-+TvORW^Mz<aJ$j8&=GD
ze9A8z$nEian^~!ANl}#MH|cV}ULWk~d@5xTi}i}m)VK$RO66pM67Mpt50A2z%jCxu
zb57=DvlDGT7cuZp!<b0S9I}!(*v9-%7IDV6vb|kLg4pLYh@iA6QrV8^ecRUX++8lI
zyrNWqx0{l%o#6`NA2OifKw3WUucJxc@hk0lzPR6d+~KD1V*Qfh`?_C1m$<R#*R!W|
z^j{1SV!z3Cf$K$V7C!dt)7ubI@s>JRBB#UMal1bP6h`GJ>=k@d9R8W!^;v3h(ZY+<
zhB;a3{cPy8<gb-|{p;sx-}_|m`$a#W>r^GY$@b@{TfXw4L%-YhhASUOo&9sX+`E`e
z2wk7eIBig(_D$hi1iCEy@(Kx*ZH@)D$F~aBqj!#0-u(k@%UihZLV^%`=N69d1J_Rv
zX+cJ~T=kufp}Dh6j=s{wGLPG4m)k|P6{a87y7x<vUC<PnJ05sfeQ?0x92$$`vt~;w
z9?+8f+W1Z0S|)?l6Go6T(!gc8`!;u(y5?n~K8^wFj$W;p8ms_ji&v`2dYv3k0PWz)
zx7{x_NX3MYgt)n7b+2<5AEq>Yd?Q~|PsD!{ZT(LacxW0N^AQU;Jy%vceV2_I($-_r
z*0lQrT<LZ)7JJRJDNH`G5hM}#&;amGVVIvOxC4C?_Pj3e{q6P?&0q&UKaU4V3U#;_
z9rb6;U5C~i+c~cMi_9ERYjViu=33=0#ugq;k*D<0ggVq%$TCe<31_)}Q2&Qx4M;L<
zt38~~J9+ABWzv683xs6yw@3ea`{X!p8}s-Y{FXx3<m;SgWQpBn?QBB5M)=jqtfq2H
zSWqDCw6q?WW6y{@ISGj<Q+rYxzn+zczGu6ub>YTbiDb^!xi0J7f;*BrrtyTH7e^EQ
znltcx+FEMYlfRexfFgMthQddVu5yJJoHn&voQ1(Psc!d0&x6ye77MYPI9T0Iwq@Br
zA6QDa<a3s?cFsz&Iy9`zZMELcA;Q4UpquhzT<R7l+tZTlZtG|A@4CdZn3;PCf)wu0
zm96QO)!ma5H*q65K>a=JkEQjQJzYmL@6($d!;(KstOmGk=N;n!fnN|Z0c^egVaF0G
zG8#r3WkDp-SVV5g%Y=uS`^)Jon1uIh(LY^XKQ4Li(oWf#?oFIYgtpqS8WvPim=m#L
z^^sz6s=Usm#re-P=LO7=ewpd?6Hu4TJ}Xz7|K$RHE>*Z!Q&-Y-TXr#=_TkfbI4_|3
zo~i7y9PN*IV(y3^6kbr8upJKFat;vm`|9r3@}gT_QZmc%0|N`wtUARSkCsM_jXHUD
zkWV1Ks`KDxVYIv?6m83f5zkt7y0%Ih9YExDa}vHey~(c!>Y+p)@%SbG5;}-hTh=Bj
z(UT$MHecGA3{-*c?3`zh8t;By?Wj7uNPs$BM~=@@b^R^_wXeGkhmpREtp)_qdJez{
zL$Q4~hX;5+U9oJh5>BYP`hmXctG#t^U3wq=j+J@mwf^1!XEck#Pn9uhg-RZo6NwEJ
z%=|tyff}#r_ewlMcei5&^MNOe4ulYpn}Wd$*p7S=nLNa^w0V_}g|ct@WZsbklo)T9
z*qk3Jvl{+sww?Sp5o!xKz>)7DsOz;2+F%R$v((-7e)?Otwc0!yL^}prD!*=c3X%<d
zLAdf+dH#(xyz!CK<yyRD+K(R=FxBDq`={E<l$ACT5b)s`$?JG?ffS=d6Pge4X2_m|
zFywhvEn5H`t>{9|<uv(2{10s*@L9^0Ja_-05Bz>twjNgstfAA={z2wgiakBd<4u%W
zDX8<^fMccdU=M}`kFeGCN29y~?Mm$1pWk#0h~x#oMq(+D*R9oMzg|~a&LqhryZ~Tn
zM@_~vSACA{gaM5_ejbjX8X4c&6d9=8Hgi*0YM!uFe@7bY?t~)(Uw7($EGBKRsZuuz
zg(+!cDp_Sv_Mxc`ef;R)&FQ>DjbH0aXv1WH)8qu5lFqZRBL=|#JJ53?37cVQACB~!
zUJ5&stEn&=pa&oFXgZsJT_`ih?<nV?E4m1=-p=fg`n9fd%i_$OYFnsSw!XPGS6etV
zmOm-+``z{TOD=3fo=8CF&&3%vitsbmin7$PD8q&LT@TqQ;Kashdm0%7QxpoJCoD(N
z(_9M3ycy<m!@-+4BGEZ3cNAPsx!Oq<_Sk1o<ybnN8CBp)r@GzF&KY*~v{Sd#-~v~9
zg$@8{2{W?bl^Zyze?4;p%v=a&hzIqX`_V+&337IW#^(7)5S*NklgeX1z+GJWJfNlE
z2{Be&%|6x*52#$S?jq*YhFuOiEb_xyGa0=l5Ed<J4u#B;l*z};TuNG0PGt?GlM&pF
zsgrYE9J8MO^}sP@SPJP7#xo83UUpKh<<Yz^rLnr@ejC)#sOSi=zt}%%j0})c!=!6q
z=!}GsY|KZmmk7{B)2*Y=#=#{IgdPzpSDT9@_6P)BM>E-uCXN0f9@xNJ4-AWnme&_s
zM{ZZ-IfyG~mPanD_ks01CFEnlk<3HvJ_;)Z?K`1qa@%Yo8xWqOy9SfqW3i*5bFCc`
zzs2R8&pNc%<|TQvN`>jnsfN4Fx?ob^im3n8mK{}NwmUVv<5^ru&CDFH+zfdh-SL+!
z@x9O=4j|j6p+(IU-_n+$AV*|@qFGJ44yMX=X7nCdM$G8Hqk%3Lc`o)~rxJj&wVHzr
zH`(<O-K_QY?u_0{d}5WTeO9NjMBIY&?(aap0l5Zt<_XNLqCq_%A3Va%<v8*te?lrV
z|Ge(LV1;B{vbi&(7I?LzCIO>4l$%CUNMZr0-AziAw2SK4cjE4?Oa#DszkvjPW;U4k
zJO@lN!ArgTWRxtb_<2vC{M~8dlNdg+RBj>rJ-xXZ0L7F+W45~3w9rK-HHF|{1qw2R
zFa>O<t@QP=&COL@PCS;jK3hzi$8kj#^f=t@r<yWmYW&t(oRIz4YKm_aVPL61&X2p%
zvnfm}@WnJgS;t31q9g-FvCrQdZHEgjmu35XU(ECX`kl0(_xoJ<z6{3oC9`yi>eMaU
zu~dn!pNa^@{KP@>aI*&SUaq=>qcU_n>6i6>Eveq{TnseiOu@-#X;J_x?-if$kggH}
zDc5WHl+YcE=l10Uj7Bl|O1=P6=R-{%?W%NR8x2aB&G;{&=d>&#<SFb8*T4@=8`JMd
z_6U)@)hJ1w6h`!qvD4u$@4>}{F~hd0?B41X>-0it)zNm7G2?*Z9VaKJd)^?u5&h{U
z1kBMxtsTvvMDe+q@f{?&<qoRT0VlFY;^h5tw)jZFIl?b5WG3<b9*|VRX$q@=TIrT}
zXw-`VaM`E72&A(^EK5IOm=J^;t%YmqnUlSYTg3INgG1iNeqiu;a+9qim*qXtn#H1Z
z#RmZCfrwg``V%@r9vO+U_zRsU-MG!x*=Y34YR0tlt1qccuz)hZCn@hg&h2+*n+8nb
zcf#Gzx~62W$2hhxbqra_w2;ZLKe(c*&e+Yvz-}#m%JO#NCT7Y<{BP(B))}0X&yN!+
zSh;VJsj*b)NsB=06bYF|_P~-tZ|2TvbiaBhUa+a3As!Z4N!(?fZDz;n7u3PlbU!d>
z%gdplw6<rjx#I|)yH=F>E`y_7f-V&Ew*rq8rxEYN0O_iBew!4JF8H0089)h{0q@#Y
zk<p7O9>>~aZVkH+h)v-bQEO^<hLZE;AGIG3tOvvuPClC!6MnMA`-UeLevwA9#+K{$
zLUG;J5YEY{Io_eMX?(ilRCm{ZwqgLV8{RH!GY!_~LEcQXU^~7g4nxQmd%%drGLRt^
z1SPSl{5jv)3f=t33$H)GFvyBydiL3*vp4c@^wZ@Jz=sOG<jhPtjAZWDi#-_n6b1V8
zC|XRZC}p{~6NYK%ycA~1Qv2xmalF#81`>5ShS(p^7}!{#pR?Xy1v?4eZ?Cj5;b@nm
z*EVtD-vV0RxB<NlPdcdyDm)BU*xA25Z(*w9XBny_dT%IJ_*Gkg?HMZbJXEF?88Uc?
z;}PCU-$YljDAW1EP7z!ZaFaqoIPCXhV{j}E>DYfwA#wP_QkeXS!io0wJg|ZY!!dGv
zj;m7@H5UC2two=(tdhXITWPxMZRgAdh6(+y6fvEgx){Yp_`b!-81XRzao`X*R0SKb
zes#>7-b@p)#zcWPdgPLw`NGFN&*iPPPJE}V3;aIhY$p6zPIRlH#glNIloorDb`@^#
z_{Wd<+J`-^yX)<|i~9K!+Kvsr!G&ittd;?3#!(m+J#}Cu%@)Omye##oPptL&)xZEa
z$W6H0CoJvjws_QD@Yu$zv0}zo>OB=AyaSC|ly(qMJlOcJ8;zC%B8iY5MX-zL9|v~w
zFJ8jBhL$X^%xtRKJk|N9E<?X=vOm@RKpbzmlvvUF-lxYfo)NLQ(}GM)bOx7rE%>Jh
z#m%p}BvAiG=_~{BkPqnCSNJU|y{YVVvY@`CK|o$1zT5S;7FSyG2h)x%D0sU&wV!`$
z4AvBI?8X1awZoOWX%Cx<(<MS{0RZuI<7{bH5xWT|!$jxCI(^HW-Xfl%c2s~yV^yPs
z^1wzE-1G|Po(AkHx}8xvv4hKFL`C%c({_euMK}fhsxQ=vNM*7wF@5dUn)>%5^HM?j
zl(EA&Wi)Dj-|oNSJVzk3eHji&6)s7g*4JLrbLA>LhF<7V2OjHY33Ar*lG?nbczz24
znJtZze;I!NYA?&3DgIW)*>_>5v@9haR{epSumY1)e;`&4>fvw9Q(eQ+bPk#bK4I0u
zrIzX<3_#-R6hmZ@fujhP4QdQHAn`&&O)Uue-Mf(4r;Lipto5WF0npBj{*}&DV#0~;
z_)|3QcIti+YFy%k9L<-Kqm@)@fCx;l-t}$$CdJUVgQhsM0LT8y=((fbkFG4I2FKZC
z0M@N`8}!VvYdutWKi^?g*ADQ(ZYrSHu4PMDb%1a#6D<9B{J~)rAI7L979J2T-CQ;9
z!%3TGF>|dwS#uN&)0NCAHoH<0p68#_H#_9173T__*0puSGMe8^FoW`qL8Gd^oFlbH
z`{ri&zRV<wh%4C7bRHqd12V6Qi=}Gx^4i-Ob?RC7lHdO_{zWDx85RD0rtMMTJ#BNv
zwTv}*0fo!#Y1|~;@TmY-ka4|By-=e{XCe~Aaq*>>`!WFDLJmcxgPD^Gdz7j@lmu^S
z1SBDPs52r#I7U7H8uJv*gvxH~I1@@1`A7TnaQVQljVYg%%8m4WY9V08)nkO3rdRne
z0-F_b*pJirWYLd_#{)-%E`9emfCv7JaIR2HHSmXksVwh~qz3YS%}AJH`tyk35uUie
z$?lNG;>o8@uft10`1JPEiW8Xghu;I}jak2A<i%At*Xjzq5fJ0)28-^pkDHDm?SWa5
za<#__`x-oeM-%($OPHHE900&=&k6JU9c=^LP3D5)VL`%sNB?yxi7RdsvAxEL1ArJZ
z&j5g^?Tifk<G5ykgFLL1x7v^4SIGCQz9)BLul5xcH8l!e1LjXE76)^Q0aAann7Hpm
zzRvP1ZV^=hnzr}zV24F?NdT0L;Kk_&juA)uFBD@jVJDCstv>vo;eO=`HjT+tdmE+5
z0?_p=dth#j@+5Ba_D=7nkF&`}Z38~#-2phTJWhv=E7gBZK){4jy#hE4&!bR3Da1mP
zR~<@5j2x*sH`9~THXogxrWy$2q62JGh2OtF6}}v3&pE5xi|DQs>bnBRaIQDaohjcN
ztB*?8Cpq3POYPr?rd@G0QqW>jM)}zR0D=0sw;@^nL+oNjSb!gB$a0!sj2j~I0EzP2
zr(KL*ww}a%IhDnzg?lo03kxCNnP@)H*{HXn^;~NyD4@AhUINoVevk(89e#byz$Yx;
zK`|YBxQI%yg8UjR*|&NXV|xSGW&+O#FbrV3)uJf+f*QU`kR!?Y>A#|c&S&D(GmDjE
znD$^H${?kuGGc%1&qSSu&bF2L_`~}u+0dBnBs*x4kQ$DW-KCsTO-;Ir%C>};=gv=^
z7zTiwe%c1V&+uRWQe@KCFv66lRA56k!ojM)d6jO#L0duMnn2fPcsq~22|E{s*4;(s
zxY&n>SOeRVem9sO^M68ezq%|$h#Mp8WF?ZP3LU7-I^--|ALv`heq^!yK2HBUp}kxR
zBVi-K&JVBj@lZOl8L}x`29NKZn4KpxS!!7pY=-EJ?0z3+P;#>1@$T}hMFFs<YIeub
zG`sb@kXwgk*50Ke+@xJNj0SBRxfivs{MoAh{DjpW8ly-3`!x^ni4cz7B$3Pesb?ST
zGChh8kk;}92Awx4#S<09&jWbZpo~OUk;JPB+&}c5dHG$_Sz7h2345Nt_K)NU@zMUT
z7vRIxVN1=$W?V(2`~f>%G*-F^WD{KYIiFq7px(L2r%t|wMU^U(tWW!ulGN#-K-^o2
zIuX7Kiz7|j)LOeSqotHDDlPb1yT)m@YHeh!vW`~obDH!rDA3Fz7e@hbLBhMix()+C
zl5@NCi!@hZjSYg)HicN=L0<zbPb|=hy(q$&>DccVx(>8KjNr79dGvivA85{CZrDyJ
zm{tGEO*TxM?7IbwiO;jIa%GOHTiN1LtYWDY2{7}?Th};%bfVQr+oB!rB0Ck=Ngw1Y
zhK2_8KdIFUQ5=(7<d@Dd(u-h{mzz7^gCRs^Mm}A2+2{Ra{Lf3}(Gw4EecdcC-7e@*
zi((oNm~NdnjYYb|7$({nrNW|`zI|Z_)53$GLWY+Yzt<C|N-577!>OIh2;8dNIhWhW
zbK{-xNvm<+#@F2%B{yi1y}2zz#_^nC@Tl6EL{eyJ!7-Y;y%D*n=q7*2%rRYa=g6@%
z%2nmxl`EmKB0eaHszWT&MBz&xGnvc3oqy7;pIdnOM7H_zk;WzF609LxQYZTF7Iz*9
zF295!{6)saT3Ch3NQ+d`BR|-g;B~%U3#>QT{^)CEEIM1)5-MyLr&NNOc(k^zuq+4@
z(?^}k%M{iANUNChwFF7L_+7x`tY^k8r-w3(d)9|Ba<hiAi)<V1(+tW#z5RN~l0psW
zEwXUcvP9|3IdmEzS%~2Q^zxmQlW4IQbaBy)y3+B9INd7_|Cs@@i|$Q9v6>ygPx)6K
zh=2rcB_=~?be5=g3A4#v+7mQ)eE&rNMA!nw<4=P#akteC!aUZP_Dh6B>+<df!~Aeg
zW07=p?(_L(up>jibxXqh8+nZyyKFcGlR(RVkn082YVYYW)kebqN}PBAW^P^XOKV6v
z-~hRVB5m=V>0XGTCfvZh{No>snZ;#ldr6Jt48K@6Ht@QwYTWK&MDDP4bGZ0ak3VIY
z2&8?pmq$foK|safOGxJTU<1^SVh8jI{iPJUkhCzxxdbUU*jDrM{qR@ni<}6^L1JOv
zP>70%B1QWVC1wOtmNZ>;cpj#aVZR`-D|ecnu7}04|D{lZBo}5Uwv8&ve$PKR6$oj@
zN7!%@;@qawOv`HT@`RQ84ZD_HhC&2kU9m!ATtAaox;-ShudBe#8?rE`edQ;xhYiiU
zIQ}#b8vS%)9?g~_s&c^HTk($e^(``H&L^Ii=9hXD<t?HBpm4Gwadm<wy3<@Et>zIC
zjWrp8r9P)*q<5UNRJU6%t0yb;_JBN@QDlx)owj6@bWex;q6@)wRu8Kf+{)C{`nxJ`
zdjpflb8#_}h~$p~-n=NnYalYj$#pxVWImap?%W*7&aXvvhOevfR5NKTV*kjWeuER6
z_3;ClL`lkV$kMSC6CTFK#g%Ilp`((nncP98PNC?v2Ouq69=QmM_*G%RW}9G}l`aaO
z5^IF5uW}!UoQIe4_w?d!9)s3sgW6H@t2bN0Rw=B6h(FV47IU^(0Xi!C1^B!R?C08R
z5RQn9s1xKl2x`j|;))kV4vsF3r{m5V_LE!sX^iL&1MeKz(L+!mLGL7y8MW-$to{q&
z&aAP~vPyGQaX-)y>G9xI?aSr8LYL-!#&nD+7Q0=FZ-50`WRbQu-2d+1i0TlzGy+%I
zt)dU+mW}zy>1ADednqWwWID-%wh!>vHjyHF7J%8d>fl+&HSc5fESkM7ei=#4`n^Gs
zbU%Pv-{pDJ)#KyAbsvAdlqKb7(B^2iRHc1)(P?({i`Ekc175FCu)q}mGp~K}%Q_OC
zf5(}G*9gZKf_V%UwXPT1#8YJ9Mc`?liK?@%Igb5u#rFDGD{GlRGdpwis$+$kiqbp;
z8O{^x!7)H9pusF#Vnjdaxf<q}4As2TK-wu=<HkN5%?n<NBG7~ztXKOHO0tBJ8V(>)
zqK9@Bt8(|1#2rQm>h8O^aBW1m&>P$&=Qu~h42P0STSxj+fi=jhj81T%o}3o|@XQil
z#0#~n;7O|qG`J-h`O<UDR(*Q|Ek?s6OYO^Qn|eD3_4I>F^QvqK6CB?}$!-&oAfgV(
zWNPShp?^1X=W`F~p#$gmd3@72CUzo7;OYra^!^YwT^1XC?^VQz3Ts+2!@xUjm@xmh
z9y$8q3SNS3cJ%H`&u+Sv0!6{!bwd(I*+uwxI1&?8DeuHX!5uo~2l(Rs@-Rh<J2cib
zY@b$LhS-xj>==iNhFH(4Xq3V;5AQU!oFcd6;T5<pIt5{c5QSy4AQ?!>H;3_r6fxSr
z)lotH==Tho)yndxQa@#QSOtLasL~>w<Uji&a~T=axT1!^FTXloZtZo>^g&PnG3M;s
zD(^sxF2?Wo`#Acb%52EFz2mNU{Yn}uevg9-)yAM|USRLtz<kR~x$fKPsN*KGwLl(K
zel{ZuOF>sbB?=sq{t-*WM~6Y(xfBWC!S|0EDB1>{5WdS_8wskfc$@i$5;Lm+u;^|t
z@*IX&dj6%;amCx(;SmwnMzldAt#DU8*HM)%b~sEl=wco%p51(@4=n`B!T=@xTZDsX
z4Z-!y30MvuRDqGW$O}A1Vx%r`4*DDdIvIqI$)I?QElAeX3a)Rwxo`tobt=Sjwb<Zn
zm#N)15z?>$CZl#hzJSZHQhSh8OD8+^ftWame|amW8Q2XA031I3G|s*5q11>|hlR9s
zeilzTMpCIDKh)3_X3rZTOko$8$CPhoZAt5PRPFuVzUo3Ss1Sl<zBy&@q`=TTwXe($
z&%a|M6@e&dAj|;m5qSnfwahLNuUElFs&?%H0Cc>T16;HH{J_D&;<oaAp^{}fW6-Zv
zTJBDa!TZ4a1Qzgk2p(EfGIi|u1C{3J_u<j%DGmlu-THpZ-$(n|VBp-%t^->btrJrl
zF^^LK#kXR|2Vn#}^)d&MBCk}zqy9<WI-CnFF#a90&POl%a&2vG(Wh>QMI&KZEj=z!
zy<PmNL3J=EqM@O9A`WFMUzQ1>t8ozk?(Nyc1okiML&XBxtpGr!W)1OY(s!e8b*CUb
za0RHI0~SDPJvDUHZ0my#durA43MnNv{f^&sr~CX8bsrK7^~D|L1Tz{k+p)b9<*nqA
zy-n%$C^!Tbuyc&N4+u}80j+*ren$BrYgFjH|1Th2GnoaEqcwzBAu^(OLyA`JxUVV$
zl~4?k2AZUr0{4V~Lj+MlK(B+E#n!uIcM^n5RutnUZGW;ngYn-<Q3_*&KEYgo#|sY2
z=;vU>=mYc7gfHd7NPnuTJhW?CySO|Jt?LOHbv~E^zf}EMC3${Uu`+{n8K6a)T_H}c
z1Pc)ApX=Xy4!CLncCQ3nqDvUdu{p1w2J2=cFlR^mF%sE&fCg<k2340yppPkY%m**p
zs8}O)q&gvW1fun%7UEd6FI1_WGF(p)x;Cy5$)RpBl0v0IQ#A|;FexwsJaOorKm?yy
z4!jB!T^?+I3p58c;>0CzhfVq(Z$8<F0eT^bjmwUHt3AaxJd!O)+~xHZo1+lk1+pYj
zbguD2R$qRS?run_>6Yb5YG-V~48t7MpR9Fl;N018Kh$<2jMU+!A$R6aOTV4~rBCwy
z82v0GjTg9-e*o5kOw9=Djk{3|{HkY^qm5@07b?F;oxRhs8!wlpP~tzFA&3s7n$;|d
zH=?}!MN+OIr+VL7{><__8l|%G9iGX!@Rwx*_1gE8%UE}{zQKT3V1>}+=Xr(g1#(}5
z4EYl)Q3Fynzn}dC(3}1k0rhTONMmxLDqe|V!&Ky2G(;fISkoTu+X^}5vGz3vm2<=X
zIiH?YA>0=!<#Ow#B+J!utj@yCroheFh-XoZ4q4T%c`~7d`Y_iIUB{gtq-$Wudr(we
z&W()_#h{`5hj)ygGuKDCGq09;q54^f){VfWEe*e+kw%veUO>#6Uu4FR>>t<A!h2&!
zILW>qT76uyFI%TR2Vc4wN+eJlpRi!;$0vkZ7w6a4Pq?#{ll)9%yaduIpX%#^I*L3?
z#l82n4Alb>aNy@&podcB!FAR|D6+8LQUkMY=$Z@71w9FlU#j1CGA7(N1H9abs%@zd
zs1K^PG$#1t8un(pI)upGuz8_K@E;CS7oaI^8Mj(O-AFh|Encp7<tN1Pf#gGi4;cKn
z2q>5KYzQ~QZ?p7`<quV|O>(n@Z^fHkFt(l}NFtDXfu7MFAqVl>05%9PICUimtLX3O
zf6-58>#AOY;6l7|$MK_lEf(_7QCuO)Gw)jdp#~y+yw1mB;Z{O(eZd&>4?<x}@4vpe
z!fb}6jwZ1fOUSW9N}lk>8O}xDU#p(D-|;2lZx8<Y!a706P*U_^I{qb_%m4Bh!VjGy
zsi{g%oV1ITklO8mo1@#I!zJN$#gu%c2(;YuPtWiYBX<K|j^<!zGUdUV1LL?rA}Q__
z1|2H`9UBH&YvHk#?%47$e*A}3xlb;Ry1F)U5Q7N3qX@0TA=0Y0XGh`AarFSs@85v9
zq=sw@{k$fV<=H{#kDLC&z5M230wi!8w^D>KTdfHAS%wMMxA}DW%-43-@$t8junb-l
zR5hwYx6N{F+gG35Kpl)DwqYH6$)!z>LGG9LUaKr<u9)M<C6?EAKx{DxflYZ-c7w1G
z!KrxS#-Dxl4bwuBIt235A`>q))j}IcfM3bUx2~sg$zfSQy-#)?Fr7f?^s$GBakBZ@
z&9~Xg$pKSmc@Z(ooK`swh)!eBK9)QuHwXl>CqAdXY`6g-;GIC#EUu8Hb<50nf*^L;
zs;N<VV-5%D&Wn(ItpVXLu%j<5!`5kX))?l$ID@PpPyX;`4DV*-(`UZ)2UNbPls6q=
zc1cC|T_h~u{8KaJ$C$zndY#W1ZH2~H)d{Ohs|j6lmLEIzj;j-N@-WUVdD<(B3YwZ8
zfU_j#k;kW@U6#YY)>?j#MwdQRGOd^rIF)msH>G+v)xAD;yEm#DZH@0K+5dJgHU70@
z1`?-@0o#0hq(denr_K8ZV1fsK!&Nm30*uVwT6M<s<~k&l6!a~j7Kvt0*olGX7_LGD
z$)tZ>pKgV3G%qG<%0*9Hu@|bG3dK*lRGGj1LAO*v&7j!A8q`&kr;1zYv+hDyH9o~}
z-|E5wM08%KDZ2AIpf2$iNre=_UZ>{a^=hG6!_UB#E-pYy2p*j%84A0iJT}~LLb;@3
z(b-t^`m?haXJDHoSV<@YqB4D(=VM%`;UR1}#>jafQW{+zLlE8VX3yQkn^p9<5mJ^;
z8a~~GmCjPOq|7S|?{Y#+@?4|^SnaKpq=*~H&c68Jx!jHKZj>?c+AGOzdwV~wQRtg&
z3c9D2V5EElH}0`)$(?SNw3X*pumB{zt0>7JGWRuOm|v*DeQl`b9Ork_J=$P;`rS_v
zQ1h@w^@=8X<~dG5d;8w;j!xrV#zY;sx#cKzq1o5D`}<^uyNUAD!(MPk>@?$MPU5ry
zuC%PIwOI}QCm;!JIM}A5Mv`zQ_$a7gfgg}ZlP)}jHk%lBTz-o}@g#dl4{JsL>qOo2
zxPHc+82jRlcgs2u=C7_6HKNdrb;$09S%Buii^~&VGrf&A+_NrmMw#2@qsJia;yNc1
zgyjtD`Waw<-?;|NoI!mM2y}UR?(DhbU4a6mqQ4pAettQE`=sa&!#F~v7AXUjDNpCn
zCi9)OLcJ1>8(%tDMiM%kSU**l(&0z|{haA3@~?8w=2hqRBG6aAJI3s2|5hCq0s<s|
zpIG+u{GSWY@E9mPf?Cg!MD(6I`ev*001x-k83de@q8eEzpUIkzm&U%I^DjQemtXPk
z93VYT?CuRm@#^l`MgSViJY_=~nw(xUe1@09iF)>4r64OoLvY*oLkw=}MU7}WcYjKP
zE{73RT~(VG1we+sl3vfn=)eQAc)u{B$R+fJh64fAA3IF<bYTD>e^%{>NBnI3cOskn
z@zq_I-W0PM9L?G^OsI7z18HG3(id&~O~1vLwPjav1TTvGBVP6#_U6~A-UR1<wd>pB
zkk!BHC2?AEtMX2@t;5^;{zt9V;}DQjGMJu7h(;j}VC8Y_9`AI=2PB!*9LN^_2QUg^
z>inFQG4Df3HvMI17CTHjeQe!E4_O@gSAe6Or2W<gNtVbozHO__nDu#Q7fB2^W>2}d
zI1tu3^UjEN<+d*tkSae5cQoc6e+=V?(1c#i?gtxi?}d#JB|pmv$*E^t`Em+C13;nG
z{4}Lnvy{Wx@+!(*hL1Z<Wnx>iZ#Xkt_mi$dI59B!g0ml?6pA?RpC=zQN(vAF;f4*i
zdr}xB!95;@pI>|6&`Y-bZ5()ZGbzFF&LIAf|1jO3l0RdwPyl~AD@hF<0$w*zi2drB
zJ{a&pa4^N<7w&|$CJKEI$~788;B2XXE>G{riz+YL7@Xang6ycF6!l{y{WPRecLi4F
zOE-GI*y8<@l`BTW^s?w!G?T^wvu~4iMUz~R{cRNbY$`}TE*HEi6e#viX{|gAS$)(T
zV5D03Wrqk9A%DP@hJ8n)2J!z7mgW^p{*d)H9jkC3rX{vANHRvo<IlraW@<W~+t>;r
zjAF)#D}Rr4Wp-D4YGo((IrcsEWx=Vol8QAMNV(2<CEkK_M^7`2Omnt5V7nD(jo#E-
z9_%Z_d2f~}W1QlNJ4uTM8Pjy?Kq(dV!t7VkQ2e#>%uxw7XwMMvqB26|_#p%MZP?@{
zVlMEfMmslA>EMqW=Q&gP<ce>Wm!8?jx9ee&qm7tu1U*C_j_7NhUsC1>SC4Bg_P2at
z|Ijz@TSBQ}{o2Kv0S<DS(kH(DskB{D(%uhll~kVjT+b@w2jXsC9r{dR>+>2b%7Pv<
zeKx;11vcDow4WktcEBb(^C)@MIQEp#`a?&Dhk;x8y3YJCiwlzM24${9f(qyu(G|Qw
z3d~MADc=gSCrA+B7C4HhCJ81rtM#D#wHwS;R%&wETZCwZM;RjRHZ9@PuJ4q5#q2D*
zJzzwpz{=}4+g&{hxkBKFi?!a;o%`<G@xZINs7H6Q$MM&D>iNyst+H3xbJv%)dKPzt
z?ULD>L^>4#_Oj>kP2wYEmmWHsd|$z}R@*wC+nCdE`(3p6!w}IDL}&Jc(a%MrkL)bd
z^8B@_Jyr}GoxGOFX-NhX>XTRTCaQqPrzu+)TOR=Hx?`T5LlOv{yW4bZ5!fwWGWKG~
zc|JKkJ>3FXK*i>UE)MiUynU~zy^t0q(A5)L?D@tb%vAg*c5g0}d>a{rA)hVZPmfa&
zYTHi(wUBadJF{KIo|h~N^p7oN{C@dgXW$bi496lO^E?W6YDbciKh=ogqKKULZcQ14
z;J0;jC^oj(q;&s*v2($N!9d3?%AR4h_FQk+YSAEG)A9HL0n1UEIjQy@c@?~M0Kg3Q
zy6RC1y=z_P%_qVASYP2b$AhtS?u*>}f}W2lZ*SyoZX|7fp0=IUz$Wgq(mgJkc}P!y
z9|g~~BSq5WZv|DJjJK#p7Y@ohSm!DSKR?y7Gyl-T?x=sZ4P{>@jCrJP#IBA|;JRG7
zg5;ntD{H!Rb+kxTMa>~2c*U4{CnANB0buk_jQ5(B9`SWUsao&f4J2=M>WRi%nH^AF
zz6m+L->tf9E1w5kS-#WL(IMqEHR0$m$htP!uWLkm18LE_n+gh&OLe*`F6|n7pB^W;
zUf3mXPcV0vtES6o%aeCP-p>r*$2J}x_hQF&7~?zYO``FjBf*(mHn<y;ROzL|Uf!nh
zAQwA3UnP$^zNDwywLlBdMZ;|<VuD=fQX{9P915VdM`$0_Jb2~h!%$^nh1=Nb6aJkg
zGzo4C0^pgCo4fggota<Dg~J^$J_XCn&nj!h+>R49EQ*PoU-J`44p%fZZVy*jF~@~N
z+?w6ro+2I_J-xj0L1%Kg3;JD>6^x^0!ttqb^8kpJ=(;*`++i^tv+;UD=N%)eVM_0Y
zEWB>_c)LGucJoH=Ech=>ZAaK<l9(h*s&`Hg{arq9EptF^UTq&dy9z;r<?*Dv=Vj9{
z09f1n52rR)k#1>w@Hx`otI`;*y|C|Lxa&dYn@SK+vn{|RQ!<u@%}K7-j<s1j@~zH4
z*08~z<l{`)tgdYc(GS#LS&emBB@25TQ6Sr}*90A$jg7~^Gpcy)PQlXVB8>{4Y$y^0
zUrc?wRRc92TRS^uniHQn4t~bFEsa|*5V}5;zs&UC$r<)nQKtAae4}6R7TkijrT-yX
zu3bsb0?og~mv-;%1OPpzt10acS_7wUl~Lopg3a%B1MjFK{b>vaDxRHgI>WzM{(l}U
zi(UvWesyvFTg$xF=*D}GcTk<WWy>!hK-ho8sF0RuVNmyh2to1_Jxo_#c08)RKi=tR
zQhMbeJuD1B#QG)fk*b9F8#X+t(E}j|kG54K#M2}cCt5O<|14#MIknz}Y`-b2f(`yT
zPgKK|;`PCQY^#9fOMMjfxcgOO%setOXQ$QAlBc!M9b$k3dUmdm$2Dg+TiXFk&BbTJ
zkS^7*!gz?h>y6qsPdAliJE0$cWvu_zsmEvTzo|aOow&nAYa+$vNx{iJrWsa5gV%7t
zuA-15Z3e<eM5-AA*&7k&=Or?+^B?>D>wK+sT)Q1UUx`fioLW<fjur^;>^%mDF)|S2
zo0z}FDX>>VN00iWmFrrj{2EN*ZhD#7@C8`by#H-}*on9~P%C*=!S6J-wL}~PD{i%t
zUcjn@r^aWRI63=)_tpzuLv}44rxj13&Ko^i+=PPjCJl}PF!?EsNjoKH#H1C64v9OE
zB-N>}y<giS)vWfP;Xk4iot^7uu?jE{RGU{tqMgl>?f~&%y`TSBv@bTnr&40`lR;k`
zUh{|I<0Mn#^~&tW)k!SrZ^L2+e6n?eV?2^6Eap?3?bD++N~E(~l${b5wR*hH8Igde
z+8dVqWwRz2g8~t8|MJ&Ibg#}9k9Q#e-2`4A{G(;u|IPf8YD{nmDt$?uD?Cj~u!2mt
z`Q5SaUMMIK3i(HK;OEFfD*ph(bby6XC{sii-7Gbwrp}uEP0t5=Ic)dOAqOZVs?h0!
zYfb<i23M<u0Q=rE5p9`~o8EJ$y>R;iV#{%en4;(lifWX(ErT2w6-L>ld`YpD-cW_m
z@mXkYc6Jw}S@G(wx1{0J-J#(@@MXCD7)U}ejm&TC!y22RXv#}qBUU~0%^$}ejQ{n4
z?2Wr%D5A?EQVcbD^Hl+{iCXyhnX?6IOWnl{OaP%*{rIiSZtPdzCC#^gFjx`ucC@?~
zwh9JZ29y=Fj?_NMInIzzLH;!~jawwYygP+_zT{cQ%yjH@iSAc=J}O2wX?l$0+D*|R
z`>3;`URpHLarDnNKXUf_8yPS@`4@~0@Khj0w^eZ#OQv7jmL!|N>fViB_qk9%<k$-&
z!9ajh3L%ah<{Z-KpX4Liguc+)3}SB%ztRMKG?5WKb4cm=%fVBDl&;ES*S=?CN-x*z
zM!1obo14p`g30WAohSnUs`G0yQV=l{BE>F2wR$0^mJWxI?SQcvDZ~|0SJBG<61y8r
zj383>zv>Mve&?<-W1O9m7!f-gkZ{PaeEYsPPO}`aC-`XO?C)L-FaYtx743i*`qflR
zVi0^Tsfi=(>IKb_M3snwmf2)YqsY9cP7RS(m?1oJPQAPTpB1SnCji*<<e{Sspr0Q1
z>g}GIT!7iSVKo9sKNMZ|-W}EVqH?Oi`m*aggs!+}Nmjw9*Be>7dzaC51aWpUe!k)t
zDL!8y3NpS{MU<XqmC7rf%D>gmS~mOdQg|rXO?@VF+mP%Kvvvh;KOR`vs{b{-3@cF{
zqK>Xt4AU8*Vg>e<b*D9eXjk861ond|x^{`CYM*rg-G4n#VWV>8cUQ283``*}&HVTV
z)TECw>CMa|ARI9fF%#<wg4li}0#0hSgcG`&8NGg6{iJpoz&{}-h>%Cy58q28!iBuy
zM)|I>>+K9hXg`>HI|$;pQWE@zn=aMir7&beAk0#{<Dsz|gvh;h*Bh)gXT0su0&;pl
zYbq-KFtP0NGp@l>d==T2BqepPbuz3bCcEJH2M#-&vL3je2Do_<eS(cuGcYAt#E7w}
ziAK{2#dmD86)u0^F{^I0{Z-g_BT*ii_E(B{$@r8;vRMt&xB<h5#eUNH5tT{UMMwg}
zP`8UKkJy<VN4xst&mJ|A4!JS+-|JVaL(@^#?nu;B5fP$Jl>cQGj!Q3Y;zUfjOy+KG
z9A#Q~Q>!o&?I5i1wZq+>i#}8qWs6j2FXiAVj#6!F0eIuM9YOi9nxN22&w>GvA@EBZ
z{rt7bmxO@2WMB_ZIQ`qKtgxumfJ!tNXddghGmO8c@a<S%+}%6h{fR^vt-EDy{&jXH
zpW#o&_j3@QcQ-!=qa6mttpz|{TjDUbwht1c|D!JCqrw?8vbEEE1wMrJOS9lR^1X1^
zpCJC}Sse`|?J^-q^R_Gq(2ItBAo;%pS(n`_pYMN&36JU5%YVu30}@PPYvk!#0a(yk
z7JzkilPiN**20$yToz+mQ;hKTS?J;CpFifR%CaT2!H_pFDH*zW$wd)>G27X%xZgW7
z^mw*u)IPjFv5q>c3_tGE*ua?y?sE$8zZq@qBg$BMd8iPPpkW+m=5f%)$&VHD0{s8S
z!yN>P+?d{qeg4-jFw9TOv+yI+2AA5#<CpoP$i{%SJU(uVl)6Z@y@)wxhkJp6zKv}}
zc3nv>gijeb`c8IVTx7~x>;8jV46tEDGd^Aa>jiKj+%T=NG)t<4$OBuij%+XJA>T;R
zD#kLQn1G)F=L`JZ6v2bGPmgGjiv7`qp2;n_>mx4*6yN={VYmfEJBov8;HSDTy3e7L
zo*J0<TIBByQo1x8>F|bX{0IWyU1Jju;)!c?>^gf-$Y^q|nQH=Juu$d{X)6`4N@+Ll
z4BsscWn*(o^*%6W0&JxSAX`!7l!nLD-aS+f+Xk#+aho4%^k(Oz7a{f`O}D+_(IIPq
ztUwugR|Y9M3>FUkDE388j)h?c08pL6p4!_RfL<}J_s@BPI}}x5N<Ug8;`)kjh$hU8
zl82pG!P``ImO@fmh;Y+-qS#HC2|Mf`KjB^q<M&yvXf(^deQS}Nz66c%ju`Ws5Au>2
z!D_YXH6Q&DD!N^LW}tap4u6aL+3GfHIgc_IKbO=D%uVHt1uhATVZGb3@mykdQqnEu
ziMa*pnr8R@F@KnF!7p7U&x^qix!QW&8xK=Ekvd|QGzZE|hw2o*lg+<KR?v{HT0~rf
zG6*{%b_`$NTRcc{tRW+`^_xHsJ||s>3$88uN50B)47)vn&e**gULC&s{L-xM1qt^C
z6uYeUWw&FW`jsP6#4=7z^8HE3^X(%o6XRbU52M<c5r2=4+HG8gmU&y~(>7c>5G<r!
zWrFu-SXUv2kS33^Uo*m8eovE3zYmRj{b|1?ly?dNXVs4IzJ^9;r#=Rh(ac9IH0k1Y
zc3P93-Ox+pN#PUU#b&DI@)p#OX8Gke)}GTm6kGZ{Nk8boC(dO|Lsku{G)`R(>SVa-
zE?=dW;y&ixy<_m>JJWK2oX_v{tb#9&*Xe^V>``o?zv-s*DA<`H!*b6i>6|w7A6vo6
zn)k;rc}vJD@q8m_$47hLRU@@>{i8!8cn{<BmD4^RQRg3b&(G{#6BGY<=fK#bcJq}S
z0Bt=q&hU0n;fV?2ues9KM*ZYCsN^pEO7edH*Sb;mh^IaO=F`=5TJ`>{Ne?5KbpOjy
zkkc{Z*QU<aK);m^KjEiT&r+zFEZ|r1M+8E?_;N~WDJ7Y)sOXqR#LjA{^a{LhrF<_p
zdqXsd(&=cdDr+N1gJt7QoWY$G_)9)UT<Mu{m!P@+z_dGoz{76e+`*zwwEYvi+nuvc
zAA^+-j+rpASetBGM{z<XR~GL#7Q?<LKOts`=UxKVJS=ycsY;9@8n%;kB3zxA!qTU8
zAVL!bI-pk3^AsT^+VX89m^>W7avF<%y781vEVQ`N!p<zOK}p~lOM5kiz=XjymI5Mo
zQ17Zog^nNbNcPafhxa=?JgiXC{4Q$uNEmoz;CIc^qQY=pvLf79zCbV6)v$gD_2p}(
zo;Qde26Oc4LQAC^CaF0-)jxlS#Nk+`1Y*;#;%s(yGkh%R+FZl{%&H~aRL#b}b|kae
zOf?uJbd-psUT-rkmp$v!QoZjdoWL#t*MI4qeiJDnH+0cot~G^PwDP@gavSy{M^68C
zNq21Lq}G`1f=u;AL|RsQDN+jOJ`QhGs&HFP(OtZk04Q7*4bB|<U4jHK8guVYi2u^r
z;ytoM$otLLZ*z6@J#L7Y(j=RqmY3GOfhSTU|3!LWoR8v0^QC?=-}tx6L{wGPd<VYe
zZg45f_k0q#$n1H&Aryc;l@KM>2yVq4w!7VJ_<pbRU@7Fy2H~|CcvKnv;_tp5I7%-z
zsM~2o@WiI!jfU#tCD8KL5QqFP-v!6(nT<C)&2chNqk8i~`nl*Bhq<JvA>#wZb{w6x
zbL8$sIgJpCnLNE|)^^+p&mkqmo2urbMcdV0SPST++)L)5d#Gr^8^H(kVt=%e$+SY(
zaQT3l$LXHSZiohD-z$}0a=_0*tBQg2UeHYh(8-PE_rL)hpZu9U+-=ISRi^;tM5%**
zKa92&S>)F^Ica5)Z{ZWuqSfqlEb&Xcf3qMtxc<Nkx3LN=Un9XYXa;oFY|=?r7r9R@
zqc$ORTeqx1mB32$9<9Ce!ULpr^}3>^LaX4>8{?AVJhGl|DU;ejD-eq)qtYLT9$lDa
zvl;WbtG4GwpxF^EKtgLWid}w3VEFPgAzC7qWNgJbKKrIWo_|`1>0G6KNeVeNkuF?#
zbXLol&t))5?}kf(;Qr^#UngOB#;RO$JBS%HL-Pl;E^7;}Y#HQgKhedawvAZnu=a{K
z%k49GLTfZJkhx`BAgN<xB0s)_)Z|Mj)_B+ogCPs12v|T9+f#u&awDv}ty16cY@MjK
zlT}5NUn@AYV{!+|{~zJhbE>V-2DIU$7s#LT{~JC^BI}*AsJ@UA0rfxY7<-`Vzt9#h
zyuKH{C!)LBeO(U6jLb6kFkk8t*97#c>0dS{7(W>Q^m1<E74Z%5+>~{9K7v^$%Fj76
zNze8wI}(%iE%^HU#PtuW6iD>gG$MRF{1<I<&!HstLrI5q)(?=K#B|d?{ZwJFu@;F(
zV($J}lh@3Im$argyP02dhbre?*6}<(`+tZNnc%%<9~$9Cw|fIqw9Z{58&n!LYf3*(
zA{|NM96I}aM#`bJ6%+up9G2B*ng$MCV0!)?q-Io1%K*@CjGfJTz4<{tY%%!@u{700
zHAvnEO{WU$J|rwGY+9R7S<@mt*9-}sv|M&&C(fB>#98LsFLL%|bJfMO`_uKqeDgIu
zC+EK+^Dfi=-)l$B6vvSx$q#Wcv1d4VA}@F9MdIiTl{0I2cm9pZ7XKoCU+K2imA-__
zv=J>q56NY)H4S9Df4&erh66xy{h(OjLu$sy4^YA@J?}^5EMW7jxw6)RY;@V9vvyg9
zgPRlQR|H(2?97n4?PRK6ZtE?jDK5PYLJ_`n6`n3e)lxaPU^Z^NmF{pW?=qc;BiDra
zKeo&)FM<NI35$L`Q%Ku43;Lh5>l{Ajk{B>Nev^}g*$mj{<3TwcZG<Fw^arH=KQ4&*
z-jzA>{vy^((=mqCkgunv!}H63z-5dvSK>vxLF`viLh1NEmnBLHlpX)_)P=PoDOfqo
z8<-NK-{h#_F4hm(aaaBw7<txXLig|9N#Wyed%cFhP9XdcmL3XBZXG2Guq<5Z%fTBd
zaQ=o20ib$S;PC6A*K+z`@!|JNs-4G)INB?)UTo{9Y1^{nd7CJtV8)9+;BiaI0If!=
zOHDM*-SVaObziNsy|HC$UesF00o_ock#-E;@G~Cu4Vv+1l6RkMx1?>^PS-exOoqPb
z=w8?(WdcBJXyw+k)050|RK~Y_DUm*3$Ac`W_dvvSS;t@vQ;5h5D-U68?kwL3yL^BV
ziE2=5C#ZcejWk?BFU6y-(8Mr^FdCjv=J3bZylOMKXWp`!eK39+6)@2E{O40iYJ!9f
z)0_;lh|@YBBV<a5Y?Y@u{t(DlfawYj;T4=vU7<uE!FKO^5>{IsVuSf)!gvv6!UT&Q
z$75~c?H)mi+|~!eqZ&a1RNRn<I^qQY;bg>R=Q_XRk74homBHCVG+swPqH5ksKlK91
z5XdW@^SJwc@{C6q2Vz?^h1m$RPS3?L=!*>p#vCvhwNQ&hR=Jw1tdrC_E+=^J-UH3V
z3=V+GYM!A~<B@OpwpXfgzD(7dCn5uf2uQII+rLZ{9KeL?jd%%m-z64BiE^uET+Pi`
z!qY_w8j|ifM7)DI#IIORGx{zmzJx(dlF5|t%tXmkP^hJT5Zv#+=-pEAV%PtSH}nFi
zNBnH=U&pQMM_?KWqn#hZ*j6plRcIJoRnvE(H1nQ59@071_iqv<^z_bO{JB)&ga3K2
z81{!%QXaW}<4{(S3>I<@Eak&pl94KSWWg<M0SMX5zLb%ApvB6>g6At(|3Z$EY3fM^
z+yOpdw%Q5x<XJqEHGq1W$nLd&>m(rRQ}tN#hY=zQ3CRctn)oqtn;Ucz0c1_yR}?#>
zF+12M((ItAmf%NJt`LV6+yo>>d2U}@Yo}YOvA<LKGJa5zV_iS|9swhZ`45?7pRx@6
zUjv11qBg!eslQA~{Y@z+&3s(QQdmu)h$pOuBQn~aXbF$xh!)Uy%RNY*D|pu)yS~Fz
z#x3cO!K>VVmz5Yy>mysh)+c;CCCdM~p8jo5Ef{jRE;O^+Ya7Z$bpXb`*DH@7xsi_=
zY*6)AlQho!#~4_28*trev0u_VMJT*q(x8s-Qh^r~Xd~Trhm-s5vY+D<*&Q@c2kf!$
za^wpuJ<#yVYqnyeLf$e)uLdD=l$BQ_>R0luvwrIhGa9@90KjwaD8i)eB_Utz_tXe-
zfuF1AbjK&fL6xSd>ttjf?=6gW`?&vG7)U_cKRndxpacIOuHG^#t}fWxZQL!mTX1)G
zm*DP6a3{FC2M-q99YSz-cMI;p1C6`f&3n#wZ47=gMz7wzcCA`f&zv<Bsff+HpzL~E
z<`lLYa^n0MIGZ8yMb?y28bE(xXH#)-$l~g8^(sa+!JN&6pWL+uL(44GV2VC-QJ=gM
z_&e&&E{+R{xuA<}@pDRQE&wcRhY)H%!?L!v{^slqu*N+us^*ob8x21@5@ye@gF_}B
zn2y5hl|D?ln>~_8Pioo8F61(I?4O(Wd6KnEu&it-3d-VC6wvfB*pCT%T{Rlq2{f5z
zL2~{)^ATaTjwpE(w4>@g*)f?%tWv)R1_H{IcM-t^G>%C$8YGXLLmc7n-@ex$WlJmD
zual$#e~!;~hlKc<5&-oloODDEI`Wny!#%guR9d9tnPf$5M!7g#WcIyKT!LXa{*5wI
zkL!@*6XrWf;L`H9b+d))1Z%7L2=#G0crjgLRXxo%PPg@4^@>=yXd2at3}j-{#6R6#
zN+cwdsmIXb9tS-qkru|11N_W~JQ@Tw%}-R?RIpWgeu-SenYTUxh10#+jwb(W>noKE
zq!)aX3~A#FoN}p}$%{#-?ANQF5ix|=z(!#Zp8bQ1PTYCdd4KnE(|W2QXsgWT))GTj
zxf0&z+m?UvOJQ?>s(Z<U(EO4bbn(r}A}OCU9l(;!X-xD7C`)Lw!#oh{d-PaaM;IIm
z%NElwwC#v`nVq?BQK|>a-N3%4{?)L^`F7-2vpMHy^(&e;fo??}BTAOs3p>`GB-e^#
zBM3JQ*uuY{j*Jbut4(O+irt<beT%5rt}cCY6oIo()VP$5SCais$KJHC1OIdlJFt4&
zOpXA?Pu6T&vLj9bQ78+hLu+`EC(q`&eT~^kEo=3iM*p%(kqE^mKW$UJL8rn_qDxYr
z>@l=;lSW6UwbAic^Vip)eQx*vD#vVSiy1fvN=Dz^o8K?<{lEV;0L)g@@sxLOUmr`B
zpyQG0^QHev_QabT$~}*Z8rUn5j(pwh^pJ~v0s8SK2@^tLWGpLS2Rj4~5s`hPh`&kT
zUG^daG|j)H<Q^=Xuavt#wggb`vZZUFI4XTs(q*H90Xz1Lkn4_s05pHP&iyS~-W<!X
zqHb5KgfzYkQ2&vckB{Sl>Chu`&GKj~Zsi&%zIJ>p^w$8q>ra?%aGgX78-XuB=Zyr>
z_<fOk9$gB`+LaRu%XA^VB!IL1vi&Z?bnH^{Y%zN;WKp@JZW0~@@P&~>`>N(R?iUn7
zQ=Oa;Ac85=w`2MUivQK8OuqvdDOV()4$FT_moxH<N(>z>zOmYYojZFWUXeFV)l>{a
zqeJ0R6c;!M_<MP)Wz;b}Otkx4dz<&PLJC9174`?6YdPDMj<fvub4{PYw^1@J>ZYT5
z?PTfo+b-KIPU-b0I|~JpxV(R6LUst68K_sViO*fxxd2gt80Y`=W#aGCc+nBLB7wU0
z)m_+p1KHeV?uSOFwPeW9!}_2PB85}ty_71^l+t#qkq~CbhA97|o+)+|+Y~6;Zcqa!
z3fpBzcnQZ2CEzGmdEWwaE4y{qJzNa!F)Ru!Eum`dgO2wkO*Gfiug6i57SrIPSLd!8
z3LY-YIA{nRAV8eie0A(!b&&@lP&^Q<hkpzdf^xrWwaXRfANxL!Xk6V`dTjNL4#M#3
zvH*ROPvo^J_38U2V(dkn?bOG_H2mLbN{tdsCda(U<9wL$Z;HRm&EWB;%Mbj%h^JHS
zob((s9-aqsnEBjYEt+YGPlx8TFWP!3Rq<YC*oJfTx60(u&+&SniIN*heD+_I1QP)z
zSbnWpGA{kjA%;keS_hKAwysdlqmcH9urh|$RX(zM^K}nUk_qFyVvQ3k#3wNv47Pr2
zT!Dv~p_GA!am@Imc8PGOWgau~OE~p&Xet^vWOr3`jvG_-#l^D_lp=g0-AQ!Gcg4^z
z%OR|_BN}KXVaZ1roo6<t$BUo98hQe>QAVP3gRpGh+MmK#9hz5(NI>wB4ez~o1yX;Y
znR(J92^@ZxyZ2q`F8FBWFRQ>lOEzbiGQfmjd6!WDHQ>);5WxHNDqb8Gz>|x>uhjJ#
zZu~=}W@t(cqTSXl;-0+WlJKx(!>j?Gdn@BSA1pNgBl~kCnya=y-^wmg`5BKH6INMI
zb<){DNZeX%bFMLtsoO7Dm71`Ds?b`UeysqFvl-etDDx?AWCE5WUMDD{Zb`Da_YZcG
z_j^hd6FT0ONj^aFz~6YW5BYy{Qvc~O6bg~senv4J=V=<WHiCm(IhoUcr(q2aYaqUg
zzOR@p5++n!j%-{d>EDaPk&_o7jRJH;iX~LoPcm_!dGT?Zt#A$G4jAs(uoAsOOL*fe
z!h5=QQa&`Gw_5r7<f;TpEjjBQjtWh>?|cIeRU2#T*gna7A1;?(=Qzr5I@gH@J}6pm
zOi-Pu!HQyR>DIpqsw>3%OgVw;1g4%Zk7U+45j0JB;Z2Jk5y-cX$@T0(7e`pc$Le!W
zKbg82iAP>BcRS@kQ*_eNl6A9)s3DjT3XQjt4Sy{A=>RR#xX;o%b-Jk&s5Ku`72w4%
zRg{L`%T|X5=1eXww&)5jhe`hbd2~cn&9{vq;zuS@AQv3FlT=+FrV-?f%OQokiDjjv
zjMo`-1DZ{B<<bDo36!DR8ZPl3eQq*fI+8mAtH*GC*S?yFqW?*&)SU88SEQ18BuG~R
z9lE#uc``q-nf_DDmhFVE>Kq(_e){goQK@xa6bfU>XVUA_32dG1b^MRHHnKs+?@<ti
zRz^}q6!@EY73}De2AbK&<a}w1z0*aVh93D;NDXO@p2y7JufLqu1HwNqlk9$hi_^pg
zSfYzh{0lK63(Gv8(-7cz-8lB0>NUY?FMpR<nI<{^x2-Vm_Hn(T0{VnObWx^yPmDCq
zP5Y~}Ad4eubY!GeHRH1LuY`N&4TH_`WezfEjk3uM(<qLm)DaElq#$icg2}{d;Dmh{
zzV7*~7Oy@h_DuHEpRMq5r1rCt=j?}|Y<}39xMUB>S>K%my4mw6GeNz16`s&P2%^Q(
z@GsE)09BFek3^(rwZ<HoXA}})N1i?wew%DzG&Kyb=!n_?aVY`IN&&SjS`6#zlWExv
zM<d`HBn6tCkbf-sF8rx*d!c#f#<_h=H7zd*hbm6PpAQkx3xbnATe-EZYifT&p@`$6
zB7=mqmD_hY)t88@|1t<KoXW;lzQVLml|MN5rV$uY<o4944R$it>F{#hqap4mb%HtZ
zZLqHP?-2laYS;Y^(1@cK=|^??D3W!PgkQ_?dLTR$`}X}W#GBM*m}zo>af)WHeS6}I
z4x!&gz2J-Pgj^H2xk%H);3U5v_7qaM{zHE+C&=SHeJ)04m71zws!T*mkhBy0=jc@~
z!)U3#ZcY(j_5osZ#_>9<54)l2u%<9G=ET35nj>4N{Ii3f9MjYW-)bDLMHI2oMeO(W
zB<>WjeqZ|h5@@^te+zDX3$Md-l~R}hRL^ig%@D1O^W$cc4fuimSKqa5K<j9ZhGpNl
zYBjz!G~=G$PYj(y)n@#W&ht}BEh&+Uw*Sm5g>a$!SnMZqx`f71b#V}Pq5WsyQ6P+6
zCId5LvzU3=R`b+R42rf0P6KDM$Iiyo$07NyMgy2bBf=JazI?md?kJzwLF9HYJgXyt
zf?~`~RM?d&eiU<HFFK)+A5=)BE2_Aev)!d#f5AvJwQh1Kun|8i8Mm$>8&jOs?3jyg
z`syY*L^)@a1ymh4+p+#1)eDB~zJ-{Ue0!5NpKrFJ84|#20#smCJxWyrHdO=Zp6%w)
zd>`?tF<l16Ml3Ok41fq*+Q9@AW}dD_@gc!iVYkIH<HVoCLU)&M%5J!9yf{r?-I%Jv
zwf3<6Z*h4d)ClpHTqXQt<T5$WVDff2(eJ(AQQx9hA1N>bxVX4nxIZK;A2)Qc+&|F7
zpOCe8t*&pL{wsgm-?p$74+iq>NR}|7@OIq94Ir@wc=HX1QUYtJ0GP4K52w>G)0-Z-
z5DLAR@v)ltG{b3lLhIc!<)K6UOgfEDW?>8N>o91j&2}&$!!C-gad7F!O$4Z|31txq
z>Jf@SeAKy9oUhBmJ;q*dR$qetqGn<xo+kz<3l5`eKR6O!ZbS|P6?9uOgQXm0jr9&V
z5Rz8c?XyS(3i$25;tC-!ZRk&^oTiOO$a{RDmYxz6BSS$G?kn69F{M|3Z<=b(j82ae
zqj<X~&o}-_`DfVcXtinU0ApLjN6ah0{r`Zi0kL5nZcj$p+f~?L&PulSe;y_e5a`2)
zbMNoY*Z@mjj9VKq=!~>%n}~vs)o|z!i_3lH^8YOs0|~lLknlBWJpZG{Q2H=?yE6Li
z9Svb6I3EsrI+2+4U37EKI=_xU?w##*9FEf;;b#l^v*5$+ena$8p1P<Ce!n3Ge1qnm
zB;?S;=fgF#Q?&{Mazr$qn_dMUkwu$~W#W}<o($X{)Dr9iO<1Ae*nJMu^~+|MF>c_j
zzZqpjh7V4a6H8O{Ov7rIFK+F%7}5C4Oka4~KqVYwnn*^S5+-x#%;T$P;Q9R|q(sIv
zSAm{xw<ATlmYun>`jznCc3zb`S>TVD{d#Oc!#x-CS)aJSi-`*pMwa&PTAI2~u<2er
zNfBgo@cH}CO#UC$Js~@{v!b*D3S&6q+<nY18e@zBWZUM1Fp7h&WlhBx2_(n84cjAL
z62DOk@U1JEr$Y!}FW?_<GoSlp{L|#zn`o%08op^`BRi6tIt~lU|2Ff?-!H2|B>T`3
zzWFAdvK&a{BxSM5-gMRfT2`j(T3+WsWwO_e6f?76RRi}t`p;5<VRX4)bsq%UY;F^I
z`=1i|mUS0;q;qqvJ5%o8j^Yhf-c~E8v%dp6yEdp@kDC@1ux%hRZk6FWY$EH%39j&f
ziUEkyVK=W*Eq7$>i!0D}Uhz5dn1o~3<j7CF;<)vb6gVd}(6G*}!Qj7UUqA-Au&ndo
zb?|k{!I)<?qmGpo)-DapaipG6|4xUSC5djNP!qT;ikp^K{!C@m!yqWGn0pPBSq<N#
zx$+P(h^6l5BQhL>8d|yV>v_m68{0XT?raAguZk&ttV^q}GS;WobTvzJzH$)|YBa3}
z$t+}IJ|K99%S~lMd69bj{%Y`DB(Y2oB1hNf*@Ml(rkx2RH@OyJpod1NMaLdqU_Vwd
zP^2$qe#H+npiz0}(N3A9Q5)}r5xmCtoKa&1(U669+8M0ahVf##6ZrV!fdL!0;ZvjN
zaa7R#vXVeUg8S=Nt3C}#_0_$pHyuB<j|(IEDqHnHUc@6J3LXDitnw&P_zoa?(Ps*5
zLk7H_ymV1kFhhXKyFXsGeWmlf*1VJ3Z1Z_9Td*O63dr?{)snqRSiiO+WUgI*9UVfg
z|K<6|qNHM?r&6XH?&R{*lzXSoFO1yX*`5z4B6d@^aEm>XL0YqhIO$$+{0T?t{~8Ru
z3ZwKO0?-o6AWL5Eds(#l<k+!cWiVd>imt<!yn+mp_y<mrz~7-d!_2VUG?(G5lgRRg
z9d)e=;4bJ)sS4b=B*qBywc&F8-MlK?qZDCe?g`VaRYSAU*IhpO)^%W$9m%au6nML1
z?42bhe*1Ivx4bT(g;Ko+h!cCQ|8^H`SML+Zw_D;J?0)4dKLP1@#2kEur)roS{fj2U
zdMsMXGWp_GZntHn=47*_hN}%0R3tkR?MKFj)zl9QRWcAh<lKQUT5duLQ%H3F#<BT}
z<w6;<%lg;HoxW}w?gxMds6Yyplf#8TWx;ePmJ+D2<%a)xY9^*8lsGd`)<|o;3nifT
z+#Xe7&#pdj+Bx7V3*6-3T`_o2+oS0nN_#Qbb|+*Ife475t9koOfN$;~s!gj0t^KZ4
z+@sz<gs2+E0{K0C<MaC6aH&ILCs1x5Q*Kw6h6T?~Rj%*t^ZSPF1*iX%oW>=1Rv^lV
zt-idEX0p&y^n&Fy*bo%o(tZh3`<0E0yyFR^qyoE64xT__=I}Ejf1O<pPl*RwmDM-T
zw6~J>ZYIpJ>X$~)^uWvD&BQ+@Nuk~VnJpU#H>|51Z6cEhpo4{`wx%{fE4)LCf{w&y
z=$`Au`BH&<Stb1eh`v+}Kmy>b4f{jxeu&gR(_P@0wl7pA4xf}r#O4p<bhj${yZKvx
zcxy!$(Ww)v=3T~b99TqCL9*arzulCD22GUtC486CW&?sB>w|Im+6eabjl(8Y@WMPi
zscp3y9zK4bVut%AmlU*`>9lLVo<%_U+$f2;CcAo0-@MmlXes}(WchlQcggOkzY`bx
zZN-62kM1+e^rP*~o&^u1$qa|p-g~3iTMQb-@QC0Kl~4Zn`8Vmt#P-cl|D*fB5vCT-
z4$^w2KoXXXZC?$|)vXugPQMKE^RP2Bph^!LI0f=+JvUbyoc5zw^9$Eb%U`R_@mB8(
z^Q3YpPctp2S1FwMKP&)462<VN5eB<3GxD>@N#JDRR`O&hkU*!Ij{YQsoIMA<HxJ<F
z$<%L5%MH5cT05xh);jG_49N?`U9P{l6BEm9E^Df;>M0;N7@3@<0d4P>!)n6^Y)S0L
zZxFu1_C_8puz|RPQ$M*B#ts30It8saK;#ziUc(K!ve}k*4{3Tp^co5Bcy2fN1x@a1
z3d7_WvR!A^1hXCb&&Ek0K>Ls+-057Lp-~*Ll&SM7rdI)D#b%s&eCj)a_&;6eUR!o4
z{ZIV*3&3@##-L^P>4Gph2P8@f648y)ev{78280>EInX)v5X=G(n8o-|bhg^wWQ02f
zuV8=k3-dXep80vbW^X*_Gx)?PHpE?FQK=gpDfO@nWBujo#|i&_{6`ql9<p(t;c{oZ
zm#Kf3Qn9t+atUDV@-AE)x$=OLD%I}IpL70}P0w^J7wWm$UPyv;ZqRr#7Z3EcXADw0
z#n%A$QsbnuomCT=Cv7=7fZMLBn$}bOUE#ai_(d%hGi&RxYHw$E5er-=<|k)&B6A?{
z2cFjBnRu6D@!yyMrO?FtKBfnx8M60XuQxSoF>xZV&6NWmS{N8sVh=jYfeEilNf>Ec
zMAlHpi<kO8CAw3+2OvNl5kl*embSW~TEA;qQkfU3I*<)39vS)o7|uaf)96i^hRnI8
z?GfqX^Z!Vfn3(LZEiC0}<?ofIFlqUPU~BPMSu8ykhTQ*;Am%e}iDoc92Zxu4v@&Mc
z$7(?kyw)2tzdjf6{$O(*aCIucuf1_(A9b`Gn8JY!`0vAY>z7129%PxHBNTO~85Gph
z6s44ghR+E^WE1Hcr)P^=8&aLtTxg8pBCBB!y#X(nC<LQVfK|qdeN#au5=6*M+t3ra
zPqbX1TygLh?d*{5HNcOI5SJahb?S*LogU}>!shl=0<!g8p_Lf5f+(;AA4Ak-zUd_F
zl-2SP&Uyf=eTP^o{(m6X#uUR6zuw^NBl78LY5o^AqW30(!%+D^(A0?=zejLw!b={?
z0)lpvba!RhNdv8y10)TyvII(v+>|M*0h1Z?k?M@PI<6kbMB+Fl=d@md%E>C;ZTsXu
za}q_2Uw(d2SfDuk8#pqp7yV((YKX$K55HOMmg7>4pKp$o(4$^Ba*?sp5xM>50u^7x
zoyczhcas&~jnE2x%B}ma9hg!%;K)mM-3o+%Y9QZXjcg;Kmq?8xfwD{_Ea&PR%nib2
zup;#WHZ8~qHXU&)#%NmUtDuKzxfq$6&;C!})zvE}&P!x{V4zLg7eQDoFubVTeUzaL
zE)pDABwnQk=N;H0DSQ2f1zKS~DEfMO#jTs5kBMs8f0#W%AV*rMxyK;}uhAqeI^Zpd
zVU8FW=WU@J4L33BHZ}y1imW7>)4BvkNr@)q2X$tf!rS!4jFQS(#(4PRD>~U%cuFRa
z&sMm8#Ig>E?=>AxIGbIz?iSR;p9;PfxlK(>Uh8@Z$D5W+0Y<?xU!&7o6?|TVMKM;2
zEf>hBy}$PS=KvvC>koU~e;-e$rk+cePH&=Ct`6&)hEoPsbS&3bmz~1A8-g4tEWlqW
zT%`}A?39b6^>T8|I`0%Kh8gJUr&d?POu@m4F9JJ~r8(y{g)O3qE0%jiB9;UZkGjXV
z|6BRp{=revzUTz(Ct6Hk_JKSwhEGS#-6L6m{bT!Y2}Rrg+HrtKWvFuvt|BQ62woXE
z(|6T(83u4SxoU;zKmL}K`{+;0DsXtQalIvEv>U8lKew&!wCi(tg)I7%{CLZ-jV6L=
z*Jn+8b~0TTTwCMuOQN7;>5`&=5@Az79bAT3`bW9X#z{vD-S*8<0RNug9U8FNuMpnD
zp3-^G;%Z_w+d39}_UF@+Vwyl?_B};+qctSLWkyLh=p~O?#4^9NpI?^gQzjBroBb`w
zH!v#4cuozgtx;il?}4fABqE4kP32wjG^LBvuoq`~lKG@OM}D|}GDwt@YJ7r)rw(P<
z-pAg|V(t0l)w<~$s(ADhJyb6~{mR;z*=6=zuX!_>wXA9Sy^HwB=Jh4s>XdNGxPuDE
zU7|*o1rlZW`s6Ooba8#>M{|zs|6-#6PX-eye@W4&64NS~5kP2g5j&eJcYh-vw{1aY
z7yGW+@l$>IPp1E$Xa|I_`Lx?*PxHlh5wak_`4Py$lo8%iAZIzoPib#i@`_e&`lIO5
zI5hr60iqRFCRihy?&b`v_Jt~JfU=jM>=7p|;<wZvm4&uk*nIclz?7$K3XztOl`pj0
z#-iU5ovAWtbu<Ae`%=P8RuAecK=VkI(Y5tt*3!lj-&G7)wFug{d<-yvQkcVIB^CWo
zNlwf??Xu3Xg=hOMeeQP<FH;gw2i5wsHAGF@_l^SkT32ElC=UKUU^gE+^?q5Znj9>u
zFkZcWzQx7;Rm1rbTp+OR8Thg3_v7E|wtku5g1FeaxM>g+aFsGWko7c`e;DK`+;Nl0
zO*)!>s2+(f`K+W?%aE;5+`etKJ6TAkvaToW6<#5NrgK;7Uo4H8JFH-@6kd}^mtvHx
z+N?x>(7U+>R8mS0NUL5lIMWe*t;M%(vC`?M&%c@in*zk}_w39#o@(n|uU4g^zp0Wr
zqO$Z3u0l6X|B5XLw}BwDh>U;KZl^@0Meyg98&G|Q;mnZ0OZd+Mq|6b(J3x=XBsj+U
zkZDHHWwDQIdVfs>&eP&fJGZm^vErI1z1x7mP6klb*lui^`7@cD3ZH2ABU-D;9MYM5
zd5`z1{~!2pmC>|)`wSfRYHy+a!h<IARRRMp)6}B|8})DccUHz3q^g-XJ!X>D)y-3D
zzQ5Uxqqir5QfC-5^+@L(qK~`90-Gp7UU{ki-&Q>bWo`YhT%hD=SwBjJP|iUluDsjx
zUVC;i;Mci)T`XAE8Z>Ez5Oa@ownI9W7PInD{B`z$?P_1C&nC*ITL8e?yUX-P6pFFR
z@+j-;LEVsLnCy^8;kGT}OnNOU|Dx_t(}Ad=GPM`>CtACy7$Qk-RpKW{_RlTF(c2vL
zgk-?OGQ)JVK>N)u>G}6nFCQ+J4^w<+k^Vgw9knljKAjwQjTrBstOn52DcfO?&qd^d
zo~M+YJ}WV&H!8YNC*z9eJoLrLH2~^Ns*C{JD`}S?IN(+*GLA(geG^Se80zlRPJCe=
z_tA&JzO-u-a&ccY4WA#ypgodlhJnQM3yiHS6N}zmWxp8UaeD$dgvj95UU$JqNG;=4
zMzRNR`s)zIE$87)fY$|FLTd}{n&PM|*G1HzrU}t8;<Oq@CMNSJm5wBkG@4Rioyl98
zUiNFhAN_1QxD?84FhFh3h6TSq#&a|eM}1c<-1cu&r#Dtw3a+ZYMrFhQ>*IYvhyMIU
zMtV|zPuRT|X6uZ9Cc9`WBL>cR?mTA4c=SJalVHQ{QQ434ZR1VBoz*~Pb>2kxOez-%
z906l<;^$EF3=R6PP;XWLr7j@rOlk3U-lI7AyL;;4i|q^hdM6v~UnsV+@5GWL^*)#z
z-$-H<qyJz`bX;(xBqvw_4Ct?Bp_N3s3MJkwMMKvGP)Bh*eyI{~i|*9uDiO61zOV#Z
zDx;EsJ-E0h?qO<X5zWej%d{MI$#itS;xVDD#>#^Yp0(@?8GF&n@K^`Di!MoRu4sf}
znX6s(cZ&o@sp85Q*z`;B{Ss2;`3jpVrrO0>W7*MVB?fevYh#B!<gw+>7%k~o_;lqJ
zSuT&EHC4I@7|4Yowp<M0Cs?@s^gn!vfqLZSl1=q?5xVfou6V^t(wAEI57qWDNY><@
z|6Lhx@RzA^Ehb0gPaGSJBfcA1iq%Z_o)(hr^_Yu~n1VoC#~Ecst1Y)LiZ*&bD~e!1
zYtCA4h#U#YsN?lWc3kZnV-Wj4Xqa9|Ti`(5Z1*{Dp@{ah@XEQkp3=%cMm!MlL%R&l
z&>6WEbV&?qc-K!Ry-gVz(#0h&z4!J6&>-WpzTTYenVWnGJa4XUbVybxju7QqJXeFi
zL%z=A-!^|<VWwwrm`l5M*y){o2sOtH7Ju^uYy{EdZG0jXVf3Qsu8%Vpx=2#Wbk3cb
zIp@y_7IJWX3fdJBLGOm7UP0iHlErF?|CT~wDnIfqUanY!w?nMhV7Lp@9KdEbvy&tT
z@@S~`Y}brB<B}Uly39!}mToV1Ll%voqul$&pMTmBl7_&0;o~*Wu&8Oz>J!TYkHCRR
zZas+O2e!i-5XRqWu8cHv14_K=pa6KAt*G%4`UL?@|D%6>PHDS<tUDB+zJ=^Gq_JdQ
z?7fcQx<Q}+UHt9l72+}(kkq6I<$*^oXrMr#AlLi??Iqz8DdjAQ1E-2T$ZkuAu7hV7
zcjDS^#-9KdW9{+0dlC-Axx&Q6m@6_o0Z3@DcFF<IJ~=b&lR=7Cqe~%G@f!Y}44^+i
z0ab{8^};h8cLI1?FxMFaINhEewk0K4;hN22QZ6UERbefW%Lb|w4uk#XOAX6n=7J}M
zQ?tvt^rSbjZy%o55Y`7m&bJY|m79r2q$AgPbcWqt)|ca9gqqW3e0VgjA`6}05r<(j
zx6F^e<$#=kfSrk7zX4)Ok1!ZI9kDm_@}sA_8?w=mV+SNC;K1nZ{H8S!r&k_xvIVb?
zj<^$zUbIqBmi=g7d*eM`(cLg3IOPj2EQePI|5m`jz_N)i<H@6ar2tgq#^$w;pT+Gq
z+2W?+-Z5RNTWtOVsE9y^H7JzH6dayM4o<2c8>Nc3C<LH;sAMNxv#z@#e@(49B^#0F
zcXzS-#gkT{2`0c^Y<57v2BCe^IoaSg79cUr(&|gs%T+H(#I~At)G=j^0dBmN87j!}
zBRy(815v3XJE5Ats!QcOQ`&I3*-B{K!0dbH`&vhrtk(=7Bp9I^3Y6Vy9w(Y4c+A(3
zb=i7=l+iv9(oKad>c`EhBIxjf(0uE3IY+BY3%vf_jR^m|ZVgC8L6xK_Z&Ak=J*^6v
zFMT!DXCH4hz4V}Vkulgc2MZy)ubZhk1-qUc*O^)r%Y!kEzVxoAW^snicU*Eu%iTm|
z6`QscCTe5KzU{+#*kSyAnDPWDG(Ej$zZ38+DyQKcNc2C|ZvBoO!GXcO8l!Jt(VI&l
zl_RDyyh_(kZ}(U0NdL^6+jvY8AqzG-FZTzhFVX8ic#L!<J4!n2bF0wi0Xr=J7^&jF
z3TT|^*7MSn0pQ*Rwf#gAY$2{>oSDKUL$VqPypr=NaP{eHZD|Xo#@VDo?e$FYcN#|g
znKOVOg{1ud_(tR%`>FpCf2Nl-IL86cG@hmyuvD|7#C75|yW;;4Z+FaX<@7L6=^`$t
z#H!Ir4tT6b5<EvV7ZTGAp3Lh~%z5VdN3m*2aLw`&K$M^nKkUwgW5;J-EVqR5Z3ldL
z8+`+N=FY>5rocIGN}CL#<78FkpM5B`twFm@<LVByWxvVZ%}TE&dgT#`D_f=SgsXX4
z_YS;%uX=tz`Wx~Ppy^47xny?Uj%Y^U_rKSu1xa-1QQF(gR9bE362uy#+|fxmD&BZ%
zB7i30jb>Rgf~R+8{ws<J=l7pIP<POfdRDbJulMz}TP9(HFk2|yz6#!3taf&FSy`S=
zGBzs<YD?sWhF{yr?UF^RNPbe88xW;px(JCTau=q&<41t5IVQ^QlQWR$_54F<f=gWB
zmz!!6mgF-n#AB}KEB{{o1*Hs5G->82WO(Iz)0@p2XUJwjS6t~r@6u!4b{WKb@@uSX
zX28cnQfgCfc7M9XF?ZgSw%x;y$3`mhbv4g5<QqVP#4cmd|F5<_mCZR>>E7vTLx8!>
zVP7w8O#hJN_twgpkF5;OQz;_muEdG8u($P1ratI=Brr!q3uY2saVZJfBDKVy$0O+V
z!)G7#jsbpVV#eCnIX5j7A1FTrg7k7#FyhFMeJ8^bmku>dlsJXrMCLCuz^OQFt~QZX
zjd-U0h+W@zp7R8sUYx_s*gVSkP1=FL0#IHZQDb)13_*X+jNTC1u$iWKGK7Hbay8-}
znld*`A+8bZ0Q#_(cLDk1Zbgw7$m}mezC*ONOsR?wgCY}NM`G0K65S%x@G;q6#sG9)
z<IvjzA3x$=Q%SB}3x8QWv!sN!bnYAo*1~>$euq(sd{-vY(k4O9r6`VGrC$PD;w!5#
zjU2Xy%pyu$hXZg(Y%@pNCuYt$e+h_xqG<G{JQe@2LOnIaq9@=vLi}5c+dP-0yXgh=
z6&B~kJAXExIO!tYCXQwBF&*ngdq#vK<72_M3DC5Lh?bfw;BL=_DUtg<Zhtg2#CnVH
zoaNWBhSpy}?dk%;=ttei>!8|q(R&A+NmPTlV(WuLP8w&Hk6ck0V1`{VC^a6Yv3Cma
z{X51haBNv1qSQ()0um7jBa}3o<skIS9EKw(FgCmI#mbo_pwSfX*b!&4qU!^u3r<T|
z7M$_n@=kL*3;WHi@J_vb2Cwht^Uk${ksu2(A|l}CafSxJO44Bd0f}ECOi+t`$#%;$
zxvX}=bN7)cp%I3<FKxpgw{@dDsceO;;}_zOs|!Ovz$CZ%8>5<3d0H6=Z$8|!<sr(C
zp+9?pPC*6@-|oM*F6BxLF0U3g-bBkOEbBa}KF+T?d0lXQBmg}+B*8I^$O)RA0fPj)
zYC4``zoLV>fr;Yf3V2+_k{wBlBz{dYX3z83^&9tD8E=s{&!O#PR?n7-T+lE+!+mmM
zq|M9!<OOojbAEGrLRNq()oz$S1e8>kwYgvmVMuyMJ(8uoRv_8lJ?VnBfzebu<D~-m
zs7s@3*csNb$cFsP%{8ln8$R)sy)V@;*0cPys%Je~KJ0}Z6i@}*Fs~2I{Nfm40?;M5
zoTvHh?x9D8<6f~n2W(eo5lz%;DZUcnv;7`DZN>@($sNoNpKsdkd|t>6p-2%}En~{m
z6zEfMZ`TaWzD4gkG4W}(X?HH&JC;E46GM^eQl_SXC!Bo+7YKwuA2Sn#(z*0f6b<tw
zH?e$*%_$h{+Q&_;OueXnTT>o%SuXxbX?xd}v^3AgSN3;rx@cEi?tAvW!9Sgb%7B%`
zAcfYakrPyO>=Ff?(&(_0CL$2)(%pheP#`UTqt_xL@NxvvOwU@n)(!lOdSK-&rrnZ2
zq*jy4OhdpQ!89N8xgI^;$PmIc!cV)`7+uo^VcDQ|cCGi-VSCduED-#N)>l?th)<S3
z`JDcvpvE3`lUL||)Z!mk;&#UxwlcgiPc@X5K{8B#uqjKPT3SnqYxAx%TI2i(sF|}}
zW~4f5jyW^lKlz$?9*V-cZ+BKciY)TtSlDBvOwUn7wKMI`c8`s($#R*di%&cs#n^w#
zeLJZOcgy38Vv#C72}@+!&`oW4;0mU&&l-C?qgHn^YW{|m^fx6PR313SwnThYuWFfX
zzq-OsmoA1?nL&S&v_Xw=H08kGnbE3lm3p_Ae|Ro0FKN-LRNHvtW~hdOg6VaQkOUF5
zw~cjT)9!To!n4?<AV~RHm%%%19n6C<-sfe3cbmr$c+D4DLwKo}`d**&v}!Bdng-vN
zDdsH*O}(SMhTUu06`e%pA+Di7&litjm1PuuiM1RWn(PI>@rvzb<y7f3XYSylo~t>2
z)4S<L$K0r-nPQFP%X%bgl0<4&wS<C=JCBC`+^8Kl<eP*h#T~hF0%!>8gBpX!?dk$I
z$K=x+IYbx=7`9>!v44VJALDch#b(pI&Z)FdojM+qa1Ye#wI0s0?!xCt+%`PwWy4AY
zwk-q1Kpuzv<z@;4f7Na2OA_%1b~FPO{>1GKb^L&>$<LGzz*AT582ZMC>l5KsA`+x#
z+!5#Lc|yo?DS^k?i-`ihS({?z0QN^PY@XM5doaB|&bWLwPt8Fuj7jDa8S{)j+Fi#b
zzHLfkLxHCYeg2^t>FBrZ<eIJwi~@FDJ>roWkxbtEVusJ1Pmf{H7$__{Bj5X{#)!nv
z#MqsoZU#{j49B{YU@{|~48`=|n5>1CerA4;GSL<*oMYCIsFxfmTk$%VpW-WWwqE-g
zf$HkJ4?jz=;Y=;uNc~oD9`$lXIh%qd$X$E|5t1VS1?ryI)!wN2VL!;Gw=LDf$4Wb)
z<K|E`>*;r25l%@na#lnhS*Ci|fMy5-^7yB58f&1s-BV_YBSND~HvJPVR6)yilaXL4
zE>O@@l<qohN#ND_jZj^ApyW6c$?9l~^Q%AbXi#E|4@~2(+A#e}H{H+N!$gmphNvpP
z(;?n(1u)WmaK%7*1Ew6|20~OH+k?>S04s^;38C3guI!9943kR-BZJq0PoTq=U)!Y?
zG>0iNGF=(p+!>H!Mi&{r$X^O6Khx6NiJP8mi?s?JLLGV1`o~uyWXgwZfawd_KO`e%
z!DTR(^y8}0D-SxOfL)e9P3pEhKYfMRItC`6>BVM~5_hL(p1N9$Ryl>S&1Nm{Y<6B`
zHZME89&FO=y@j(VcPBY|fw7}e`<6ufdvw$+X1<W8sg?C7jv`vcvia5@Q$3LJ(n&M4
zKktuE`j6*#RFqyex5nF5?ZBjAlDy_-*`wK$37sZ9o5}@hk4@LHgfXr>OwoO(yP9eL
zswgyjE}&IK)KJJH%x`>PF2~2=yatx+gR1!`>>1rr;Lr6utpc9Ta&CGu7`$c?D8c!6
zu{<L*bN-ASVdc>dXdXah|2;{v04Ml%H>ZQCeunxsJUjune=*W<#><yE&?0w-pAUrW
z9}BvKAJv&gyHH4*kTY94$!(6M7ZHz+bC_hN;x_h<NJq1cOGf8C4TjFLbDH-cP@6iz
zQLKuc2a%)$g`Yrx<cOrrmv7zYEO{J@{E4i^#5$<)i{h`ifZVXun0)P&7v{u2dGNYu
z+?bAMF-fXb+kEWae|<RQ+R|PR6}q0+4@V<~zLRoHJ&(S+2p@}0gfiRTW+>C7yun@N
zwX62WqG4?RAjmc>%}F>@|92#6_))}e0o+)XFHraQc_+%JH7}wh-iYQ~fk8_B#YrUW
znYY^Db<pmj4AoEd>D}uC?fq&KLUpYX>>3M3Zz3t>J&IU^On2~?gNP4uG=go3=@guF
z!6jHdSjasrVYXNuL5xf{uK@lXQ<mF;A>F~IS+Kn<?_K&duI-+gQg6Fw$#jQn80(_O
z6h|tk+{oG&K(p=}vD=t6nx@1C_MN#|?f}*drR({#IJRWw{Ga%X?N|jZ0#*ziDb{%)
zDov)cTp&;HLx;0_e0ZEs-Ni}{;B#?iX+;DIAau~38eX!B{cYAWRzS(MZS;T)LiTS5
zeh>{D>%aDzx}8R#78rTcl|DABt1w^;W>zfNsMhCcE6V%LKKrpxbzmxvLa%*@P}T)P
zqhvd|N8!XI=pusqb&tDl4U42-Kqcop^fiHzxOp^JyoHEwJa5RqnMlCkcL{<7^g$g>
zpYd&K<-@+jgJ=hbtfhz8%;d6rlu*{N$7v>P1PkyGrHa%XmWGjF2J7YbpT-fm&9{xV
z_eQke8W<@D7f|elK>}Jz9B~!iHrU|p0W6zkiKp4bAX8E?R{|r5omc0}(jRBKqGWjL
z^e9~tl2$TQjO{hxV1Z!JR<o~wr}gZ|$uwMTrVQ_{QqnN#dQ2L@`&t|!kmQu0&-CRk
zO%^%S#+cuM1gBtxOZiuqwk7#sMydK!OG2&O05mnzaewu%aVKRb?XI{nADYJ4@JBY=
z<}ZNokoG#d4Q^!VlJTkJ758*e+od8MJ@bVl$wCEP4cz{z)aMn#%$L_jcBp<qHMuWX
zaY)iVb!(3`y&&o0385h%@wl^eO|<Pz`~hD7=UD7Y6zA;`dC8~})f-r7q^FrYz6)}t
zq0HOf^v?0Ao$5?|O8oml-hA(Gi*eR-?K8!0dh;?%Q;a<$pQgZoFo~f3n-ZFS-&mB}
zYbUUoOE-d%62{%+$v>qjJ1DXcfmNNKAh!`&fJF*bS9_zfgmlA{G>rau*ia5w9F|f{
z22DwS!WX2krx#PUXY6i6Dx*!L-xi@E$lkH?0FIx)uFJ@-cn8<HNX;%`mZJLIoh0*H
zzG`Gh(ajR$I}z^KMOEJg=O0Ffsu3=C(cj}@m6T-V7o-M!M^>84_Tg10J4aOAS5#6N
zjK-IlYuk!1uC`$i@8iE3jE8*xTf}^Y#>z=nC!shxTc~W@B7_4HCcK|}sXbmFqwsVQ
z$!b+F+57mW@+W#7@b>%{S`u)mEWbbSYzh%cr?P1;llQca(B%<#N$HJoz@>2#<*qCr
zC#U<<<tll#1LWA_<fPReb%@M{*7!{$8+qouTS3Oc&v$2efnD7r-c2lS(X{>Nto&rs
zg?SZkY;ZK)CuL7bsh%s@>0Rc+BNKe}h9(x8DEjsY4+92g?abw`etR6bc2$W)FPYa#
z?iiCs9`d>pn0v%LoaEh1bj|iG<%SoP_l$PW2Z5gz*V$*6#lZeeHzn*(GWgWTQaMIe
z5sRii-xB@EPiiF`{N26ph=<5Pk~B0QndT9!cx!OXp!3E*4Pw{O@-UJ8T!G~P(mt%g
zXXOaxAH;(8Yhns~mNP4c7(r-eIT>wEuWC^ieUo%Ql4~sf;9IZ=N@YJ}*+B;wesoz&
zwy=CU(r_EV<W@BN0XBMAc8Y$Y9X;#(=g6{%k%g9s??JK2u<Z|IF``Gk3Pgk0%B)#}
z%Lr-;=oI1I9Uwwbce9goop+k-`~{U7GYdw2^oz3q{*XuOl8DLdmxD(kVndQx+@G~&
zncduM4ayjA#bov=^WJbQho<{agNJ-|fBp{(5VlV{9{V>|%&UuXySJ38sE&*I>+#qR
zbo9$+`ZMkvq7ElJtfHr^m-`I7xw=Vz+_qsS!{XC_-YqO6`07Jju@XdIM;jAAu=e#c
z(mBSIX)_+xo~*;<?j^|pi{|ybG!>GSBmRatIW|W5Fg00a|9S-lZq`)JrE&azWC`QZ
zV6o-8#7?3kpS|3RKbY{C`B}XG=mXC2mt6<mYGhP?djYSnLlzf(i13AzM3$#f7Eepd
z(+YR0{@w+eZC8jgD&65o)gSpkkDGIJ^I$)9QdMou!_3f46=3?&DkNpm8g^zI55+R_
zrn$m8!^ur?vonS2+4!km;etFK(Ow)Py%vdS%4L1Wj^fUQRv-U~H~;yA2%0l5J0Gem
zb$nt{rCEm^?tLxV`YVTkLFJ^qcNa)Q6%7qHCcMVyy-hcX7^WM<I+n0)q{eG)kT}*S
z+UV>R5H}+GdaVOTSMBk+kCb#{&u4V9+Vx{t_wR)-+qSfPn)=_$-N3O)-)_jVXm$~!
zH8B@Rf3;>w7#Wf9Y2LcaRc;`cQH*VfGq-8zP_x);+2-CET$Iz8!recREh%T{Bkm9v
zGSPw3CKz_96+iBsXdbxH)tvWY>w!e+XNJ#4>a{R@QjLcuUoM)ijG-TD-eRm^+=C0*
z_Vm=)oFGRvr)_ZEql$WfuaMqbG2PShvLcg<0V3Pa+rIG9CSo^UmL6Arx_+UyNZ%>4
z=ZoyIRD{xPts_@f6O|po#FG&MPR8md+$KS$E4cz>%%MAju0254+~!(*bdFlvti;l?
zv*0=TkauaRC<I(6E%VE}SC^EA9811#QJ(PRkO+IUO9k>6vBt&n1&SDL##8;l&%RSh
zxyj~U@5Mh-^1HcCNyzN_b`;(gy8^MbEAn~}6xFrZdd30*Cagjr<~Si*dte_EuOYc7
zEjDEl$98sBIcy910x>%?IwLJCDM$F%^AjbA^<^e_jHg<V@q7=%g>8nnb2zXRm@XP|
zj7IVCc;c6_Gk*{I#arw(`y`Y7Z8r-QshvmLO{=vYK~>r>T;bBX!VVrdF9&{mPNT=`
z^B&`8-E;<{U%g|7i)|;&XN))uNk`eW|BS@L${V5>Kier%F_mp)$*c5LsDQhX0tnoM
ze*j)Qp3!q!_j^?i?P(`2y{VbycDxTqn~ZO-WFSTV>q{1`cu_b%8MPjcyqdvdyRVOH
zYcW0f8_N*`vmC21Hd_g-h>^mnAW&<lTy5;CFEB3QWltgeV}n6Jy<JUQJIvW1%$Txp
z;25-&JU)}nlL~CA-8Am3#}2p~A7$`#$qfHp*b_IMrQr17HEAuu@IM*9Kc5pZX!6gz
z;JuGledCo)^wN-nRlOSQRE0X&HqD)eG5z6}2iWMhfl2S=*K8(o7ITpd8E$r~zos*}
z{Ibc*35^SL%}!`3-<@Mw@`Px+E>%FB9&^ZIS#L{ytRC2)NyIflP&d=G`{NcIPay~W
zLg<`Lb{QZG{~SJ%WbCwzVQ@c{XiuNhR;#!*ZB%yNJE`O6vI_oC{JJwvB4$?9+<-`+
z9yzrk{_?{h%ge%KBk?vTPD^*nmjL8vV@0N4T<yb%v^Bt_tl<7p6PjbhQ$D(KH0=_9
z0!!s2J=NXi30f@S4Y-~@I&`_~e`~2y(DT{UE*yNlepNs{3PL^ZJ%Vw+D0F0>InOkn
zNh^ni@rlo0c@}8<jk#vuY%k?r^5!<s)6u|yos%j{Vt99hg78Jj<1YL+++AnAeU>h#
zv}&P`kW8cykNfUO5>1DjaayK+{XfhPPj{)lU?rc|i}Ve?SmQj#2(pTeWQxW#6N_Y<
zWaCi}*~8~sLY@U8@^lY+rGVYNbH`<@CBbW>GsFa+v1aezY7WE>q(~b0$%?!}v@?KD
z<zR|*3|G6BIypp`wF1GL#Tcqv>&>B1PY2o>+BfP7L9T>K?-8S9`@ribCHsJ`sAy2$
zANpsvJOp+3JhmHjd2jNn4NWp?6*_^$**-y^lIOy|N8EcJoljX+8{{U1&F;KNzf}HK
zHQyJe6UQ=q4J^-vYLgf2_^v#~Enc800q*F9<d47t&Np0)tFE&hrEN#PyZpAVT|CaW
z^M<KqV=EU|hqEa|_7)9GKW5LX!+(R$Ghwphg+J8z_+G5V7`{;c)8KJcb+)STYl`_@
zB>T<JNlMsL?wf5862hH8WX@fx7j7`yZ6+8^-*0Tc7_z_rQvjRuV6C&d;S`Li!G&Z;
zaK*<&HGCGlf>QCm@SuOB0=s`pNE41Vzf?u?md0QFwDEwoCBt=#NUgzSvp7rPbeMQc
zZ@W;SYC`f0#Z~&3_#@1n>sRTx;mpfU*q<(WlE_6p7z646h?p`?rWmc-C*+s8&*wqF
zD*Bg_)?Cdg^~cft9lxEIUlUzmM4~5riTEj!U}zGcmc&tOb>`_@?>H||r<xFkhBEQC
zqd@pJ)i@EwPg(xoLLlAZu86SC$s<eyd1m&HmD2LtIGiB});8y;<CGxt3+zd{D1^SN
zcV^qpvpWbrtE|99NNPOJa*VLun%ecpwx-%iA+b(-WBwO#{9c5#|Ap}{v1g-Lkc(e8
zO7dA&LAM-J;X?5#JBScFGGU_mxQjd4P!zFeTY8wYmK7du^WZFa>yTT?P1Pi65myR3
zvKX&DaM&}~b7LFz1CK!L0iE0Kp+mvm$9oL|wAu0PUO-ggm`xtc@$qCRm8l_3&=WYV
z=NXq}XDB)?3X!B+Cs8t^<Ma}p&?;OYI*haM(auiw@Y3Xr+M2IgT9i7NN;eSntiCNT
zxdz-HT1G^D`Xrn7R|e*0C#3|~<Pe9NGx(}jP688Lf{z<qViSu~8yfD1CJhVHejIqw
zTEgmSWe2g=<*dm_RIvDC#|j*Ku`1fNFZB!NNrD0Jle+{_jGCcAPw^0(B^bjVi_e%w
zoy{DdkEKD=^l?h;@!9<3_yL%%T^eV3(7j>1eh2dhaOl<IQ_>7W0;>n2lw$rDy~Pn&
zeQ)Vc(JbpwZ-r97(I=NsMroA3KV?DrQx0*|RFT{&nnW|V_`p6rYc^3Qrd$vOPH_5N
zJ)g+qESGLbpc?C_nV6kK2wG?uY)i4n8(}1PibTEkvo9fla!_*FG@*xHCfBGA!F)dj
zHt22+!u)@I{HXYNuvQX?Z3X@l8XJ|Jw_Al#Nn1W@fPXW|f&wKT_8X{n=HJ6?&T{a=
z2M6ceu19vU@G)#0P-H*H7>uFaWMLFx?jjXa18I~r0f{eIFYms>qK1K6dsT<f_RsOR
z6RWSf$!#Q!?mpF*Kbl83&8wK3+#IhPJId^zdaN^0K*)o?CyE4p9V#}Ansg+4!^tl9
z{Q*0)xr1PJm((>Oe|iH=R8Yv(VIc<AG3RlX;q*;IG%ywBW{&iwKxITolBAd%9aLyR
zC`S-fe==zC`ARVJgG-C2`VS9G_Km2_P;Yx{nX6_5ESUWM`8KjI*$<*YZGUIci|c1S
z?<Da8O%=3rYxw*1CfHyO>J3SAcZF<on+n<GQ;j<TXS#$BRUk5;sDxgNV<vjwXE8M5
zZoGM(dC`{j=d<Y7V~Brkl3tB$s;O|_9_N6MKKp(=<?nHX;`EYE#AHt0c|_dkFYGeO
z1_|22;}@Yc_amAJgjr}K8)p?e@adj*9&%!q?@}qmXp=ciB*{2NX1J&GZX3Ipq~LZ{
zR4Q*RkZs<HGXzruD{JsA-QbeU3us!jt7&YpGWS*=xcyc!p=XqEN?lvyx)d<Eex{@@
z)q)K|mNLsg;<%A4OVwVj+#8@PV7@6vbbdIHN_nIg3g{^7wXH_yjjeiAQU9#sy_`&8
z{|co2wdL~d>_i|BHJ8*>85;9f%;Gb(3&CXFvR@KUKy3?@wCUr?r{3+hT24xv#h0n7
zt-0iXoE4*oaGag7;$3!UFO7Ufh3j1{S+jwkW{4Pu>C+}W=Qpy)XB0C|!^{GSNsk7~
z6u<cQ`DapTba&})e6Mi|7Bqc3yl`|Ot~e3i`sC{%buQZtvg<aVpBmT}`ubo@fAfCs
z2|U8<Jvb;8`zg8wt<%mC)Ga#{lkniAXr7YBA-$fOvP@;+k*TB24UW(JSUeu?_4KsT
z2Ihr@01>UPm$gDW;H!VYWLwb+sM+8OYTm(*$aXLH($4eP3Ar1b!Jkf}7f%mx;McH&
zV#TTz+;|+Hosi1OsIdDpSUjsJ&CJ842hklbPK+=2YmvAfGN87yoOO=N|FfoUc-fk@
zz)N7qFBLG6DPx6uxu>tWRr-v}ud{T;#<q16)}?!8Y;n>&NQX1Zd8~EAJ7`%JU0zR@
z)znQ&ZncCbU+`MYft1>1CLu9R8f0UQ$a$N^K)I_|l2u(05c%@=9x70F{J_Vgd<<$k
zlQhSMMbQ5>4q6fTpcr_P1GBWJHu4cZV7zu#$kMd@-P!e26Y8lrHq6gvYFj3}(kubr
z_Diq4WS2$*sr%UTsw$gEPA=ewMkX%4vVL@$EbQ1_aejH8=<$m8K?IGWc1ZlpeO0-H
zMCxlf-$y;8@w99~&)=9KOvQH#ZC)=eKFn)pP?7ezO2wa|poe}varb1pp~RF)#&?0E
zW~Bz+?>_n4k4$hN<Xc~^A13kfYCk_Nw1rRDAP>DTlkG1P7*$ch@ZAYm-Ii5_p|$Eq
zQTzZ*%V!@S)i$(zN0C7ptJEJv9Xw2Hf1|rS!Ijv7Ovc@C*VCu4@GBPz5VN05P4uFA
z{y3ooxc<Ut;1T&YZ9qK#!AR;vZ!7H$MJ65Jl%cP-7@et=Ay%JcJ?AVATQQ6V3CWK@
zuq0zKgo=Y{fH2TpY@FUCdb)rjWaO>Woe$yITHKE$pgb0dREb9Xe94HNSRIC|UCpdQ
zEQ>FXDpk)k@tEtMsw9*Z!PINiC1E4O#HS*W)=PTi2=H`wB1v2wR#(4ETW+>^C>4xS
zXliub4ouQ^dgISb|1VS})|kcBpwxy5uMNolM6F?BoR~8DkKfCdP==;D-9sPMVKTvm
zOMTQ*^D-OkW^oRd&w46-44Pn~sYU{qk=iYEto>1%RJrmypgaAcF$^x1A^TF``^|BC
zIL@1GmUUKD8Sut~kmCvsDk_%F7~L&c@w5^DmbYzxZ=2eux4(=CpqgF3d2B!>++3_-
zSu=3qAEs*O*V*@fEWlkAZN)()9LaA3nLwp6v|feKQpcSYtOSCi;bxI~odUmL#l(GX
zL)V2ll|~2{_5|f7<VHEG^ZhD%iq#zJ7KrNz?j&5J?ZrnCehnzzzId*oHSP;mNLTRB
z!KUg67k3bm1o4o+oD?9EK*;K-Ejx090-Sc!5LtLOzI`uYZjvM0l&097Nqi)UWwYDH
zSNE5hgbMia>T(f(4NbY&ndpZzE;#2xFt=uA)T$gND#44}D|hp%35JdZ9s_&oEBl;9
zJBM#BmwRtGYc`^X1)^Yp6BR>HmaLb)tLMX^Y{ta@#oAW})zNg_4h{i=y9W}21cC<-
z7F>cRctV1^I|L1G!QF$qySuwXa6P!oos;Kz@ArOH_vfXkI#uV4^z?M^-g~XJcdMIM
zOTFp>c^ymEH(h}4U1P`dc;``qV)lf%Bu5v}L{5ED9r0jIlWS*IuavNC_~frxhKyd+
zT_Dtd?^3pNl;xipo0R)3i@*n&w#=jEvHtN3$D_Ii15s*<*)Ky2lDNjJW|{a835&{d
z<Gj@CRpn`qD$eE7OyqlP#4;W0Zgp~-E~_Y{=p)Z^38s#{_Oy;y2D}hZ;{;@qNC-ZM
zx?av1Bx%9!tu*+p<6*IPPX@&(zfv%i`EYv0)CWHvB;+#z3OMl@byC7fM_6)TsOCAo
zZX_;8oE3SiCDYMh(ZPOJj;>>P_rXSK2n!TidDz`4w4ASF2+&6nYcJn^cy8CiRni`o
zjRZvEmF(=lxr78+t)KL3!KAU^2{(Bf;04j*ZGVDb$@4VKCNF6_7`jwND+SBFiO-HH
zuRmOnof@V;$H#Iz;$m(bNAQW+BLe{U%k>$Lvp?3)&Pr-sLTD;~oXg<y^A?0ZL896g
zW^j6tP_eNm@q|kRxKy<Ic#I@)-9S{pv2dCH<b0g5?iW?;m;!~<Ko7AtS~CUMllxhc
zQJ%EdUF}=(9?YotjFimpxELZ4M;Li~uOpSJz;D89i%zz4X-2zU@Salc<AOKj!|Yr=
z7_X-zVZT%IlXS1qJw&5cGRxP7Tp@yEPzts2<BojK>i+Ya0Bog9rwfIfz2wz&KiZGy
zopH{;m-z!yDTw#T>TQnfQzzm+^f)h~Ycu7gr=RS59asrW9A`C=ZmzwOO@Ie-N@|I<
z8LhRa<4*aHMZrD0g1UbN?J=h`t=o9F0lF1)t*TnhO__!^dD5}G8ogy21G^W#*(!9a
zs=;zBg{|Ns@I^&G{hsNzJ-U0(x&RjCY0aPFl#2-*Xk#7N+48EL-8Sl73a?JNP1@Za
zI2P`MveVyTuz2L%jO_w&T+7BckPal0W?XX9GSX~rm>I)Q3{H{n$yRfxE;>)V))AyF
z>7)oRVbrA*(ifFcE}HYUe)`EdT4cEQWn=dRBT|?+ve5EToIa#-GK4&!$08>hJh@O6
zj3A)mTRt|Ga`3T%zV}>%rsoO;d(Tz3a`H<A&+V<py(+fv6dyk+f_vE&B#lSH0<YO~
zzP_y|3o)V$CSc1s=k8ekApH;@M;s;CF=5aK69`fW?QtJQNOM(Cocpr=-uC*(c`(a&
zkB*lww&$L-3BM2DT)n^-lRvXyYlUFUXWZ%(H<#uIA{&nH45^#>;pTprCQzM14cH$v
zrT)aPa2yyk4+ngUi6JW5RAs1<b6f3rx@B#n0Tl7cu4TWzDYipMTH$r*aZ1muoW9T4
zVg}w`-VHp}HvNH!)Y(!C`wOx+I=uY-$vmIS6@r#fyTT#j+LtX9!ACCIamHorh>Y0A
z?&zh<%2#Xf`*g)_30s^cacHI4J+jd;{hUDmtp5kjP!_HS9z$S?TjtigZLF2`fR_j_
z20nXtG1A#kR%S^6t6C345pkr^9Msl@t<7JL9K8I&Efy9b30V9#<1``rPm=H1`3y3-
zX!x7%lF=LbNPFT={{miHR}3Yd6LA7H|4@Q-L??ncCx>6m`6$qvU1T!3oI+$2=j!m*
zn?jV@)htRh4y=xwJ<{)wBID49y(wk{({rCjpJG-cUzkmmobf&(@V3#59UCKIjgyta
z4q;$W-c3I3HDXiCn(u)uXq>U4ennmG+B=JUpI#PB?k}n`f&Jx|^MBG?V?J5u`LX6{
zbJh+cHPfM>L)r@U#Os~^Moo8HL(Ct*1sg-i>mdgFI_)L8jMqaV^A{PoeiVr42ai`z
zbEo4tnKk9hYiGq7v;ln|KO0394pSdgX9|6h;V%@XAWKdP|CJv!J|3s|YRV>LSGkzw
zqB=I^-I`FZt+TF7Pbe8G7cm(ZF>}*RmqhVCZ$|MC<V4+;Y>CXV4(g0SI;0?;ai^{=
zA_>KZVBF}_1=;q3#22JcoMI4?tcxXzrh+{gwK#dS*6`N#A~U@JrOQKsNNi-XY$nSc
zW1?8*8@=2Rcizib|4{?>W4PU$f=??F&KYY$=E-gBbyXf>f>*ORElzuCF_|Gd6z@kP
zUkHOMidwed`it${uAOzn(3&t?Zp5&w4_n_v8GZ)XvE@YP7p7Mi@x<HPzF<vJvMH`<
zSx_-x;^C$;N|)mu;dN6K5m}$fG3D0VW7=&>-%hp(>~-YqjLR?0+Ai}(L<ns5zO4Uh
zQ-w~$&?o&oYGTd2Yio`zFeW$G_vM;eehSUG<giZNd54xbxL4f?#gh$;-xF1{eY=ae
zS18HVsuCQeWeV=C<$6&li=d?B$7!>4m$Xfs_)FVJ%##*s2O>vO>5*UjxpDm+FA1(0
z^RyMlqe9r5jN>G~*{t?89CXViUHB`U`4)_g6o=YICpg%YHbnnPO}T4;JD4>+K%;0*
zdntAw>~Ow4OT@z6w8HrgaP}ifXwitY3i}##kjJuAZ#;ufw^jtO!X+~Z$i<c_5RiCu
zSbet~wOSY>;T14RvXpgVas8#typus|x7&;VSyKLUXXu-C6jwc|ZnTRi^x++eoZ<W5
z-Vggf5@WR@BHuoM{M*HSm`4|(lKF?Xe}rpA!jW%(5dpw-_p4zNS^xac{hFq6O-E^X
zKJ$%X<hm!+h=9fg)fIo=xt}<`3-(jWXLWt}QWXoq>pG+gA3hukjVQtBMm`Otvoa5P
z#1qc(lQXp4xesNqOWLoPtliZIBPWr89cwgl3-ZQS4Fe)B2o_frk=xuZFVI|10@t^8
zNKVeA^aV6oC%%?-ZZlflNqUHKxdray&lxS+hu2Q*e(A=Uc>qN>phn0rV_!;cignqM
zsC)Ql9~G7ne+T-|ire~4+tP_X8TE_x0F2aoLsqlgX5Sklqe@mLhu!G_nnbeMepge?
zjeGW)P2Y%6lCE6iIeC@(Tk+noSGghZScZ}v=)`&nDQ1&<uX4iQX|=Zp^s!~a=z^VW
zwYBel;}&D#Ceqp|BOPR4ZE{G&v%Hrg98LOQy4*CfHAbkEZ66-IQg2Lf1DRH7`1!PG
z^OGUPxcYTR=ZT!&yu-fCNcgKBgEikQ=ZtMIM8}j?r*JCJHHN(z`}U|e(-5DE9}{OV
z$s3g0Hy`}1q5<y(5dj+&^-WuD62E{m^Tp%ZpWzv%qi=t<$0DC)NVJM<v56r9r7;9*
z>~qNr2eNowo2tNDT>dCJp2211kEX@dW#TA8xO^`1E=tKZ&Lii%Z?Ts@knB<9$PB+x
z=ZtT>A84K#xw-ll9{wF9YdPZ-s8M*nNcLYP^_}n&gep}g1cd}iIq42I(rwhNC5HCp
zhYncy7ergcsCG!dshh+B?Qav!nf9{_rceE$`UG1f?TiBKI*+WZDf(}n%-hjj<2WVb
z$;8@WL4)m?9`P8gnM4#Vq0NIRSSwT&_M!V1`q*(o?{#cVbDQYoK$=DzuC(^WqE%9+
zBbu<7t*y1<>7P8@y{7aN6TA=MICdkiowCm)Ko&QI#cfC{l{X%b>*Kf5#CdVe*RIo<
z4$}n{p9hA_J*d6Qf>kJo=RB6WN%R>P2I;A{gR8i3L+t%#2+W!G-=1NtayA*WrqZ!~
zD(FyZ%`LiJs#dWTi8>2nIBjy_lmOoEx?>>cWQ)l=gmXefdNimP+YffFOp09H=$GWy
zX~l(TKkxD7W~GuwJq&wD7yNRxG`iL?XOqSV0-w(=*XTDYK<Z5)Q}0lgmcFqL?y@J~
zHR3>sUSdX1CmA;LR^Es2Q(JyrI+D7gkNha1(o%cYr=CLr%3HSnH-jlDP#m{~cUb@y
zP#Zzd*;o>(OKo6za4@FswQs4Q(x`S+2$e&q&+58zyJ$-m0xTDslleG|u$SDMrSrEb
z^%?f5E#h-RXE-HO0tyHcR5w?UMRvLrn$d<Ci)wxmp(D;f5WUNO4=Q#^I?NELp7=$7
z2BEX>DzyR?lZvX}zS+Zjm-PzIb!g$ct!=&VzJCiZ1dFzp`)DvD`RffCm$`X$h5usm
zer96R{0BKqvxj3y6EiRUQA(lmw#Y%jHar{FYpKP8Uc*sxW|be<Y7h)bNH24jeEBBJ
z28K}hdy&}6>t@5#ajUy(Wv8+ZjTHPUWIY2>W?Mu)46a%+JIR`eGemXYi3y%HDkcG=
zoHOi8H>s##%69>QS$?`g8|kgCc~wNMOV!$s?V&V-nJ@7~r`RaKU|&T)Z@Z)Owriga
zRhkWT6N6Gh-^i`0v-oR|Xn3h`M9+I3u30t9)Z3s*y{Nn}wpY|QF0nk#x-Z)x(aMmH
znr3Azqt|QhSBPQ!Xfgy8A3>v{eLdA$M@}it6#Ws+c#qI3f7Io9OF6&9<qx$sT$g&X
zVu`S|Uw@vqJRTobtC_2KVBm$kywa>%cmsmu6Xv#SS&>CO1YRiyA0FsMj@VFd<%-$8
z%dBs<nVYx*gK-```YrHw%oc9z@)V6%JGOOJAN{PZxSQ)I-~hLp;jVfl*4Ks#pz{4)
z^EMdDOB(-_8xD+}_{KfA&d#3WCFf}8w)#?HMksT`vq1-A(ac)2_U(K3kVKp-w%8ed
z$H&h%FeM0Pl*nF&L0Rx_5V!D}1^@*5!F}k?#PCTw+?qPbD6Up4)ysQP`XXp<wU`1^
z%BPe4ew_a*jn$Nb-E}gI8pBKrcMbvhW4~l9)XMB@c}~}W0(5XdkV!u53cot-J&d^3
zD&H*psz+}CL$^K&ZY`&SIR00hAumSBk6{)`Jh>k7-Wf4c-(&cuHGNz7rPyIQilhzO
zS0I}g0ptb3jVekFLLjXLhti!ihTo5#nG4~ffJ(p8Z;PP!#H0y$?mnRRY&sCJiN^|0
zE&3`srI5?_SImj`;v7`~<0~J=ULyuxJ8@0EnlkZA!_g-0mwRS>PZE&lUt>1je-m2s
z3xIjT6hLII9SI*z-E3g2tkyjUjx#U-T91)vkxIO_x_^CyNG(CQ=lX9u%j2<7Lde+R
z=-`MpJ|-%c5Ye;qeTU&QkRf$L89|ZUE$DubX~?=7ZO%^f6b~<@o)vzaRX`j!>5t>q
zBbULmVYRtG>=cvdX0Z}V;&a00lQ|q7ZXf^*ZEH>XHd!98MS7{;j5S5@QAEVK?g@H$
zJW8K8QA@nTuIyH3d&onJVOc8cA9@&esJ76mGLara><<XQNg-4UyYHKb?UZ*&up^3f
z|Mew9J1Rrn{Z`{Ab-@V7NM3LvsIj%xw3;qi-PFCG*`QEprAB@cw&k{Zc6#cwQd;})
zic*{-D(zG>G#;DHLRFb@MyoYuhg7~H@W27x_a&VaB(v1DKFfIsXSGXVEh<+e2lol*
z=E+Js)7b~v%ZD%FsvVaj=g4yNcle|0#|+D417u>QYQyb@xd3Oi4fh#(+@zxC?VSJ7
z0(?3Kl{iYoF(s5RDd;MS-rXq2Ur8I5wcc{Hp?(khvmH$%PxxTBs(&^^7Q){IyrmNO
zZglEn1qj_R4q8C_^;p=qhmwEc_l=Q43gGr6pWXCfi<v`^hYZNsu_o7DLUQrvnMW+P
ze-76gN5^tT{xcA7R;^>tHo>6%PO-xzMj65~e;GqPAT`6~BLXh<m4t4KttXceOg*b7
z%e_fxvd;r4B`mQbyOqUUaHqPJ7shQh)DGu`m$sw*WI4o@4IS+a|6U~jYJ1BZw=9bV
zhc%LRF!W{zRGV<QFg3EiJ;}o@dQSWbY%L~@<w^JYtf*Ee=$44YhF+oCW(I+aCZ(}(
z`%;W_hXe1OhI7W&=FZ~7OKiIXS4~%K20qODN3<*h%_Cx-<-R}BuKVSwj|g+u+DCzB
zKx-(H6+@TD^$_!@kte0ZdmO`VTcx3hHw7^PMvmZy^priRV7O1*=(m@Atql4t|L72E
zLNf7!{<lCDRb5fcNAW}#UI^0(Jnq~0q@GgGU?MC4EQt^hBi=T;2oPWT&|=ay(z1y%
z4L4lPHM$t}4}>LSoiP#}__I4^EQ8~R-bT&Q9X<Z>@V=(kzD7hw`mUnFZUuDRZ$?xx
z!a^vKu}$F<puQ=A8#*yD=M?ElX<sALZdu-KPtN$S*f3U^$*4AW32%^UR(Z=o#mp>k
z^fr?c`(dHsRvc7fTAjbHh#ZT|heP1=^1%|)uoBk;+bVZ2X5D#>WIOD5eDotmes;;k
zyZzy)&Tj^Og{C#=4X*P0)N&YLJB)ldRZ2UhDDUP|6wZ50n%D33q!i3#9N+`)lC?Vu
zWIS^_xKNI@9|R!D4H5CFOPt7W@_63*2*B5Y@{IIl0V)u4J=CkLU-kI(oFj4|^fz}{
z=XnZwEh>=w5c{fUL=rK@*}(sK!jL|&vvxTq`I8hb0!P0qi$<D{>EeUDWB)hD6}+ZQ
zPddm(V!Z=tuN|gFEbZQlcN|gR!?jxdiCQ7O!3G}7As0yQR|mrAa&Q)OFtCqQu4vkp
z6ze*A{po_2r*C3kP<2l}k6rTb6vYskR2X+#c_kr1FvPajR?~N!u&N^sX2@wR=53(N
z#MX%ou-9Z^?$zL)w^B>gdXmFYC3LO?2E}vrI0ZGHd~A{8o#l6}aoO1ucOYpb=kFCy
zrdVd@OL<xknZOY>ipag~)c{FLVAZcyT3GmKPH<2oIQXf<x_qs0Qnc@eA$G5CAnfVq
zng=pAJ`|n$!4hrR62$hFkb9KiESq{Q=!kNR30!{O2@3F523iMn#zkT}+%`$@@!k2G
z(hAtCDl9nVeIAXZN8&#Q4F{Wi>ZdBxyxED{S>>hk;Rdw^7~P$ATJbk6m#cN|SMLXC
zBh1B|myZ2#QV>6ERA3A->**;@eO)psT5=S(s2nd;BTQ%7(KXPHa?mgVs~kh)Zv44k
z3OE27XgrOzB-K6#3`~s47pwP>_5@M9C?!gTEo83DPG0l5ugWdPjx9xXopwHK`at!<
zG_xuE!FrD}bFA_mB*ZQF3+DZ*`Z5z0A)|&Wm8dK^?9@c*OeQkiF}R|^bn1%#Sa^UR
z@#}rM2aPxZmHq*>k~^l&1kv5qPRUikpw-1lOlCW3Z1Zw@VzDaEDEBA}1HJEpN{Wzh
z$G;Tt_Rla0pP#rQllK7!?B)sYollvtYG~zCa2bUewBl9Oml?#m%0-A#mWJP-$%}j&
z{KoA2M1_p)3HH7Be4Jbh-a-*X8k5)#dM5^iO}CBr9_NR=EKA<t9CkR89d{$4wtt09
ztevGVK$73dCG^vlmi2L?FUpnSmC4LEJOT7U5wq;>Np?Q%+mE$A<^~ETGGmeS(78sr
z_S}h_vHajCICi!_3}lx9mg||1C(^cogC?e$%KdO3_0qP5X#unqTeRFPXIi5F&F7BH
zj&Z$?TI=&{T;#L2Ba))oc)(SePhsQ*>(PaMwh3>cK9e-EZGeZ;_GWlXqkqM=c>eD(
z;Za^1h8Ru8)?{Kw`uThaU?I)CvoAm5E$y*~Yt>aA8Lg3Amh^*=H=}l_2@=;QU`D0j
ztQ+gdr=rMfo;W!<(aY5N^eM#-d?;Dtj``Juoi=v(HSOgE_UlzFcogw>AH<C3uo9g|
z73rIv_r_|!3{E9QNDiE)Cm&_AZRBWgf+KYk;>Fw3N|194>PsnZPfkfOGffZLTwhH$
z7srGb+DYfi;dNJ~PrQAk-h~mdDjPj4aAsZX<dOn+7>UVkia^ihc`0kBkVsokcESnX
zl;*rGT#&dkhU}}`dZSMkjsUlMA=e#OQ^)0q|1kFl03a3FHs~BA2$>@2B-zuVlYu4w
z2-(ZnIdKW4{22?{EAK1{f%kD4I1G}RG$$cpv6BsoeC#<J%s*Go-oKKd=YE0g<(OLh
zh&4W(ETrDlaJ!-}CC}@+FJ02G($g(AEFaWoRlQBLTbtf{jOgV|3-T8)sw}}lP5%PX
zs_h3Q@*fBIkUXEehnC`~rvcl0;=sL&`a6D3Ci=}EEN404D}EL{exEJIYkaSGr9$W?
z#(h1z*;|ER!YHYpJEP&YY1=y<xlkPKlhsdJUJ29Qa9De}eoP`O;QK8mXcjqpkNsw|
zv1pn1;!S?kmFryFb0JJoSoWO2RYIjrxAjHBK+>JChjy$5S@#g~z$<g)lj}bEt*h$0
zWYMvL*@*7Ae$`SD*k@?z7(zKikxo7VhRE7x6zkroazu|cdQ;^$(nH|3lyfVibb^pL
zZl0GBj$cqKhQpuVqpFyN{f}oChC-@WpRMmb5NE$4wG)%-;OH9Zh~n&lMcH;{Y8Y(v
zTU`<PLgU#pM|hO)qk3u250$RF2Z_$olpmbD#E%?2BTRJAgIX9q^)p#|ZKDL^yjN|?
zECGZtQ-5?TlYxNsj=O`NqpNiZczk<I0(#0P%YaU<TkCUopI+<FdVw+Qj?fNEM=R!R
zgbzR)d?E?oe~lWUm(w|zh=;eYwQ|?X)kM9mfmCuCu0yT3Sl@O>)~|kE8wV~~Z-w;s
zURF<<0-hAI2y?6^V;v}07cY1Hn)d(p`q6dmlOG$V=c^NR*B$rV5)i+AO^TvDi45{4
zOX=QIsw6i<x{T^KGGB7E^;4nf){w%tJo;ZmD6)7t*6GVa-Q~B6@roY{m%1>-5EX{~
zC?(=DI#EXQ3>J7N*Ydyc>PrnaB4vCPyHftCcWmc>|GRV2FarCWl-4z^ZiP-LISgFj
z8DCqq(*{FQ3P~R9(w>$V9KO~g!RWqQYi{o22_R(q?)d8(A6L%NOB92<GD|4r&kK7f
z&c>a&4ATl~3%EdVLK0HhH2;djlfQc1CgG#3U02tusJ?Hkcpz+X17|w5un*5kjqEkr
zUXm$INzzs21~ou><J+RJtso5@<L6%AvqIiI!Ye5g(w9oL=5CNbhfwQGE9UTS*XbK-
zF*i7Iy?%mo<d4zzd(J?UJHn-!DB6qAFhtMZBMmE^#T*-6XF@@UDC<cGoj7zJ!@UI&
z;TA74^>NJi=}60Yo#;@>L+7r!MgFX|dDZ6uhVm}Wd8rNFR*<plty@T>AKXkO_`Fwe
z4qWCutEdy!t%cI{RL*l)@Fzes1&H;bVkYwFYdehi%6T58qoTv@a<e4dtoa5=$b|MM
zU~#JosHPe^QWQ8Oymq$VSKn%BH8%A|eGV@auImHwC-`*^i$*KEM*=m2Xy;w-V@r2U
z@I&{<?Fz4&u>>0-*}Ss2{46=aT{P~FTUwP_RGzFbE4IJq5p`c%=Q#kQ1~KMLw~Lx)
z6`Y*W`p<g5e?KKlAT9!QCE{NRbZR?{8iR~DV(&hi^gwWqx82CMa_TK~L~q&CJXkME
zWIV63b7lFf9>KK4**On5pdLwGAix&2LQUNIyuygl|2^dR<{xWD$-+&~@Wz^PiV-Av
zFc9(~OLecU-f)apgw#$#Z95FS-fo`ozW=K*ioIq$1OU$APjj$6cqM<%01I&4D~y$2
zzQP!UvwAO09QYbFeT1>7q@-kfD`sCw|L4)#FGzRB3%DsP37}~$qH8?<^a$4DFU>q;
z)*2k07=#8)Tkp<3j&6XIRaLdBN2*w@r`kf#^`;kF*|~MwnP$coA2yp`<H13TXhd^y
zaBc665sS1UHIO#I;@IePoN&O@CgiqJR9e*F{a@DOB$nl6s6*YV6H|RNWNF*B(P1Sp
z+mIs{EjqvgM(&*k)OZB`A$5dF%Ft*vT2}s2Tn$4wAVr`wY**BQsOw0xsjlVA*0rR}
z7`|~-JOeVp*Wxn-eq}!5uCjLl^aE$y@;fiEwFKoiiYt-~O$f-{3w?s;mbMlqY)_BQ
zumb9Tb}rIKOo+f^4*17XGwCmrZo6G}i)(+z2~Ng}ib4Z`e~?Y;7ICogbeFcwNr7m|
zw=tOJ+(DE-x6@eAojOm~Hh)U)kWk2Ke{hqGM=J>iGZN2o08h4)q7hX8QDkf}dBNuF
zkH6o&!ya_JWp0g!#n9F4E4W!!USmYkNkF-LUcbvDfCT*IY&rjOw&jt3E_@k6a!&u?
zD(WwTaH2U!%+#6I<!$?rSnkl&Gq_!XH|jLCS_gE)m7k5?2_*IC@IUO8Ts|)JP}m@`
zr_RkZny#RRH{JF!MBh{_Za-xZ005%7CSu%X>=_cU1Gz6Rik=7)8@pGNe>#&c*|>jH
zw#vV|yu{gezm;EqtlH|C$Qz;6eQI{ajqMJQosxw#x>S(>eoSB%s1PN8n32)g1ev!Q
zOq#)tqlu43T+>@<y58kExVCR?XP|sDVl@KOLMUF0He)Q4$XCM;-$;b1iKZntDiX++
zCV7m8i0cuXcPm@jT(4zi{V*3F1ORaA&6R-H#_$cW=qYwc%u(d9J3|eAiLm_lGKMnI
z8Ov}h%3oOHWwxvf&_QJneu}Vt-_=mL+xn;QXZ8T1UVL^l^l$kq9V@u0le#vax(XCn
zyX@UP{A=_m;D2P|+;92L7z=r>!@1s1sj2ZB;eWC$HRLNbwLcOhI~%%Dus#dTSZhB^
zecVQnPcTVzT3B%tc;PlDkS8t7)#7L9!mo0@2705bL+_md&)%;1j{zImddF~e%jdwV
zpkO0=7S9pL>Gmdg`*}7A`t&)LU>j24_qZ7G5l?_wru6s6A6Mie(6iJwmkr2-zx-JM
z#rF4pbnfE5FMWY#=m}!K?Gfg91-J;&0M0~o)2Yn`-ayXS@~nFLn<HZ?1IB`{xOLh(
zpVXsabF2#v&yg;LXKZf=+w%v7Z-}6yW@=LvLHim*@IJi7YAi!6kUZwKTe;V|x0UPN
zQ4;Ob(07fBay0_;o9{wGdotU8mkd4b4f^{(*g`<+rN!*wDUf)OEgq#faz2Lz$KY=B
zo^}xllrYmp8DvZT3i_3@!W}?385J~Cvc{C4IU=eB57=IWh0i>DIJN>S_n=jQJDYiu
zP+WxRWUS9Qhq?52Ek#A&E}dLr0kzKNZ(lMe{Mox(#$Z+rO8NZo`*kHw+!fN)diD}R
zvmnI~3cenF?d7w|APVC3u{bHLy>8`n3V~PY7OpyrMM9K6&QT;q%q>jD-peg(+q|=H
zA^}_v0tpJl<b(6-Bkg`Tc_{D;REFdkV>E&U>)*fTWe`^d607D1YwHf}x{Nn?J;9%v
zn^Q_E*(yQ+T~N0aID8bJ{rv+_O5Rz0{4+)~@Ajtq!|5p!1LK=qV)~gdrgs3Poxad!
zo?lGz9Ox5Ww-XOWppwP8UjOEn{$mr<IU(BBlM~uU<?TCl2LcgU{0+`f1d~u+`#D#o
z;^o{)2}Oz{iiC(dV^k338ZtNz{QCT7E{3KZMyA1YF~HU5mAAp!)E%huQcx-CPKJhT
z@Tb;bye2a4t%a%9nCq{K+7oxX&yJazF2tH6P*Iv+*r9A*6{&4rtbG!=*#JMG2#yww
z9u8pBM*lB!JiT{l7gUFEjwSjMazt;1*jQ9Lc|Sq@RlY}QhHLVX<7=0@C!4>VCY}Bb
zdbqCFAqyq)Wz1PPh{4!zJS*XYf<FE7UK>~}f^YIO{|8k+5uMY53OkZe<dcp!IEvXY
zX$FP#h*f_QDRtc(|7mQz2qEa=;LBzSk+~5X9GZZ0fJv)(8sE6)?kjJ=m61KRV&!Z2
zMMgYfDH23~zKS~w|5xG!R2x?q;o4N0*(S~h+x8tDD`GM?7CG}euVI<Jv$qv=ig>{A
zc=~xh+QX%+|E)-?>5OO%mUr~>=*Uifqn`d~YwOp6z^g57!xrmcwG=f=*Tk1xFFq1{
zw1%CRSB@@yRihbk_ia&RgYU$3s^Q3`3NkD?DOO0Swkji8Uw~XXYoC3FgxZM#S?h3T
zg*&6v1?41dsrM~ZkW@Ej2j8qr0T5%KL_R&;<DM(FZdQZ9TPtW<QcBEvcjJcSO<+L2
z9PzkZfm90BWd*q3!?>+*w=2Uw<+{s-93_&N9<kr+)7FLkz@aHlT|A!|{F56=s|F&v
z{D*Bu=6flO5p1E=&P1f%APx=qzz*xU&-cT05jBs_m7;3ao=uxF>p$4!$$uA^uBm34
zxm?|(7S68p#;4uL=$*yWVoVkl@mF10J>FmJk6%IbWSezkvSu>e9OQ043{w#&UU3!A
zdKg{|tI^K{6(;<~N^POh8(M%I&>dU4Gq+t4zWps5KvCo)UZ*#i^zy_80AjWZwVu5v
zy=dn?(=+Jg;}sd}17YlIB=($q<S%;plXxRLm*9g6v1!Mi&ng4JbwiOLf+xXejM2JI
za1u!3xuXi*hrGaO6!?w^cveO13xSftA!Jhna$Y3q2pCY2iQh)*5Px%MhXguFgO?j+
zFzdd5IZSwj3H@xRhG!q+Cfsk>PG77)&ZTG`Zaut2qI9_!uF<#^2jQuD^_Arq1OPCQ
zazA=3Y;voyX^SZ9=BV|^D!4eD8a}yG<zrSzylQ=P1LhXgwW28IXiAxg_<c--!mFyQ
zFIc%ngU&ERkT{2#xYtPI>zmUHJhJT30pOcT<e8Jf17q1?(hb|R@^m#T#hUeDf+=9Q
z{Ir21Oz}e=aBrHb`bk@CXD3c`rwS&gx+}~4VZP!8WXf_gd)@~F_kRAg*Z#*ahB9Mu
z<sWBWq|{DNkwt6_vI*|JI*GkYmUO;)NcZ*vk2CpMj(Iz15Sa94i9SKIZRav4@Q*bE
zKp2>EGRe&RwxuaAV^+p`k3V^tZq1AnIzBW9QxA7-&ZopdgGBHy^<<dwZEC$t4B3#K
z_~$a$9(QR~IFn^}1NpWcxV3nM=-g#(S?wBa>|i`iw@#H(2mK%1I)6;H{Co3FxvQ>D
z;)f&h*ih-g+9SGi^$vI*0t7Pg85|ZZ6}i_|-3}}^)9WrtQvnHA7SR||=iJ!jaGZPW
zjsB&22Y7wgV3CO5%V5AyIvO{Qjo3Ze@yR*66z(9p|C+2I=H_FQUQ@m0hcC~e26zw|
z;54aY=vdM;uYw^A{@#z;Ikz7u`zk76YISL@Hkm^(o;>)w`matK0m}E`09C<h>`jtv
zMN$~*ND@U=%P?ifff>oQl~u*I{z-ROxjmhO`<HnK3p?_!9xTjXO=Fxqz#-P!OqN8-
zXFMN9W{e1Y(qO=ykF9@<Hv0^<(@fv_-Qk`|p+lVJ8!3OWrl8F#+ic8Un4<@cOvwB0
zkqKcQ3h6xqsJ_V<u{UlTow?4kYR@Z1!GOF_Cdhjh1&&ONc!xTOI^lt0SZ8Vbu1jy#
zT-pWQw*uv-@$E7p{SEu51$zWsbt5g-HhCW=_EEVAl3yWQV0J!b4Xtgf4K)gqwDQ-y
z@vu;P(vG0hACiK5M}4Y4?b<KZr1mHk`Z{uk%VyZsQ{Qu|MH^9Jjn;_wqc|U;ATA28
zty|!<^q~UgJ8pwt<Zy`n<LBjYeoSPL7Ak%kDr+=Rxj4M2$U*mK()#!V;k4sg&e|wH
zrD)w<wm6=A&(UhP-eZcojK=Yx(CN`fV94`y_YF^Y+%+w@jf?!r%%q~{<e>V3o%u5^
zUXsHlbcv>2+ip|<Ot@MI_-ddn$PRf^dyGp&y*4F&5$f5`X$?Mo{-EOb23*xC0!1@r
zuBX@W*%uescY$O$LOYVlO`eRX!#d`0c?vv4tVgLu`ZWw@hn6=|B$ZPwPPKMA6|-J&
zJ~QmXl~q-+o}I+sFBci*r{QCnBcm3dzWs6U`(ZGw1B0Bz;s300Oj`~NM*bsfVF4q#
zGIL1TcRml^4ro#$<pKBh{xRr=H`^L;1|D`Tla(qmc~KsLYJQ1XA|>>NfdH`Z@qbJ6
zweYZ_hmE9qVvoR@1&QUp$=j}E!}xm`LoTSmYzale)$|;yd_bPVi|et-7ip3dAWp%n
zKQuy#F}5FCU9#=pXJxd~bOe9@wk3^n%6q!%kaqgPHF4uvhmGjW>&W5&OtHKkPY`u<
zp>k{nH7QZONl4c<)(QT|pbN`Z;!vnQ?Y2Y|>Ui0%)OuP_@kN<Oyf~`Oi<q1Yg6xIt
z-OY}6JR0Y$(}ClB^ln&emtfD)V)Wet2$8;G)?Pe42lM<`7i2GOt1HMp2`3YExF6oD
zNOWYblYQ}qB^Ua&9_Z!$cMazpD5ME}uwQS6D}^BZaOeD0`Ptf_rIq!D==0p!1pZ*t
zlm86@f|`9@eV23SZ~4|umE&*@3kL*a7ZNk9$zxuc`6*;JG1{y_7~s~~-@F=K^N<t~
z*dg7C!;8kwy*0fFzv%p|#z^tKj#mgh3_5W>j>hFv4+hhTcPMp_R7l8SD}tr=MVcPm
z4woEAL5wu?=tx=1E2g_rY31uzexz+fJC<u=@+sbSp)XjxG=yN1rn4*w&X1oTj|cvB
zs-#<Do9BxoIm18JDr@m++#RKcBOpy&ZY3+BN4s1m%(!g$>QX5m^q{NFlA94yA*oqW
zM(i~Q9uLiERP}haHQ4Ryt!F5b6S7%6yD_`Y(VMNfnFUKz_-{3dxhuyuh+GuIHvT|D
z1}!v-p$r~YPWLaZLb*EUSQ>gz&tv)L`rGM(?uwcSxlFfJ3l7i4n+@@c%HPXVSo2qw
zxW~vDev@7Xti1*5XZaoiZ}g=W<O^*sy?v_^rwgQyZSacv^6wwWA8{V^#H)@82OCov
z(=W;Rsm`k_tV`zkI>tDL(s9~@5;&#JMKhRQu+;RQiAk=u8agT#tKM~9pG3jE@e2&7
zrzJZ5J9CNIbEJ@U^rYAuyZ4fXVo4bUdvp1~S&3~2_B|Fnh#~*}s(%7Wc89yJolYtq
zpqq0mbel}8u1ft)-!~+wQyq4nQf3n+G4v@+mk*mfvfh2b7y#athFDxIFfR1wDm0mT
z^>BqRbB8b&VyUYn%?dTXD9}+Lz{_JvaX};e=|{`I%$GVOja<K?0xCW(bHy-yo<ZAW
zpttwtq8Q8T$bmEY7XKAX2x7(>IB&e5TwHWkvBht#sKeW$lh$t9iHR53b{huvx8;#=
z21)3qtkaDTq3R~+Zy8$Nk^rkReIu!Y-Gm2V@F8VQtx1joTo=mHd<}c9M!Fs!dA?`|
z(KgZ}>xyUT{mjYzfF>vSo}^+KdwG~~Z1`8!HW<t6s;^czHSp3#6b`}@-}u2U2W3+<
zUu4s^xx<@H@#@ZkF#9vmwtIFfrxZU%fVr-RA@TmVWUND58{sMt`gdUJFMG~ULJ&q4
z<qv}xIo?sI-oH1NxZF#QT{$V7mD#&}Q&0f_30H#gN179&S-Jd9t7zW}^9t==VrrX4
zC5b)0Mt?K>y{#F~2qeU<+@D>2SK2#3*r;XB5~JDE&xP>3sz~N|LLJa&3#z~)NoEN#
z4#GAH_5*GC5XZfx4rDajuYrK4uOtE|vdNhtSKb@6wUj@fjmBlLWDD7#3$jlxc!0Gl
zYDhO`c4j4EBIEq_$RZHISMS()PVuBPWMDCKRH&I8o!mB`5)s|xyuI+|0X=$e2>}gU
z{+VWuG!rAbO#6mEDScjWzDefq3S)zDx#;2J1E0*Vc)F&h=!-}AK`@6!P31GU!26~*
z;?w1V)(z+Om-m?z@T}$2=DgN*3~%vCmqnueAO{xjmZ{HeYBp`3(AAJ?S!`^LrAJMU
z+(F#_BNDL^B6|+@@A2c%h0CjA)Cbqi>s5Q5FdOCbL92YJ(TRqY=nrGmKMAp@snrEY
zP*w2XsGqN(Q{3J$8d8Z7<Z??VQ!XQvREM4HAzb<Oc(Mt~vfhK$oF2G#^hwza2EFt0
zDLThduPX>rGUzgb$Q?&eiZ%LIwisbOF$A-!!i2ubc<*Ci!LA})v9y`X7@e-&ftjO;
ztnUPzx3VM=?T#G8PR_uZ4dp`{qYuR>ZFbThjb-3yltFHm<{aw)qa?JKMd|C-P+*|S
zN*R8|3f5m>kWfk1cwS5#tQ(NMm!V9oWbv(q`X?il>JS1NAuN=y$Bvb3xiLzQ#+pRP
z%;3~`{b6(mf5karh~AV!hD6SmGi=*IT$OSym^p+l*-u_>oOv?jaeiTCY1yrZ1sNFY
zLy<(a6TlUr3Dj;!2|IG|K?Ji8B}#pQd=MS0++>h7EvwwGYk&Vj%6LVyXjaGWT2s-I
zO>3+jYTkHn{<ZFE#~njPc$I{lc$K2P2m0((mTgnFOA~nF|Iq@ht=poY+LfJfk*Xmg
zk=2kjm91BF?`}BY3^s{hxwK-#u2`Z#<qBTcy?U)_0x<%dc7u&aDX7W+kksQgUtixJ
zCm7oO^C08bU2*vV*&wM*x?=MX1DBQynU3GtD0GyR6rF6S+2pBT!IJvtaxfRf?)Px@
z0m%<sK-#~HV#X(P`(dBvJT~xA!JhAA{ylU2f77D>P5tVzuBf0rm(AeKckm$xZLXIO
zufQc3p-dltv>^}J<>$8~0C?`0WvlN8)IVg?%4i`n5tY<A6WF$AIzt(x)|GB$U%#1`
zZ<-+m7)NNZp6i!~-v*f2s3%hs@7QYx9E-wby~Qy<|I<qJshi{f0xaGn3*I7rJP_@M
zzBP$=X*?7H0!I3&>;06#xm!PHj%Xha5d?1ZA@nsYl*9WH(!z&`M$h4Dns4sBy;QIS
zO;^t@0uGGd2p}iYrrm*SB>WFgmYhHi*I!>2-9k%_&Vkl*@z`bfxK?KzlS!%{l36YC
zAk#s!__5|s05n=AJhi@M@Nbzo4+b9wlcra}KqeC#f0;m5Tdu{jQG9|;7_-C^_AiC*
zTvRl*Vt~c8I(5l1uWi`^TJ6q+CP{1pHjB`+SC4b8sZ540AKJl10}5K65-&lPf&U`F
zaq_#BOXm_vtxhD_lCdAX*1slJ8_)of-UjYn*G?9g^EJ3=>0p<h2p+t@g`ynWqlfs3
z^*xGv6`oE&tDH5ok6PQGXU)9i=Zv<ldEH_0hQtm3tzcJ5sMrCfyaM&=p{$+%b5#wq
z4KD98!%a5dc;|SxJ!k|h5|N#+pie`j^*38o$rA9(d8Sl{_x@ht8<<np%pPSe1urBV
z(RxCNIms0x0__Sxthnw;5`+ybn)eE%!WLjcWh@(*ivi83w6PM4I+t50FjIt^WmkzC
zoMO5-;sG4oU6iz}%0QkYUZx9A*8Y*P8iYe&6T#UF8w;`(DrM&az9`Tq6bc8j3Oqzr
z7@Hu_HNhU2-|Mw-x~BuZm3P^oqI@YR+Jgo$wLWUER|dd<^|dv58x&CjOq^Jx!?;x9
z2IK|H<Iz5$xVm8gx&;C>H_9+V;m0`z9yFHV010Go+)7?Hk{IF4@PpnB8OB6rm*YN2
zBjwVn?dIH6&$&9H*HOk({8xrdD;HTlh;D;eA1l@&H2Y5UE7!Au?_#H5V#??<pu3!2
zZLkpv{eW>*^#sMNI1<r-Cd?^#Bx~jcWzUlNTS6c!g&vI7;a~qEUcTBRn<0X}r_%R%
zYi=dWSe+vO=9%3(o151OeD~WSm%A}%q-Rwaw0K&rL<fTBj^=iud1kZE$Xml%LoOaG
zalMPy6Bd}*RLz-$QNk!C!m)A7&cTZ!WB0;aGrCD<;z`d@?TuzUYXY-ER*j8?m3-?!
zW`vPJYw@Gz8^MXH=Tr|zuA;gXcA9XMBhNoE_nF^k{tc5j)igk=r%aQ~i&Ds6RF*g6
z&<(81WN1`rzo${^PYS)o_0OqFJs<x1m58(sB^Zl;2qG9lwNvBfC|i4Q9I@jZkg-Pv
z2%yBpd<9C~mcRJR@b93i5zB&^o>_y9U>Lm!vM<|eNourf{{ZHNv8zzPoV<sv1+n*L
z^?H<$`S;pG<P{V0lM?*(1zN_*H|f=+uyaQ-`1w8tGh9-}ZHg=qiu~hf5xi~U*y2A_
zu>^qz`1E2{c+TL+g>q@J8fLn$=_`(L%cYwwa&}2_!v__m=csdQ5@kTx*%cE$RBn{u
zmM&bo0O3dd2?%mnH4{DZQ;>$ObC8z&DJD?ZF0pl8?Hn(V^ThbQAF$3r0a3ZX{&EvD
z*|P1uZq-=5-Z2`7D8b0j>wXB9=K+&*MC<h4Ysr(A+<;*5W$VKK3oKUK;AODXPW}8T
z`t$3Spk~YLviimRR@DE>!AX|eHN)yzzkW|HXz6Np+x;Ow-DLS_UJ281n*w<qM7^O9
zVPSuaQdeH_i8%>^IP81i%0IVJ;fLjeRpV7R140O0D8|AGSS5r4QpbW``FMP;Mu%A}
z7<#q*w_RXx{1<~w3RwoH>X^1U$W4|wuK0TGfA3>_!v+hK$nk@gRQN6c1o2d>lq@jb
z6AHRgc8)}GTE_uU`cu`%kL3bHPs>uW{F5j~;8Bbx{YTl}hAbx$&rLBbGqjx<Q(`Zx
zHj%vqB}`-x0g8xbQysR8OV6&Bvh$>CCuK0oqWmKEnrH$D$fhk?eQ?8<P{<I&a|R3|
zxB*@DwjV|Frho8L9L(8bQ2Z;-0*BbbPtVyDl?AYR!4|3y6oCXOzS_smB~aDZIY0l{
z6n1w<<MpfOD%ke$#1<R-F}G{?HCz)sc$;~UvE~;tlVNd0AA2T7?&zWgwLeZJFBU6t
z;Q-g=wu@guvAMYjP0)o60IMrVZC1|y^=je+ua~WcK*4~Q4;uJA=&PKs=gv-abxSvP
z5&6a7{=M8EDkKv<C8L}~q^4bki{Ji@rTHn4&FUFEFhkex#rUo4IS@p_qP$=_<)83u
zj>(x7%HyT@Y_Mrxdn01#gR9XAGgy<NBBZr4HNua1EdI^6msI@Gd;MpBr!z6;;nKL_
zcZ)CDI1F>+$e?$>OVsEbDe)<t5lP@I{skQHX&{IpK{Le^%o?=%n^`@gz@<ST(sGS8
z409lBH@wR~0cmvv@hbTd)=^O9MXccFDNNEhKVGTBt?wkTjiM!*vA-R#m=w9xvzWi6
znfC%NWp=4MarG0*+{umJhQl_(wp`*_=a~vb+e+~KC<&DH1wH_PWe&}f9dg;BIj_>-
z)6v;Rksaij>(RfF)R@Xl5BF>bt6*_O|G<EBTs^~=z0^nhGjT}Z;@D5`<aZ-|CYSj7
zFWa1AZ@z4`S=5HLp^{Vn<1)n}hU9H^pHrNjf?~Lnx;hdt_4_Vc=V^pi2RZD!iQOMl
zTH_=OnRo|KtJQpse#MgR)`qv$3XbZ29+^$m#HvNp?=4^6#z@{yBT$(;>E3N#_$ChU
z4Bo^2j!%(?rU#hV^`e4+0^0nt+aoQ*rH#fGd#aJCz}d!+`l_m2O-WC-?Lj0%M8jg<
z`DXV@Bs8EkT6!A>(5=ezoU^}}QbBz@)Vumj@)yL_i7eYXbhyOzG^m6Oui4#V#XVU~
zsL!@w=&p?6xKNBZP`GdItg!(Ak*~Cp5Q)!lennl*nK;LEu!`U<<dALF;&nbZ?e)>z
zhiwfi(<g8(@`7Q{S?0`1)p36~J1m(Qald?W+tt}BThVnH{;sv-1*bk5_d@&qzu;H=
zSZilG30ijst2CZgl-;v)XpZEIb;G2Fwol*E57w9joj}QYaGE%#-GN4%^X16hngFlG
z%Auy^w?e0eY>%v<`^x4f9#jArKG0Y@g#&OIwM00{dD@(gJq{GufY$kJrc8J6q2)mm
z69_NMDX)%>zx*Evw%7>dEkLGeGBUn`zK^@H!aZize#VGbw&CDD{HbFK94KiiH<U>e
z!`j+!rN>_4iyRlqHQ(-e6eYj{LmW>RHHm_>)I?kj{^FgDP!|*es%<=jcflGkIxgE3
zT!LWfOs1Ac51rc!1lGutN*6~_FhJx|Q1JzgsCxA0d{ct-LC3ZbAZ>(^afngb9`FNm
zww(jCx<Ugef98<hy>V(EataizNIRWeNOL&_fJ$v+f7nx*r3;|><SR+5jK1wc01s;)
zM)Hv_gG$SbBiN(L3i6eSQELym+wShI2aPu*&jvH2Uav__jrhuISU!4Xo2<6F*I@jy
zpZ`3vQNW8{Um>Ma2JYSNVR!KKc#<-`l@Rn4*Yaq@&*=#INhmKtC}}1x$ACnG_)C91
zExz3Kis15u^UVbYajJSiH!g}L`wkpvR@*m0wgCXjYs^-AR)<pd&q<OfE-;Y=JRQ1*
zS*Sb?d!D<Y0i_wLuPd4D9vBwNfwU7}t;O8yUvCAT_1{o%6(OwN@PHtF`lqOH!GH>>
z5zfaF4-Xp+e4z4(dn)X&v?3ffB=0JO&MGpKMa&Bs>dY&YSI3|%<6K)oj1yaGK-j&Y
zMQCU3q42ZOeMoU@%Yy~$n0I5i;7rFgp3@65TP?O4ZAF!3zwONM<dr&Q<Hp|n`HnE<
zbF@tZU#N@21YLz+{1pHF4C=;x?2N9quXW8vpWj>ITdXg+32w#ICL(DrYI2P@_+%ni
z$RSO3G<d@R^i#|>Y_0qQJ7%8o!aY5oq$n7ql|PTS6fb+}g)#gLw3H}fAi9MVLWj+h
zhD0ueX))&hbqOa6MrQutypmRp(dE?lp&j)(puI}Lyutj|3h|Mp`FWnDI5?=_KcW#U
z!3)j)bKa<aU-AR2iBm*GG{2x(+v1%^oQ{I!_t*lPLXxBJrt`x=-NQwtwoSJ-CCS{a
z2{jEn3)>q{mK+DXKx&oNj~;{ehKoC(vY<Bewh-#7DgYsQIwQ}7V6o3z{V735LKde#
zNVpM3+e~QQ;mHTAkygzGNizPuSTWPsOsTR+STQjBE~G}|AgMrCzNconPu^yzgz+ha
zhLn?BU>ec#V8<Ph<(<ywXBcYzU#5`&K7@`~Nt6t<cpt$CF@sxXKem4bLbv)^C-)0}
zt4jCQG0QgLRk)zq4<c=UjjdXI>~C=z+5LP4NvVv{2_SUZApBUl_i4ZHGZnbJ2t6lO
zV$VT-0e~_vAy=upqaq~H72B8*v*HD3a!-oWt7|{7?ty1F!8G#R3=XgMap7ig|4pCb
z?%>S|4;h(;GUxEr<=-9{MF`0Y1K$xW26RXn4j10HgZeGDmx3OTgnF+QN=O;{LL_MI
zzQX_lChPnN4hWANoZbqDbMaj*E4xYD{0_;R@Dr9fhf7P`0Rs~Knw!j@8KUE_qE0pf
zTr}?R`VRZIk$@RRqZJq!aew^Zd<@V)?6;6!KAoXVgaQmS@|%wW;j}$Qz;o+CK4%|9
zxu7Z%a9m&{{RrlWuIluvcW|})L!XNJqMO&wO(bXnfVg~_I}qL8s8BPt?Ix;DvUagg
z;c<cCo<=nS&z;+C2<<afdneddrwlt<tXD*`_s<|S9*r|bC03$ge-A3$esaD3&1Y9<
zzdaw!s4s2bozOo&Jpj^p?ye6pQ$Q<woz+SN{G%ixWby)CtH{DaBWfst^j{b!$in&T
zs+#n3V%z*EQ<K*2{qS6pbarrZBKzK_0kNUKuc!^3SSdtEFVF`7VH)a30e?zeP&@Fn
zbe!HY0xQ(+b-Bd7OF~jMhUx_`;E`B?3<%tZPYYzQh(VQlxI$hC+1<GO$5g#l)zc<s
zMUMhOmM|sN)9-?g0$;YQf#`%|n;V+;@qh9`ra|Eh<FVIW+-URaU->9aF)6<*V&kuS
zKX7hSet`ie5sDTxPRD+$$*uocY5ZVlg9|#pP^`d3NkRf=69THv;jOawxIZ@-JurHt
zpo0;E7d(}r3>FRPdkpYBJ@!obBT|}}neA(z6GE^0QxSUVJ5O?O5W;%iH)%b%Jh);1
z^?nA^Sj58L0#M~N^vJ*8!KWdm;E$(afHxJwoB|Jke#-y7^nZ?mhxw<okVN%BPzxTQ
zaKBD(k*8sVO54GwBWzp+lV2P?Jw1>qya^WnqBLMX$QbHaf*SJwT!c~r(-Q>qp;!O=
z?*%}I_J1`4#8&_FTR0^E9fJS)86M`7@BcdU|JP;z;#~jUl?E9){{C}IN}>0^K-j|S
z3mA>Lj~Z7*tbi^-^a!s0UbaIXw9pZnSWLd~?hgQfsvsE%p{1d^mf<m-bgWm>e2$D4
z68D~y@f{NDza^xIc*?{)HnvH7a9-G_uMX3;O7K8{Z(Nn@l@<ExdAF@>wLrCs;E-|b
zWm8hyR%>lTH-y)NDu<%3Na5W**#j2H!7`L_1MThiG$etyrJyG~5D%dOW(%h_xBl=n
zYzQp)w(MQz)c^Sk4btKRLGM-Rn?4Cl>-;QDskl<+)Q!}!+i5k`cj7Ku6vW4;%cJC;
z5C$QVW2(}VN0^WwSk((Z)+|}P=Hj$oA8_ivJLVZ>qS1xBr2pyy!y6$&SN222A*+N4
zjq;1ykM18|TED#>MC<*5NJ9KvhH2hY+(Y*fXh{paqA%~=%9cBGdeLC_DOPD)c}gQz
zsmu6oXyUemmbp7n>pQ;ELJ*$WvPFvfxn)MTPK)E|@vbsi-f<OOwU+Yre52dhd1fAQ
zi}S<A7q{||g5xRfNb`8_-5Bn;n5e%W&yF|WzWY(@_B2)jX}&vZfTZx(d+_>LUi>Lo
z#0guB3gwcg5V)DJXpzXVVGh2WYjNJTM_$|3(a(+J>|5Y|dc2HH6+y1?xD$#n3D{IC
ztX|=BJH4g%S#X#T*6ZpH^D=fR%NPP%Ok2Vh*yOI5I?F`wTC9<(=^DE>_pm_aV|n*j
zv1YfPK_=uoQl;!m`^L3aiD>eAKQ@zCZLPqDW{DMP;*HJQrB{DHv_b(LSc|9o+ycz@
zC2<1pZ8P(wn~gtXOPK9bsgFrc%Ml(UtBJ8C5CLL7WXJtsgRrCL^JhgE?k>DO1v-yB
z4~dmskC)3976wBspBu|7XH6KC7c5$wZg}X}ohc1Inc9AlGb2zabqdROZL|NlHXwaP
zPy_K`aTcw$6jxXq7|1{7D$&lu6Ije!tUv4Ps<^8WsdYZtlf4zeYi1Q6hqe@K@X|jY
zny{`Y_ZP9yw(f0^;Pt)C2*&3$9d&@v&SdAv2rQlyIGAJPL{!ej_Xs1tx%B3x_*OL+
zS@pM3bH0f3%fUKv;0wkzS@x!0RW9RAT~5t^iPv0N2&a3p6#7g@eT!~+HOcvQsO~(c
zV`qfkRV6e_V@tRG`}3TJe?DxGk6(t{p6%xRI>2Vtu5vs(UkfV0JQBD)@E+`wP053{
zZjIf%=?u)S{nR^4O%<<}9l3dZ!TZvvY)18WHN=&(j-)rYnt*P)@oe}sQk}E_Y(QaK
z*PcrhoGsqc;qT+`-&Gy8;Zn2P)ix!dcZN1V@9zgs82GXzrBO;!CtD<u{!e?~71qT1
zuZzou4REQTR8cW1O+e{o2_gbQ6i}o_YNU4pp(-dM3s71_2q-No#88BQfkcdekrDyv
zCG-#i2||F706ByH_uA)NoV$IqpJ!c7GRaKld%ySB-rtuQn=tN74kx|ODO67>4C}Gs
z_Kf5a706`F>Y%WGdAi{`s>xbCxNecmuB2+?^c#b$FTUsMPTejlz3TjSFi*8!7onR`
zSR*29HBL)WadCZ?h{&{JcLDd&6d3?0<uPzfxAzkTAFg@)4z)0K4onDFiQfPEGp6x*
zaI5$YY+GY6>i0%B|G8`&KtSyXD$N?~xNR~`ix@0Zm*WiAQ&Oj~Pw~dWs8!HZ{Q6vJ
zYMS(AhVDysy*kSVF-OAIG)DU1>PotxoeXblS<%mc<80h@+vJBc1{3B37MnL~HaGjR
z>Rf6aw&xf=cj}MT1#W)Fd*_OUg3kyQ)Mo?!aWa^$=m<&P;?1ojfiS#FTbs(q@S6V+
zM<VbSe|GO;2ZnK}9b{|E7#yc=xep8TO-4eFs?+$TPqdA9fChN0rLZ&+JzZQ7D4Y4C
z)q(&AMg5#i2m2o4HQbO7m3Z2-`hoSJmDZ3r=;&R&KmVN0VEem8nHwY1FD<-rZx&^y
zZig++kMtyoSkr7q&_epa>}<mUacE%A<p^GbN?eEx`ENE&{32CSSUi5$XtZSvdt#+$
z%K8ptRKOb3qIY^-HT)EG+_)u@RHz##qUXL>tM0N=uz{wlfrf5)?b#;Jh`}6`@j`0z
z2RVJ8gxj)_CXKeY#*Zj70+V@@qBTkT^DklnaHNOvJa6ZV406}&r+ar&6$(C6{r|E5
z6Tj{MMl7YF(dAUokn?IkLbi6L(a%pX$F=#c(2>d9Z89q#s;d=v<QdU5<Tod!6CRbh
zb^mSMLWEC3=7kMWEB1@r#wSO-fM=dXw&m^zkLtGDuDg2Awt>6cZ;jW98*kGDU<<7I
z*XDrG7|hpum}ordqvX>zKG#G{y(WpT72RC$=tO?eB1m2$wMm~yOU2bQ>Wz5~uJWrd
z_xG&Us)6Z(d$p*?I@qhY8iVou`6r}c_elYIYxvJCZDOS%w3KH?k5c6%#nlKB(C8Vt
zr2XXae=JAqm*v>T@)2SfR?M?z%27mD&huwQ?OPkILl!mtK5*`gM<8~LQOLZbG0uO*
zN93}SF5|_<;gFy=iw|=5-&H%NdlB=w+v#bQ`E;OOP?o_XMEs$OU3<G10xmje{Q^;5
zKbBI*3Z#AMJE+f36g;`bLE1?VbEYP6He?1xV0#+MW?^@Zz}~?O*y{+trN>j(AN#VW
z$%GB@Z!8kA`kd7e4U(sOgP`(ZzAF02YF&-N&;4MC+RNxcxhPei?9G`xYxYfs&jX>)
z77|W}kL8`S8m~&V?2r;Y4-9tdpTWxh9_$l7LImk@Ua5#69h@Mg6q%E<oW|Szh|ccO
z!V&?u&I<bKJ4a&hRsgcfhy?~n?C)Lme^r>7w~|v%u9kSJ#_U8`<(tPChmh!b5su?K
z4@e^HCw+|`B?t*yhb^g3(?KqfQi<Da3p4vi(7=Bvb@(?LU!YSaV;xX3gSWBR)YC%;
z2|~adtt&=@q+og+Wi<Nd#Dz6a?<ME!{BGXAoMN{u>K7Rt+iskS$E7}{pa$rJ0!=w<
zXfQsE)k*|mP_6Q6cLHvXCq7CweeZ`Y{A_UU<~UZjE{tWmNurnbDdyEnQcC4C#IgIy
zlmEbR<To6DYb_T0)6<inWXX|+s0cP<2yjmDnkAg`0V=}&ReOU~ru|Jhw<L$SrfQ`2
zld2kEJ)BR%L_4<^N#2g$u(JLUE;%c#AVeJ*g;^BZgD9uk4sFAse@v1Q8Txa+bF)H}
z5XEH_9?QFMXI$gIdH?Ab?~~rLxSI}&!1MC>%44+_fsN1(;AsJTe5XzVPh;czYuBzY
z;LVd*K0#n}SZHhq&^7$y4{hMh)xTl^aUhnT|KEdt1F<pkUWD&nUc?$>A#{f$KC*6T
zcWm-txX1zc33~Z*R@sT2L*oM4HyyR~q~mhTL?+$8r#;x*-V@4O=50BFmN)x&Yyz@P
zq-K6KW^3rZd(;Yq*HCH`w7fCt$6&hRd0d2uR<>e!{_unUY2;%sdm-;!Gq-c$b$KBr
zB@Xduv$G$1>_Xw;>3KhJ>fg4^9#A?IXq_~}(TBqJg+9Wv9~kRHPriOIm(46pN_=eb
zVWlJUL*d)=sC0t5gjY;>w_;F5oh@ov(~#+0{SAq`#cFvrkOtx@Vcg;9L?4UD!lS<O
z#X}E7s>-|W%$>JP%3p5%Gc=}Q{_Nqg9W@1gnrQL7OPa`Wh$ga`G~W4n@;(zKrHXS^
zQOR}eGM|+5x^m!sr}@(gkSz+7e3M%leUWX@*^B#&InihX;!33mfICE878HXxZVIXp
zI;%*DDkYl$?asu7al8i4sSVyR&0BA&r^tv!Sz(Q*XB_q&zc6T9F!F%>_CrsE33KAU
z=g%rntx*P8ZdX`r@|(-t&1gbQxVS$5YuL}RqQm-cdS8x26DZ6zT>G*o|Lg9s`mr0O
zTo))%VAG1K#D5H_Gy#XK)r;!$_bmHv`Rz3oeMc=cMBg?*1t<q(S@<W{K+3*<l!B~o
zpV=nIZY9J1Px#BiUi%L#3Kv0mJ$3ruSc2=)>u&WEdSC?rO!|l>x-FS$%oO|KGq^6?
z<MSZ7a&0r9L?*Ru<Q%#?y_t0ly!r&XtXOu`M_y*+fub_D>kjjLoCGmgWHwjlg?+0<
zD6fI(ruLLiusj@%A*UT3#cP{0%Wp;O(B<Qkx@3Iyij}x{-_Qs!AY>JWioEmz?-MWd
zjw#_7A-%_ly-Xc|g*PKUz(;-hjFR93zP)D=AI3x%iu&Kt&F$eLsba6;TkErt`1^E+
zOC!1LJaYnkE3$v<bK}qH<ulFELr-7dWtd<U%u@xZMQcSL4c=T%2#N5w_fzwdj_)XC
zE+5%|tA0yX9ZKsaDE6N#G*iZRb|)*tN=1C+4>LZA)J$#94A+{rM5h0t6dF@-`qNJD
z!Np5noZc&NjMJ#Zqp2O7Ih2&68cbMgr%8TaepK2rd(!qea^F$=LgZ1q@R3AQI=!mH
zm3*!rPBj%XUC^$ZRMSAV0u$*6HrpB-S(`kc<-uO`sqUSh8Ga=ek4OdK27XehJ$3t{
z<;AAmb9_kBM+eW*x^1Mu%=NT)hx9fwB5aE9dL{bpbu5y>j9OOGxr+?|A(mZWbu<Ku
zd*t*E$$Q;P=2iQ7H5?jlq;u?&;a)<{#oD#!%PG@EW!z1YjS1Z3u77f<g?Fz7-CR8F
z(z6gZFDE(@6#@_I-S@h;exsaSa7JW6Sm%u8jI(sS=R*B}1TI}m9>bM6;dB%dSQ3p)
z4y>BSPCXKnG4?T(Jg-=L&Jr!tA;B)l%0*uX8{5vaE~8u<gjXukU@^|yu=V#}38sx#
zq*FpW%$xV1Xu+bOgw{i+aw3>6mv{Hw2Q{fSFf#N5^}-H;OKx0uTvA}a^r;j_cNd;n
zBAbc0DF~<8y;^AH)PGHv+C8=CMe-r-RyE0EHIx>^jjnkm`tQZt79U$UzgH?+^EgY|
zVaky{0o;pNc%yP^B>(unMLxTwP1>#I>ut*ky(S6_@Ig+u4(8Yi4bS1R&Dw039JC1A
z?G7=z;rH;yh1zRc=T+;*411AJ&PYsd!ayB25MB)`dww?bCkd0(vIW4R$eTKTGuO71
zMTVYw`DTbIR>?qGPyQ5c_c>tKdT8{4;((>V+=A;yQ&l?AWT~}kDqu4g!iZXfS^~Cx
z$h70TCKQ_7(I!-3N$fKhtJl-ioh4t{to-!#)?`+lRC;}vs3^#VOk1->8PQ(+MM|&y
zh0yy7#?{l%`z`utHNP~|rnT=}T7qY_E&8#LK6QSo(Ib>A8&pyK4Kqad&dBkLipvl<
z`=WlAh4#-GY*r3oCj^gT;d!eGG`cxb3cuja^Y#0vX9oi2#(1S(OX=?7$prF=C^f&}
zeAj0M&ikTCT&2A$R2nR*E8-xjcq8}*hIFL;q1T6W=h8B*fb0gJx*K$fK2ynf2j>^W
zI5=*^7du2l6lo^UlS4D>`fb}2UzPf1=v2NJTcm|N_e5*x<l5ky(9<)FPl);R4M~N>
zM*i?gk&~LqxlsPq5^hz<AKITD%P^m~k6gXZG(#_PW?7%G>w$Yx^Cn-7GE~#4ECc@6
zw&=^a%|xY!{oBqs*)Dn{QJ>>#lGTJ(a|!I@m^3b$S{#AYr@ZSgL08^dCFW+;vx*c_
zE|4s{M^-(-W?*bq)ZhaV8t{Oobp&1r;?Kcdxb`<ND+^x<q{=0OB12zC^d%OvF<`S2
zIqG~L1eHC3@dN@8^5_9+dp~we!R@k@lp-bR;Ep|NPh>MqrWeapI70<mcRkc?irSil
zze;)I`%Q;ieUD}-A1^P1kIF|gbxf~$4dh6$ALgZTjr$5jCQdW9GExAi=tTQoZIiIJ
zTj~|fL43L>;WHIahc^W}YyO(=rL1f**8#E^=B>=sTFd>XXa&FW^-O|Qam3@5$Tzq?
zO*7wyzLzRee~`JxuX_VkU}HIq^J-OGOH}~KlIc`p{k_;c*1RtVS4C9YDMHEq+Tihw
z8<$jQQmnkG3(+Kw2meM<7(NgJ64mgiyh}%BrCd@f&Z&PLH7b#;|GZCX@6LB9ksrVv
z-$IPHUecmzE=@u30Z%bEh&}goB)Xf(8cHzLRwq~$est1W%#1MkxKVYQobd|cSO5Du
znv;`>+8a{~{^B#?pmQg7s;^xWG!;JX9!5i1?FHEgHoJ!@y%?W8HvWrQvKXz-ui>w7
z_vj7-!#jG6Br4mQ?x=D2S7|Jxa_ZwUGrx@5X~N5!U;G!F+@x|L_*)~n66|j}G7?&=
z^X2iI@X3+<G$5X<GGC4Q_P(Qm{EQ|qf(1o#b@!@;R(Xc<QKw+9d&Tuukeg1NHN#YF
z$JQcS*`cfRAX(FC#vZpFT<$i8fSfhd6b{sk)^AmQzoL2W$B)>#>_gQ>O?MpE{BOqS
zYQ%jA1Zh#e;WBhWkaml-g`T&aV%Hvnt)LP%Pu1R~F+Qn{Bvsi4s?j6%JH3-f)Nz9>
zfuz+gATs;l7j5xdB>;&JXs?9b^aFx9jk01y9P3CQCf;>3hPtaq2;AIu&2nY6jH?r`
zw%p{G19}V4Ft-+j%H~h)s@GZA{%-;)iY-Rzg0F40m>tp6fz8coCSL;WmYhk2R9V^K
zH@;&6kv(~VH~nCs=oj5tey(e%8y7aCWBOY8o-K?vL`cW;)?;|(>2*AM%m##ie7Y6U
zx>X)xtKkuETlFb%L9^OiHkE>#5&FV)H_CaZou&}V)#LeCAMgkALy0?cZnS3H>YJg6
zw`JU?UaXcP86J=>`rWG#=28gt{IaT(uVf$wHg<v83!Ar??*4lv$Ii|=X#0jya&!VW
z*26<O`w*mikXy>OOHV(zu4eHG`tM}nV~%y;-oL3bN=rx;OGU)wL|_K2Gg7kZ|CG<(
zlmVR7)k)XD<FDH_-(YpF)yDUF6kEKtGJn4!a2^*LIZ##?QdgwRkX^;=d6Hz$xtJ<c
z{Z2f<U%HUD-WL{D_+|3>cZ)+*y?h=1)RRAPZk`$1z*nw;G)Hx7c;qe&^j~b~rNy-{
zbttIY3OSRl(Y(OE1C91Ioyh@_9v4SvX{lFC-HEKqoG%h#tAA1F{U3oxo8N|LvgOVL
z4c;pL#V;86=mK<3mAsciWO)L&OBB-Bkta4kRy)cNP>!6m+XvJ*PhRkm55X44Q63L@
z<G{k*r@+42=Lelz%wUTQuCy!R$f%b?<R<%ep$fatvwD?=$nQ%<?Tw*3h)d*!=%WXC
z+V;T5a#2n7wmMQ$=Y0b`!@F$*d(qwBj8DhUg<~BAm!Z!T+zNt1?`j;N2^t+)Sh1ym
z+tjQ|d)Agkg58n$$mnqKt`j{kH?x@-VF%3g20#Hyb+lkx$ad~eH;lc^1}3q8<rJTH
zuGZpka6^9d^(`O>wph9{C*A~x1*!_W8O#QYLO}_ch4q54m<TwqPxRz_m6sFqKhiwh
z%sn%05}4rB{p6E&m=Jidx(?+#328o~i4?zMPT(m)_mq|a|M|UncXbRR6z47<e-SE#
z1M(p${7yYbPgcudco3WFi?tEkYRJBvTtN!XAwp8N>NGh+_bt**u~TK;x5YOKv~oB4
zwLvBM)*zQ<pOo8Q{A;9dw81V-RxC{xqhiXZ;6T}EdSooIe}j**ph`A+5LEX4qL;hj
zw?;kpnawuH!2$-$*|puBW|R8IMw?>gQ)(~ip5}?=cH6Ca4{&c&buX|U;O<M<SR!RC
ziW%++5uog1M)BSq(dVz8X%ickj*sIkFIy)-ksSklXio5h!Imn*{ivZAdBl4rklqe+
zQPONU$#krg{1He|S&DlU*I?1}kITm-mV>2LO8)#j9??Ui9Yh4dk<GoH!<XL$R{&+4
zJU4v>zP>c=E5fJhNp+B$bt@xw*j2h8^iF_{)vdp)c86t%B{->^{yRaa>z;V!H8chf
zQ@4aKK8@;~N>SWS?DfPA8KPBrkq`6&*p4AHei|i+GhQX9mk~f>I%qLXtY5KprGi}j
zt7y){2W^$h^@bl%XTC|^Yv8&lH``7Yb$#6!_%x4PC_9QYSCAc|W;!_aJ~|7r$MhW-
z@m1SkEnqRxFT{WNdTT7ZYu38yIYeh(ke}(sY<a9pp&LsTw`$YZKW8;?6?ynl8y<^G
zS@7%~)+VfTV@64lyd|vOyes}w^q&B(KTus?JH3#)VcKGSJNRPN`4{I)%P=n}!#3c^
zGrDKMpnBd`1T$)5JfUR-BipT5ogj3l7J?^U*v%KKGX_{;`&j$WX-Z2TYS~3?5(6X@
zCV)>Uf?T1rl^p>5&GjzsVvhepD0gY8(os+M>-E_Kj_;+kmGms5>2%<adJ%@PP|CqQ
zR`hy~u9mNW#agG~b9K$*UFe@aUZEzIaX55%@1sLmh48J7rLeQ*f{#0;G}w#Xp8Ny!
z44Y`9?Ne}pQ!vG2@*)xSL8~Wa!8Lf@R&KoQ>eQZnTR&Mp9$ShEbl_)fFb2$tpYxN;
z#9ew-<^$8FwT^(xSO&(M50L1}sJ6Cd!~H|2p_q_>47@<zdK1gL1<^iu&y$$A0%U+E
zENz#|REkooP-?`82FK&mKRX8Ex+`o}fzL84)FxZ<Vx{Du)cM8xtaL|u@RAuv9*_n2
zPJXIN1(Hx-QFXCxTm3O^%qd}~5eKCp0wt=s{o}@kN49H9%k8s6t$h~NxdTqc78=?c
zACKv)zlpIirD~|Q64S4Nth}i0uHk1XlX`FTz!=lNqm|i>;mxv3IgW~eToVfgOZ*tx
z^j)sMgH9>#^sEjYonJ+yzASueX8sO&`2rUX)mdOy4wWT?<{g*%R;QMVRpx6H=`AaY
zRil%7>iAp-lsh(R-Kis24F}*-zV@F;^`&S#AbHbDI1LeN`uzFPD`2raaE&!&Ln(f7
zX}T5JCQ);e=FHq`B``gAL~}No4;`DUW#re@Vt8b&Y%XMLHQ^PYfJ_KzUqpx4p5Sea
z6pe!Q;sG(5=b+XDEN05t6?SiMjL2BVCtF7`{c#7jXVg4)Z^@y@Xu;(4LRtV_FzQbM
zKE6<c*uCyRh235sKsVT~!^=9?zjkS&tx^==((&JM>hIbz*E>GHaHO;Dt0yKhSK7~8
zYlsr|SCu;3*{!V~sZ)P<P_5<1l%jb{maZR1Mou+sy!fX4=yewdIj+=lX)&zAw$#?Z
zD;ImOq4!JRvHUBI!nZ%;F((qdK1_Wc(wRgY$x)ypWQLi?R8U=KZHFzA$pYERLSql)
zS`Z7q*zC(ik=Us4c}B#Q?Xny$X*~->@B~n@Idn0>d~$wj@&3#%rxJU>ZCCAvS$N+z
z?2GDjRglaLspO5%E>4vx)v&U+^^?uZ*raN6uxL=UjfQrP?`=bKO5b-;s@z@rrGbe;
z8c5~qfzZO;vi(*CbKD5mo~(L~LIEt`QZ=p8*0!G85Iz!f@ddeZ{@M9`J0!mb`1?l=
z_+q&R3#)FM?7zYk<up!v2}oM2ze&A4bNxR;g$DUDOF{As>Qv9NyV|Br)ty6t`tpU=
z`^vsr^+KrQA?aYz)Ru2Pgnr@Ps0SK9HydrBk+gIYFe=xLva+(K-%gKGcI<s(j_bRm
zWO^~B^~G9i#kI_u0mEd^L+Aj;!|f4u+iBBo08)j*QSV!B3taBV-^4ljy4g_j=JbtU
zV#V<1;$fzI<tuIiBNZv6kJji`pz1o@Pq^U$WNu=exUgYBRv}XfJ{Q$btH<b4Rio&1
z){WAk_kxl!>gsrJKvD?q!26nImR>dj8~;`{=C0Nuj}Eauk`ZE*ZkjbYKUGprLmeNP
zS5)U`r*w44F5IE4@1weoW-g2~y8R2%KVA~Ah5TOvMI8IG-DJUTG5KD$Fj&N!aaM6~
z8+)$H^fvaVBvM1Kh&%}(U~9Pv-#Imhv!s&x1hSU^(Ny*I%8CuhN^jGjLG!5S?q_)r
z22ir8dhZ`~W)m0ZV>puf@B?z2%jQpg;3HI1=xr@MOvi>@AhAg2@_HPMl8Wlbe`7ck
zq4uTK?rK!s{*(2Q+5?)YdcfDr7W+JtcMHok$g_V2qm0i2iwn-Lb?H}>{Ao?0NR?uz
zdSHhKeB{@6nNeF9f!&JaXw3EELz+tk#N~rpuHOJ-x=WZE4(;6cd2G*}*NCYqhVU7b
z9W6X+bbyzEJepHI8j`Pt>Lym11F?2G;SoYXr_nAruB5HW_alIqt(IShSlMYz&so$&
zAv<kB6dlm`P-cfyltH|?TIO-?Ryz!tm8;V92kuExlQ|^Fq=r_2G$pM?B*~(=E}-~1
z6f@L_*f}lGS^G>v83(A&We$M}epjN&4G*d(w2e@Qm-moHjVsJBTyYYvBZyL&ue@PD
zu@QS~#yR37Hfh`4t-3`yPLcE`6(Von-wi+k=6qsWs2x;!`3=9ascw&wfttM^Q#iG0
z>peMjzq}5PPAW{lc6YHgjk&h}wry9i78K+{><rONPA3*8Bx4QSt$`A>+LYl^&tudZ
zaK@rO?p7ovj7K#Nz)ZTeY|`<1I^T|;iExia1Nhi4u3)(He|NDR=WmTn9r$b8(BI@y
zW8^B@npUqpSEvc?^G=o(Ju_Nx*vZK<v53h`tgfDtfgRqv5~{p4VZ%Z96Vt0Y>M>tN
zb2l9=rjNKNhLXJu_f!loKD^=t)Q%sIosfoR=XjEEb*}@IS2G|$9+#2Qovyu<lbaFT
z(IJY=z7p7SP52i`5h>FX5wn{tgX)*j8WlmIOJkQJXs!0%er2lsx38=x&uO9q3~6E~
zn~wNJTPC8J%tye*Ov4U0FbO~n_R*4>;D;L^;54`mjW>lST@)pMC>}WITsOWuZUVrh
z{RIr{M#}NrRw7!myK-bm#k^pv8d5r8E*$23klq+h`r$+TWo6)wnfq_qlAo_MY%389
ztT+?owN(TTC|$|kvwJpjFI9Vb+24Zuyt4H&PtDEr3$RQqVKP%Mf7piRmmG1=Z&CyT
z$PrYKZ%4GE-?JvyvainjMg_7Zj*RW-m23E<hq=0Xu0IF}1tacD84!MHE5JIidP*1U
zmN>q>4QN)4(~>(A&?Sbxd?bGyRqrDTUNDPfX})t-8=6q4Q7Zk=oXOf&BX)iS)Cj>@
zfUo@Atz>Lsmc6TpQds(Hb`xT{giz|-r>wIlMmqHCd_15MgvcgSBK_?N-l#Q`L6V1c
zGd+DB8+f+E6sQv8%R57)jMMdJa}P1n?_9|IHf{rDVGY+zyCN&EXD2<Ek11bwW}a3Y
z61Bc~T&(oJ<Os{eGG^7&-MA;i%s11Hkv6^@E%{J0S#2YigtlHlE%T~b#Ff+G3jxlW
zv^Sq^ppKK2J%h#-^=|mbm(5VH0IM_Yh`N5=k25I5@}3;XdfZK~C>g?kDH4?24nUD8
z3AE&FnFTgv)zcilBo8yE!7+_)>RPTQR{;lr-7Qu4t%3U-q!I8UT1hD?KUf{PAzcY-
zP6mFaQ{T^h1Xb*(VNN@%cp)EV<o8zzmE4_gAekbYm)8b}OO78$*GALkHM%{!Tb@!c
zb@bRyTG*lzXbFOdF#qVc!pF=glmmT0Dabt4<)g;^2-_EWKWCIVZ5DI!F9XKTQ=wlo
zo&d=DuBXmE7P=EQ9O_@PaZjBUf(cOy`x44ZTk97Z5Gi~}6B;O7p83Ttj5nipqVP2V
zV78R}tn+~w-HrdK5_{Uru+8INlUjAv36V)pUjYoKS5IZa4%1?Npb0X=uYKSIgwp2d
zEHYCg9cxgcy>03_5!P<wK_6-9aF@096vdqCIrjIy1P~N?@rWppwS5>Kcyq5%Md#_t
zF9!{cxeMqJyE=c=PGpzbbUAZp;n*?amCbe6_7b#br6YDkbZ>rozW7HcSN0-fo`vwZ
zC9}Ydn0qOhesqXoBVU)ZqVwotPgZL^1=p+_!?F95_O9<GnHm}cOvkoA#>H_E)x*rr
zGin7{!I1+DRj;1$n;N9CzAEa$76j?|K>BW|Wb=q|MfrFLWZ<V;415n2xRO!l2&k`!
z?4<{jtv@@bfYhi1SCyajvZAr~g*F^t`C0x#0iLk;{YaYih~c);BudSEn9ixCXuZKg
zODOZJMyHpkl?El^|F1X!CU8*5w#^=qn1j;wk?VoQ5UjZ@DA_Ajx&dK}%4}i2tt|%H
zKtLD9OZfV$BWVh&48jK2UD&H4KbnUtcUF`Q7wP^Rf%Q}oh|Ai@A@Hb&<a(WB)`z4X
z#x)6KR3jV;Wefm)f2a57ZKd6i(k%ld=mEr}O1V383MD5j@4f}J3!2-!JfNhXP6M3=
z^oZyyeuR}@8ilW2`Q1d^3-`7^O@`B2Zz#IN0QMplxUE58DvJOeG?HwPb(j7DkS8vH
z`rr|ow#5t1FMkHE;!Y&|iJelGbx|DRX0>H)rxiiJj`~BaFeyOgKIt!~7%Wg#)RIyZ
zlaGGeBLQ@35IDyt$gU<|zIOHdB(;ZGZK1V0|G$0F<6i{M;eh-&pf8C}Z2(N*0qwyZ
zy<>_oTq5w|-sFFpcvc);TcA4TE2awk+g1Iyz5H*V{oe%#|E|3F-?0Q`k+;L@7Tqi7
Up2j%f!1;^~&9A=KzxVL}0Mn+D*#H0l

literal 82970
zcmeFXWl&sC^es9u2oNARga8Q|oZ!I|+=B<5Bv@d8!3Q4*!7aE$a0?LJ-GT@A!CeL)
zWPo@0-FrX3FYmpoSM~2IYEBJj&govgd#}}NchE-_SzPQF*dP!HS6)s^9RzwJ0Rla0
zefkji#{IEWIPigGE2rxK0#OCr|2>FUKQaY@UV-GL-fOy~>@C0@HP@Riu7_WJL~DI4
z$bVodhrwRfaxqJvy2WzDEAd@mi`}LEc_i{{aS*csk-;yrtUS@!zwtCWQ58#{%Q<!*
zR~kUJ)a@19Bd9-+4f1AF&pPlCCrS_p28-+c{zYuDaa*?8la|<IevYUx=N4`Rv-bP(
z3?r@+&5?=b@U+dD;Z^L%5AVAR0+r7NW(@sz1(FK~QU7;^`N|vf{-X84)1?RZ7q*~>
zF880Hm)`$#%m3i=KfwSjh5uP3_X**DGQ&Lz{}T-Vzo!ZBVxd9<QcWil7JY^=PYbb_
ztWRw5&D~KZd6n5fD=aLdJF>AB;fxf?xv{j5%4j*(6304Ep=b~v{YMr_&0wB1v$MPV
z?KcavnkT-Zf<lzn;&^f)|8L8^EyW&Ld@rWr^mDd5^`7(}hZcX!S+QCVKY;K*e^NWh
zFW;A$7tGrfAJ{y(OiG5Z&U5I<$435XPxK$WR7eh=O76I`G1{+;deMF|H}y$<gl)xQ
zT05Es72dyJl5c%}=@F^pDF$}1_M6j+dNaAdo6mw}Q#kvluDX3+rDKY>#Z2E<HoNZY
zw5Q~iP@#gs3#Qi|FXlTo%p=kTU*Qn6J|gG8dZB1=5Ik!JKF-$d-M*Y!g_PJbg|fV~
ztWD$8FIa^UEEYAS5<PvkeYp?usGMY?MVNnWM>Tg7!mKmdE|XYKuZn~V=Sk{mdZrAP
zt8es^z$c+PQXW+ic<E0+)^S7`k#;Qq_c}%3b#nNszT%%hY1B~#oYG7*4Zne6Qx~vS
z3$TXJ|AkkNiuQZ8v^2HtVlkaspxWQ9G;Y~-UcQ(mJb)M!cOt1H?Ab3Yr-T`^DcVmc
z@fPQdy<P|x(vCFr%pF8{++;RG2T5K;8p~=)JGhMbJHt&nI_Gk78w)%I{SM#mGf_h&
z8^BJa4@X+uv0iArY$Fi2YmE&AB+cgrG#Y)Jlw0C0PWbX!yuJ(hWX-h}1L#nsa-X8~
zSnp&P5APc{9dWb!3+?VoE17N{m$@55<@L)*nZ*Bo_jii@z{1Z~KRB?asi+`VM7;cq
z&aZ`{npFRP*$*&!wBk#x4*wor-1bzbKdw)*>^spifB&JyefgoXY}Qk6R;mXgpjXz%
z5Y6{~(e>a+AuY5RQw!SX<6~qk<}%N3<0eA-?y$6oPGp*Y?7H3~mhW_v(o!C>H#@NQ
zP1<H1F#WtLhlOk3>loHN_}zpg`3tn6a#Ef|Bp4C%>+KVex+Dl6B$v0Oq)ppiyhp;o
z;zfofdl>HaTx_*nbRB{Db#<?K70P_~5nEHEHfFtewNPEV3u)I7Hp4}g$5iRS1i#ag
zB<E!$4b8h+SPjPf%n3+<85XY~>LwDm?;*H;4YD3p2MKS}W?7}X@ScPj88Lfl<zB4E
z6LOM`PmPdQ`5>Z{drwN!vBIn@P3RAzO&!0RIJJB}Ew+jxX$&R(71!JxUK^cg#p7$5
zd~jll?o;JBiluRr&~f<k_5?FT%>EDEyO%aHAEYEj%W^qqv-{g93}Xf^E~`$Io`_5R
z8D9w)4q2OW)J+|Jh32X-Pts?SccXJLCHE{$J?w5C_n&+cdV@_b>R5{<W&G_&HToUC
zt0;A8O~wtyJ_gzPDmmKjkB6)NWjWI&c6QE>2MM1&qL@K)9O$j|0{OkKmvdSt=@y4B
za}(}5qTi^ZIbyK(t^AD6crTn#1hWzXinBDly-dLWmDj~DRg8l>TV>KPS|-LwhW?BU
zYNm7TMDNlpYCe#mX`d^B^EcI393;M(<4xm?*733rD)l(3#ypKk7=?Y>ZB^TRL!d}z
zJsP6Bd1yCBA=FZxUXb7TiNkGw_*?!GZaS4>;xnXZ@6cI=30l#5$z1scmn)t~gQoQ#
zUYMb<HYZdOd~O2v;f>(}5pDTk{&XVbaHglV_;mCQ7K<2FYSx2k$%4PLSqu)woDyv*
z^`*&yjpZ{_Ey?6F!+;qqoKiMzs|V2Wvw4~&bG{>A3<6JyCl6NHgzdA%S`%uYCtkAN
z6;Ci=k&-HYnJxRfI$OAmi0pqg@@dDa?i-Q(SR!`(tf5A6F~#$3rtlq0fqxIuZ7wyC
z>bGC)NF{l|J0IaKx1Yb;zTXv9d(O&D(?BIXt+uXEN&2g_?!&G*ix$7v%-F|v&;a=k
z>0?lb;*RKHVfEdXQ&bFt8!go%J6So~J^GuU866g-#q@0qf5vBm+`y$hbO%II>~BpN
z@6<$T)r8Mv&mJ>w$prO!Dyb?Zxi6gw{fSB=TYW-4Wxf`aGMI2MIvsA$YFd=+x_e#e
zwa)bUsxN|>6|!I+8Ih?!*?UdUwI&VG$M+b$$yrx=VzpHnnxb=~^68O2Q*U+GmxrWc
zsq36hE8sUB#<-Q-QEma{S94@q+w|x}g(gg~+rZxDJ*;pG7}g^$Ul6r-@mCwt(7=-A
z=t=YymOAzlpN(Xum|{E1>Adg;%dx_O{;v1Dz)O55m*<v|RY+aI0aSW|#VcN3^)R$~
zYHC`&syy16dLX9QON<T4<HsugKvAa|kz=j-J%ur3Nu%}~4{2-OrjqWJp7e+)1mh&@
z%t!g|*Dg(4drt*AN5zE;Cy%L%^T+uJA1dcM$O>yo*=q*3N^MpH!1(i1QE#iWxbu(w
zhe|3B!X|#QjU~mu;m)Wyuk0v9X=TQ_jS9t_n*~X2h))_kR2VOkkjBXOXCfeiHcSS~
z?#wJ#1mQl(*HyZV{Gc8iRaLIcHsOhP8C%M-k}&c2nLO{htH}q+!OMY{&LgvKxwKto
zrXWus+@vo;j6X-64&dNt*6=H)1#wp8r%eWme>$eP9AmckgQPPqsG493x9sWax3|Uu
z8%_ylti|=9(z^C_mV!ddJ-ILH=Dtx2=HC|88uI+&u+$eWVg#Nb7ot^2tS_9I(P-1}
zR{qHL55oxoQz@g13VgyIr1Ev3vxo3OzUuoZo;**~(($?&t(GA90ofO^CtO)2GB>E)
z7Sq^BFF$~=*~#jO4XCQ8Qxq6z<~EPhVy!4Dj+nCOMr78vJ8hP$p5n>}HG!So70JCR
z9v^~6J1*op61-v$PX%ddS0FYe#rd`klDiAp&GoTnX3_I+^TeQPV4%s$8XIeA$(vYH
zXU+K|0p2vI|KN@*UFE+~T)yAToA}rKPyM6SCkemqxJ!Dw^kx`)3%fkcR%4;>T^{=(
zHX~A+YYX<ucQYqq(|AY{nFeE;!&#h8OD48yEbO@0=TmZ{4k=vdjPcl>?Q)&uXm54K
z7s$kG`)B8q1O1+*S2sn)iz+ibd-d)<c{8@;D!LO;rkB=L146;RZtqjB(85*bWT11y
z!a;EG?CeIThR)pU^EA#8mwDoYy}>fBpo)oyN{-%|;-$r?F}v%Rq&m$kUaBfEE+=h+
z%B%7Xr2_Lk)HhkA8lhopq(4)U!%|*EET@ypZ~rS69NG9Q!z=ml$nZr_KzRj_V&8-C
zU*W7zIa&+~QEfm<l>3E*`L_Y_Vpq37QZ*<Bo?Ug4{pi$6iG??+?ahq;SWX}Sd|B9Y
z7dGPY96{iJt8`XCMt8z{(QujtbMPhgw<&(7c-k_ak+vu2K@r5ERYduMfcd?K;h|?3
z14ElE+rZ1gw^nRlK#b2@AN|$7T<23Z^zkm|*6^KL4XVRbHjUkJ9Q{N)yL#l(Xatp%
zbZ=OMn&#fVlGM2B7JC5sJ;q*4>&p@rTBuY8Vh^{g(yZQ|$<ruB=bQc|68}K7-7@Jl
zAb`W6N9TW_#B7M{YY{~_!&g{&xZwuhIRm<0qba@|DN<2_^&&VrI=Yla6A*yFNFSb>
zH_$Je9cc8N5h11Z_hfk1`WToUT~6_q#@yV3BE>olZT1Q)YyQ<!b*J|-ae)UrJ3E$^
zmW2h(oWlZe9U_Wm3$xSQq3DbeZiitTU^<#WL^0~~MER3_{BN(%xAR%SnJXyz8sv_P
z+}SG+H_lmJqkZQT=GBF@ojgQr3CaW<eAs-JHT-u6-vYmh&G9JtQoTs3C%!-`UP#C4
zLm|bcB&O0Ti5M>~*Lf@#XccgTOk$h6mw1LtSoSFg0rA7JYdF14R+nrwJ(*2mo#ZC>
zNoric^J+w*cIiWwGo3)n6)Jh7;_G|xYE~8F)uINc#DaQoC9aeWCp)kh<IcA)Siw9-
zBRRnVnmH!J(nUm+GZPN!B|N72$s)Bz1{Vb=dPC&0r!2NM)AtBs$gG>EMi7^>XMxuE
zk*VcKj^*VeaIya8c#)H)UmhfMKoEL>J%w&kI$5`lyT_C39?!17H_D{A8DY_E(87tN
zun^*4#Ls!TpD*hi6son-cQAOY$9MH9k|zF!KODbojP!pzv7ZAZw1H8vRIl}-RXn;U
zIpG17v@R!P*4dc)ta4g4bUBRH<}Bz3gpL9*O}}PUYG{K`3F^64E^FZm&EIfh$W<;i
zPJB?#*3dw_o-zseKrBhmu|O}wFo{)xH~4K-X?WpZOB^+6%MI*^;6)xM*JLwefHL}8
zPh3HtKV9JUTyWdJ9j_2}Z^X@bKi(#AvtKBm^_BW<xD^G=cHfGj->Mu%hZ(viHE}{p
z@qjwrDf%+PYfsp+XXNCYG*Z1OwrB1i_3Rrl&J7hE!92I*%bVNt>C2`{>Zen0z7#zn
z7iO(>TTQ6z{%ZfV*lJ%KJXwl<{M+y{DZYAyjshX2C0D5Y8(jHTe<$^J`sEIZ|Lvu6
zf1>)P6qNPE^mkpEy}bYN9OBpA!XJ%MRkGo$c%c!M-`dJ*G_<v)(__ephUpa^vqS8f
z?PHbo{<JM76`n*~U^4D~#OiXvZh^w?DWhM^NBlx_el~L4WUZ8gP2Dy`Yl}->t4I<e
z==zcW0h$ft&_D6bmyjp<LO_qmGPG5!Sm%g`<0n|feL|lcYJXMSe~P%0PR>RH7@?Fg
z4v*@TIue8Xg3TzB(6bETFL7<Y(%>AqD}XJFn?Ai`vU3lC$nvJYeKe8X9XH7Vb$@vA
zS1k&h*ol;wefxu2VzRe%`*^oxDEptsg$Can0h6bbdxNDjaa&^jtJe4^moAZk1i`yr
zg|1a=R8J{gPQ&La?#Hlo-kX$J;47}H?2^E2b??{syxU$I7=tOF*!3IkI}6_`$ff4x
z8h$VL?XXxXLZ-%JWMj&4TUv)2>i)|jd?fS<Di`iG=9t_5B=enu5I0%2^tv)urs{sk
zJpVE#o00*IWp2wjLE$Coctn<d3>YzPN*{=Fp+vj&YXihbxc`20v<!93-~KJu5{mUm
zE*M};{=QO+9d!&k8O{OX7iIY;hk5qCFRJ`<CIZx>!DBhkAe#6An(K`Qunz_FmpZY*
zJ6fj0ZqkGUDyLqeK({hYv#ghZM3|v!V0<BO=y&!|bN{s)X2yrnrm9NKY70RyX({@(
znN4bI;BoBoFE+P0?tU_BSB>~`!-0Yt$0{a~7K?WpL9{NyW)#Dm5iRth)DblcP!o=8
z;_MeKA@`)vFXv%#bEqcF2HnAa{6P`3JLUH9QZ=FUIQL&f3X}8P<M{C6_!<I?BF#BP
za)}Qm60f+%T>+;>!emw!>i()&*@}WBX^h<h>gt9s-iXbY{IOj^X5<k*2=tSrJuB`^
z#|oBm_=r@Jw|>_D08TH3^(avq*aU%oGJF^&+2T~+<jTNg8?E_ZxY7}jgzvv~(LuxT
z%;W{I4+BY5KUH4cDl!y*DYPs+Idvt~Irhi;Y5n50P~iuh><U3wy^rm!&zC3wOWfOv
z(2W>z6hVwh6F#)pfm{xHtoafgrRztC;ZH1j2=sS`ejEpRXm{GyHj#MXIh^jMbBdGZ
z@5m7edy@IX=k@>Uli~N*jiu*mJ^lb$MND4#n;bS?`y77XrcTwGh$K`XCs%lu@xL8;
zK-J$HPX8ZT^D=l&7%9sK4M^%8HUPgcgv%<fFLQy?1JFN{Ms5ag0n46nD#_F*KrP|#
z_a`_5HXlr}LEcF-eKD_3@4E^T1l^+wG(3s>830gw1aR>E#S#e6PxtNr>07w$^Lao^
z*!JD1K2ANny`yVs`scQ)>@Cov4)JrPak-1W*>svM!2?*GRHtYIOP5J=l{gfO0jG9h
zJ>+hkx!4f|G7)cJ9phS@rBH>%h{F$=Rm)#Ct{7gd92G<~&7+MiHC}bx@33AsS0Q9~
zl42<F2<+<6x1!3boTtt9j2z3Me#-9XKHPx73ly(tlWj4l7hEPP^{6<t?2k(9z&Z+9
z;ND5uA`YOIwh&w3=9`E5LCEB|5u4t!B@jdCeREH=KcLnN)bLkJX@+;|c`G?rEU?z~
z;}&vH@r-$i$MafkKiW*()54qIy^Y%&U=`Pi^25JY_l(t-3Wrs8F6;u6wXj#BBsp|3
zIg~$V{Dx8dq;EJGEro3T`Pv)v=L2&ii|yx;$D7G?##2mgUh`=5o<!^VtixZjSgz*@
zHy#e(62NZ~Uy2_#@GwSSdX22Xo;<A33P|0$v^!DMvWf4%TjAXLfe8`}1O^Z_iR#ls
ze()V>NO4`?<fN`y?*RSr2T~D6iW{o-@xuyam}lXT1GFyiZ;(b?Ll94k@Di*pTZA!V
zbGawC-r)97IiSpBnKE@c;F9sSwyvUr=aR<@m<EDmRt<u8C&ApW7T51_xY;wIc#4;n
zZm6}6_gEdx1^WHpVAAsNs71cL`YLvIU>8}dj~5vfeIm7X(U3PlKh`kv0Mr^}RiZ@l
z0JT?m6`zEwbg-k}@TV7vJx~JQq1Kqe_{?OMfywp5BS47$)xq_FnhoVpiqLBx@9W*@
zRYH~9dg14SUMu4iM@qa2djkbTwA^RA(UN2Tu5bF-PAg~>`SCeHprJ3t+$02v7poh-
z;`}Z@tDM{o9>6C0RbAHx3f8tCWMcve!G9o8NAJAWK)qS8xac3+rWh4jFX{z%A-xh+
zc8d6>y7CC*J!X>4eOByQPxstb{G9VQCFZlY0BuTk)|^K&0>R+5_oc&l-q`<!LB)B;
zu%&<fSb%T;NLG1Dc#fU62aJCAS_IU3G^&#*L$$Uo$}y$c4ts?IEI4v(AXM{&A3lIx
zo(wV`VB}hcVk#vK7@nz*J2t8EO%3C5;fUV<QZLaz#kH&GSsIfEX8D5$BHl{EC&4w9
zHp6y_SJVB27AaU>$5RVF60e?nF><w^92y@;yy7+l08oj}=sN`h5q>1-yXmvnM(+&b
z?yH&9uj!$AT1(^puDRj!%9@DX<qa~8FvxXxyumA8@t9GSH&Th<Ok6D-vInGwJ#$%8
z%fNElR7JFML=1nyqHUeQZLX|B@<X4Q;R+7cpYKlr{hq+nT*b3<e(~sFW|(H2dQaeT
zS3{b&zFUi@k5YyIDDApZ!|&j;Quyn~pjSB4+KCTsX#of+R`eUVY9EH(ergFq&2Qp8
z4(}05JGkx&>6!3d4r53be5cBr?u4S+c^+ACWW4(T^w)-8J6A>tZRcR#7+*N=Bhd<=
zWu6!5wEbWjuni>`f8@1}kniT*zcDwsziQJ0sh2+LVB3ufMgh?4Xtr9jB_987fT*Uz
z_F3CZ?7RO%!}J^v1LXbM+`$yP)yD+`SR)r+M=M8%C-z5BOtYx~y+fwk3ve17wmjyJ
zcHg0%A#z(Jc{&iD_GRi*d62k`*R3IPj0(s#PVTfle4<|f=p~2G`-r_y{yoBfb>k5L
z1egqw>Z!=t@rhQ&!ZO)>MUhcBO@=vF;%31{e0pipzBA^-HWL86Jg0Ue5NPx@RV*_o
z&+f?wfhxHrAk`zvjC($AJ_LEQm49w~NZ`5}Ch#mbkNXMel|PWzssCRt2H!KzOXIfh
zPyS<-l(0Txkhdl<w0oxTe)R7VbR6#7^mbeqsHumbHF_7!1TuiGNeo(<D&YU$GL3hv
z{2m4#(!;6ee8_A4&R&s>-Q}B+TKLXQD&NH1HPPO$$`Wf=wRXC_`Pzez=J1xG2ZTb6
zW#!Ep^ste*Zr7x_H&{^{ZEZuRXTg6v(cd$M{*w5N4sl_Nbi6rymepGEn2Gj(UGaoI
z9R9OxxRmR@gy}q~ITervBiIgU$I$*iX91A&MqtB=qd(TV_b+gBf8&Nv^~(9~Q2=am
zTvPkLO<IYFJa37=-QRV#Y<%|L_~{b&d}yZYY}{MqY%CU{`(wq9d^#wnCSd2VN$Ba1
z`bvilzUslT+3H+3_m(w|*{J;8>%;CV6@p$vP1IUr=F3Q*4&kW@C=&U*G?92)UA(cZ
z{x(%wfA)og6b2sjcL^eYBpuOmGtqJ4Z_O!u|IVepuO*nbhedPO()MJ2nJ|K0X1&|B
zOap@LQ--}C_<pw`Y2(z>)CyHu8d3_oFC>jO9D+CaCS!x;?lKnfr3hmu{W338GS{7Q
zQiZ?P&p9|aNDJ*+za+nZHmLPEApgnOp%4fp#Ist&e00B;pO>_`zZHpp79v-`RKM7`
zl_6cX^VEnQHYzo7O~kZ*o-RgI)w_?AW+3(Szn~!J-%IfGS~?Xbq|}hra68CxeBXX(
zxHe!>d?7k6^$UA6YxRsL?|L;NjVI#ye`g%HtUe|B8L?kH^=Mxb5#bP<d9;1S{s4G(
z@M(*Kn?$fZy*c9hXx|~v(W3x?Nm$%uRTqt@IU+g)PYbFeo(64QfGrkZ)^jI*5oy}S
zm4{2`;NO*IoaU)eUG2kPPVb`bwpHQSP1>LK68VvdJ^lT8Yq;-k19&}U_Y;CiBatE#
zx5sqR6|cmznQs2&sfu{oRIe|_SoJp=xrwUuwn&a87b%ha@2B1Fw~p9=Rkx~aV}*o%
zPNWOqZiCTN4Tbuvg_@gd>8IH>JU6z*O2wFmZR@jAA9#kg8J~#>-u?7E=_O%bRIhPZ
zsPEgqp^ehl%M)Nvt9p*Wa9()+)2lW|+-WQ4?wj7+Ro(@!=t6VaL2w+2dTsWyc|V+-
z@^3D)_)O&O_k!^a)45Fs(d__@tIED=e8sCh1?Vq@n;~>w+MR{LoNdzaYUQb!ss63J
z>eX@#f>`I(^FNi#twTvp0aDpuT_k&r<4ANr-}O?g1Q@P+zU8S6MNTQaNNGd-UD+?|
zZ^Wd0@fFNfgNFtny-7EOlB<Yy64vmy88IqcORWxkpG{lamI`hv#!T*0A4oKQ?7oB}
zaDig)S4~Rl7rtL<4%$9<Ko+1q?xvL4mBrM`9TFnw@ZNryr!Zkwsj!Yce7`nRw3f_R
zHTs8JHwPeA|24>*dd(Z1E8&`+;t38y3bFLPZI~pXs99;zH&?@gz|KJp@lfRfPTRgS
zp=adm`&;^9?O%~ehPQNNk2XKRW!>hc*p7%<pfG`9@N8tsOW~LCFn_fr3K<`BEEOsL
zL{{6v@fbTlbMhx?Upg9EtrI#q8viBBg#P9!_Aq09?QwVRq@(gQ!fLF>RQ^J{V{Vpm
z8uq8aP5YKuE121JeImKx{H&T&`xd^t!_LH=A`b{f8Z8!Y)+DNme~PwI?{MA5`XC|6
zR$^x2HLB&)VX99fGOA!Vg*NM8#AJxFsp}Q<Ngt&fB{onfDl+=j1EkJxngyT|tK5ed
zKB;`MK<l0|72ew==Am1Rb@qm-^f;|C8Rm0Pd~kV|abrE$Cr*mwJ|s6X8th|8YiGcP
zuq+hnTvrd+hEc8-F0eA8_$P<%uU`ms^V!JAYnHYLg|jOvnuTLE3Fn$@jCS8()l-G$
zBJ-*KyTw5xU2gGKS&K)DB7b4rZuH-fA&<GH^~_xSVFzko$2y9>X=ETTZwufuAC_1a
zlG^q}?4?+0`|Z;%nZq_Ggt7ZyUprLOqQI<O+R2T(gY;ER%L`BMC6V)PR2IX_cBBiF
zUlVA<X%A6|?hrPQ%fRj9hwaZ9XoxC8t`e&Yw;dq*^^$jUo;qInC(CQOQFc#AimI<P
zqpvR9swamyZ3oBQ(8E@41OzjN!X2V;X$MvMN6m30BxB~9`w=sjh{D=bMOD~IVcmh9
zU6Ai>V}o<3d$VQq$E)s(28x@3_;H)jy7y)3j#utH7I&k64daKvy#tSHY$oyYv>X!`
zg093!K<cuwFB}<k3R+2q=AU0>29T}?%b9x)c6R`_C6L7-JHpbC48fB}i?L6QJiUQL
z?c1Qr?iFwQv{We>-=r^SRW=sR=KAVP*H*upKg4D76l2KnS<0?8xB`+>J{+B_kXw2f
zB)1&pKZ*D!CDwF1$v{o8J)=k9@aPMFQ>MAJwPKC=k^et~_f7kdU}>rB2G^!~ZLyJy
z>3K7P$gdMaoLBk+E-{@+Cs=1z#nuGO2BTi|DPBQQ&Cc~I8#&W+v%C1Jx|Ow`q&(PJ
z=d0X{iBk)ja(qf<>zpVx+AESkzruj2(~|l|n#a7>XLd|+k+S6Bbd!2E0ay%ILtc^d
zqxBb6i&3~9_;|ggYPgW$M3l+tgTmb!R7ha=0sB*a2~grVOw-~A2ijj)Ucs0Yxl^b;
zTX)juYlzMCf<|MfpJD%+e@cq_=|Df{+`N;Cul=Kpr1l=GtF0^nHk?6{7#$<ef2H%b
zr+f2MB|lZ18)xZgSFA<zXY1DD*>^1sX=!Qo!Bcy0-^?#9*3@|@2ztKZ89BjsLhB!H
z{969omRsKVIj=9K@!0>PncjvaO70u6A-20B<znIYXEX$$m)}|V0$KQ&le*qoC8l?l
zd~=<Ps~?@WeU*}|U!QNInAM%Rqk!3{`%b#QW}KZR?D1?}PDpivZiVRb(59&ClOKoX
zS8lOg_>m8o<DC!fxCgt9i&<oi|9#GOUNoR?X^SzPn<Nf#!=|a&rVFN|ju3V8vW*Ns
z$g)fHEaE)KDIZkO@!s$aLB!gHOseRf4}1;k3q|Is)&vH+Oj;Eu5=QGC7uB$wkVwP8
zKh8_l9Fw*67n1o9+7lmS)!;xl;3AeXWu2)<gw{=(&fs^pye&)=o%k+sOHw8Y%1=~c
zU&LiAXkm-^DR5C1YWkLE>Y|mv$R0T5j*@}AKMHyw$4a?Q%noJKOXJlYIj*k$QDFa{
z+L*s<T$etHqG|0@I}67Wlsu}e#e!X*A85|ro^=y#Y?1{!hMZE1Gp}nX<>@ddywG7#
zL<oq`ik-1)%)^2%fDDDLV5EQiua9ZtNAfb!$dKw~3d3kQUsNJY^;TX=iZ)_Sdedx&
zH<CIsP5fFq6TeW+(SBuEEX2LS(8z11JeRvBG<l9q0o7lALHP>g?OC$Kau%bMmZHFr
zz^+wTqt$TpVNGiBHvDW?hZhwX$XmKtS<Y4>P1kX7v#q~r^rD(Inl9Q(PX^CB4Q-)N
zV>z6D!@sAT)r@K>9-ytL`hb-GbJ-Uo-bU&P%uFbrZps9)$0Ua!G)$PguH=@hnqC;+
zEEh?YLtJG;B_-AA8F2jU3-V~%e1JE&gmYRD@&#(az3bDJ`0hDKkU*<YS!<_(mNxIV
z&i5H`&c=E?J7l(|zX+XvRq(iV`{|MoZ-26o@@0T?SS;9+%bC~dkeQE(^*-KpI##|;
zV5(6|v)YD@>Gql>={H!2ASv~7GA8U^(?%Wz<W4u#RK6=H3;lUX;r6WbAWNynVX8e|
zrEAj!YP=sxI6*C>!oq_eVHZZ3C7?cXXekf+6~LnPKGyR2;0k#-@NP%e^eiQwF~e)9
zMe4AJe8YLiL}bg>7c;Z5WL{Hk<&HKE)2kUi#YVrb41xM&oxzEOfb)Ftbw=&KpN-$@
z_fekOX)fh3D6?Q4>WnlsWe=>!ZD>sKdY>=A5d}5P$eK>EN?cA7tEtWr_Av4g)o0C(
zD44xAzX^+Z62_~os9+%j2I){2Y8GnFnbhi{|Fs};1aL$LSGfE@)N&2weM?VEPL-N1
zot5-*1N>BbSxXV~mB?R~GnA2We2jE8OFtXYbFpeZFNn}@K4eiixr4?DmB>uKK$+jU
zW<u{qqqh6>-qZS>Y~)9{*pFqM)UZH^{iYscr{Hi5WHp3-+<VQ&?nrEWr;aMLAqblY
zO46~OsOKb(T>37P)<rqHs;yY)$%d1=`)KKvW<j-P0ho*+(F($lAgyId4j>o@Ab6Tw
z#Z6u!cY@CDPfXc*IuvNES=;B~RC=B!S#gX3pB&5;V6Ci^naI&QXDs<X<tkQejM661
zlDIx&UL+uh+*nBR<jg3XU8?ZQX!~)#H|V`_DTFVt!f88<kJ;LV%PBKhMWmNtF5h6O
z{3;SiRlfTnv2dm)n9`RFx-*qY);vk56Rl?m%!!W;$2zk@j}Sx;@J^p4i`I?_L0JRg
zfJ<!BQ=qTiKwqEzEycssThS+R`=%^<Gtf)qc`d+qPwcGupC*c{@I6gc-zZjGXtR&h
zi%&Ng%`C5IwdoE5BVdM4HeSS<b(}KQjl96GgIh?41O{%l9e<V(zKkrqq|IDd{#Rof
zrmh8HOV47i%ncWHuaLFti1Zy{plRGb`t3^V6_)vNGr}f9_UD;jc%^e@i%=w<LlMIR
ziHDj6UkbDf&b7Zws^yHbQ4hQuT+tzZ=<*8K-Mdke%8FO=H@&LQ)m57#Y#x4dUVZMY
zwX3xDg0*x*dOe`I!P#xxgC7`1?3?~5Y3YwZ+!E_rRR79$hJv$c-;I=+`U|%eEA<;p
z4IB~~FbP$&u_w~}o~|wkUP0Vlj>Fm$7vZ!Cm(ff@mXgAp^M6JUv;5a1ih^m^n{u-M
z+;gBfjH|@Nj4!o;To9&q;>IP&^s~$_oc@SiaV7N!wbDd(0|5CaiC9Y=z>)tiG9CkH
zJF^u(irC|STf{g-eV`QMYy>Q&cMfr4LSVR343NM{k+bI)zdbaR&ottks3N1bSv^J<
z8ZB*33KMEpEjcT;m06%$)`EH;=jfW_>JH*+YXBWgxng6AEx@a!uQpen`SmJzYbw4H
zsi9>>bb`ZpyGs+{!Jcq=`DAdU;fM|Kr?^dNx4Hg}`l3GfTh__*{Y7HEoa*TYdx%D2
z<aIxhCsP+ZQ}t@r2wtpnhSsMo^b4<MRGRiY{UJAAK;y8>-WDQKOVl(Hanw&1U~1O7
zcG&vAspDR2<CbaX_~XnY6u2t1ED8O(5V86?aqC@FcG_cgA<9CO>i`MRmwpQ43xTl?
zuB>ZFF>a8B-W3+4#tiGyvb$+j+f>vRV9NMcEZ<P7;EVi}zcfv57&1I%-EAW-Tx32c
z=CJs-f0o`bJ@NTiTk@@`?o=J(oKI0Cve!ZyJERHXY~i$%qzY9r8f*@^C%O-3<pN!R
zZrzu4dvsm7i+qPmc2lfK+m(4Lha9t+!!s2-PAWg)z!AVaKNt)}mzyeI--~5H5_!Fs
zM=P~|VM6&cCbQeBa^@$9*L<DO_8k!hJyX;y&@4bq<`>-F6jL^~tzsm1;l4bQTI?mF
zx<)x$>FV)0_(Qx_%nn{@Rn!iV-!6F(o&``^kWR@|T#$rQySzF%&KoGSNYFC2jNb9}
z*~u<A?kf_AXHqp2@^tO!lJFgJ2WCH2Klf7QKU&+bafBIF*A-bg96t;C!JRHrmYB)o
z^38pHVsFmLaUPIu;Qsk2Vcu@nbH5&W7VHqwG3<l-RZ9E;7EbY_?`;jZ1O&RHUMjl>
zgE9Ba$t}nX0?~hnEo?YpEmaug)SuMU7PB^cZw)A0^!FM-Zw1q&{SvIJ*(u|z^zDcQ
zT<FjFgO-+tqayI4zzb~>&2?E$G7lheE;Cz#HC1cqXlc8tog5a`Uh>5aNBvWA{Km=o
z3?#ug!WO<94io^mPW$+;>2T<z*+q!lWJ+pZi@D*KV#S2A<52lANqQMVd<=ZwJpjEL
zG~;_hHcbTRtZC_miNTdVZmVlNXFe;NLL+Ult|g^_<+_6?6>X>qlh8NP0BXR^`-^co
zp-=f;^}xDV?vSf-wpY1GKXiW~&M!PSMqKj^?P#NzO``7V{lgc&k@j%Ofbd(*`cBy;
zQ*kh{OQq>YxdrBppBFAQKxp)537YW*T{E+s{UKMuwkK$P&mhdPx$=K%-<U*M=XvN7
zx93_arDBOd-lF-c8WI(P{_GDgzH9;FD6tulG1L|NeRMK9*F79?dop5;r5B93OlNrd
z?0fFnO;-C|$+zt|U<Xy)maqr}$v#cXNeNvWd9&+;0qk3@0SZmh*8FteFPx+K&Zn?7
zk8LhDR8iBkTNGZT8r%fo|5MU{>yIKic$E?e_)A1`vYu|z#4h}NA?e$@Hy6-);SAk*
z=Z<S^CU4Bo6%J&N`oy;cxKt~8el;%tD);^<sB7z&?U@YeixaK*BqgOcD@0ErOe)mJ
zIrs7-skORk?hPP&J5y00Pz5lyn6SYWyLZ{TFU^3nnty0eFW>g@vnr0uD07ywmzsgU
z$?H$72wa->C!JG0<8+#<f;uPzBKR0%U3x;QwynbgA+#2&13ggRXZeHttZ~K`b_tD5
zZ9D_aj#WewcTw*0=Xe&Lb&dA1ePUIO!3V?x$s62VK*&?D6M<^g)zWkQ&Fr2@ve99_
zVh6T1Z(x+G-L>r~8r#Yn#n>*V#^M)hFtBaDUYll7|M&wC@5l6R*14C0=8i$vNuFeo
z6{G(`y85>~#P`@g#0O(FK!dbN;Af;e{A#i;9-DXZz7Jotl?UFVc6md3=tK5QfJ9=7
zar|JD&KuJ|2oVoIK87=>L^<?Z+xNpZ=TRL<4|Y1;l{Djo-fMr^PNvaDcc_N0(o}2E
zLMe06u}6m}vF;-frO6lN!e3%kaX@hLX#+d#4q@;@SyKi0vSof$8izVbCnhV=cD0@=
z^(Ny-T@GMfl_YZYEr-RPrM@VQpR8i%R7h)B+NcYu<{cUniHmAoLU>n(&=AL0*SjwH
zqSky-Nq3dP=97220>&TQ@Cd_zSTj+$l=Nfu5T#{zP&ApU_FrnfZjN@J66dd}la=ah
zP={2CfU@;-S;k)H%ae@fb>I)K{ONWCiT|m%w+46oZin{IQUd_PE^Boe*nAdctsdUq
z4qffQRtUSP05eUd+|FgQo@(wIsGikSs$?1df?wCCE>2-B`}}@u6S`Z0N(*#7a!cKu
z-z)lqd45}ZcQM<2S0MVc-)7#ygmT^S(>pR(zH4Wy)OSFSJlGu;*xw>a-SumZC4{|S
za{*5vgF*x0YCL7id}=Zf^(SW*q~%5c;o}u4VH`dZp0Y+p1SewRK@D^kXBKr^MzVHB
zsi*5onl;9;F!7KEIxS5tEe<_H0l|b_6Xq%?#qxu5U>LiLx|KP_Z)Gi*^AY)xjqvND
zfX$KqaJF2ErjWpmkW89s*4)8@+cpz|cV~0#4G}UeB)@fry#8IA^+28PmLCyBila9K
z)}M$scBywOucjGaBurG6!q#ues0|l)cenAH0awq{cA`(W;+SFs^VJD2;OmZfs1Xif
z#Q$O>$>FA|PvT9%+!<T;HM9HlmBU*cy>kw1eWeSjk$?%R%Hfvh<_^z89v)}XIti(v
zsyB%TA@j6=`5fIj5#X6h8zpR!>BWKJe6Yn<48f^>xJJxg%32(1P5O6ma6iIY3skO!
zgn+HwS?!_-YE*u1=s<3_(~4|J2_ko)?yol{*H%TD!l{TNEwrHV;SmVI9Ww?;_v5y3
zR~TaP%m;Ty^`O<~5hmWtT4eKe%)m=QTZx+kM^y_M`v=Ku>+#kHD{<|=>BNcyIx?9T
z{qV)nhaLFhnl1T=I3&)m+;D{C+2@B@rBs}E$D_lHBu22Xz(5g?p5R&E;^i7lIDDyJ
zgZ8+IhT1?xWA{@V99LSIg;rs|KqvipbxDplB-!K-w^reZt!bf$aQmFlO+Nq-rygRm
zTI66NMZP8^UuFV-Z+?WCHpi)~%wedpyV^A<;@7iZ!%e8`pq^$~%!~hJ0Mlj8Zk#_+
zMKol&UB^<is}2mWxs<S`u8&UcdQH8(xYc#N+shGm4o@(=iM{S-T9jZH8W+EF?wE;?
zqK9@nK*e3ccESRXp9tcoG4L15GOatAXw}{SRDJ38AgBX?85dCcx>O_RFVrZHxsLeD
z<}NH5RYGpEZ)=8mO;Oj*&Spbgf33VUrYat*x_C1NccQA=-4M)O|686NAF$!m4BIRv
zf}RB!qeAYB1VNWiWIa+9+}67eH<s_D>(!#oKILMgNBtt!+k4E#k8jR)BUF+cee1%s
z_@-pRx5tC;2`;Z5-Ff`s-yr)~u$@`>PMCKf;m&J_V12R0#obrkGyqHxNhdaTtpqW(
zEM|-y(9UJ1?gxbZ7WVMHHNppu9ZoygNUIwxdS<eO{aYzkzwa>%CN%2f9E`rKR0C^v
zPR1jX-j-L`ECU~7VL3ra@F~KW!A8uX9!!ry$eTOc7?7nfsX~q$wp?xowr?*uu2Wo9
zIfNW@{13^yF;G@@yvs8q=}oB4vzp>RZ>PO3!l#=k_WEkgc5s(VLbKc7dUS+dE+;2v
zw{(4p^%bB{wbET*Qf37sOuuv-8h!|NN><NdXu4E1RsQTgMdW33Rytr~f5h2x*-sV}
z9ZDsv-R-rD8QsFSSws|EI#&8S&2vMRw%lzQM;_m8(G#UBT=5p~rQpvCA**OrU|<R_
z%8G85r*9S;PNv|8Pa2-&x+~l*MI#q3A?wm0=Z4dR>I$7Hm5Z)9O6q3gX2Z5>vn}eK
z3DqT`DM35sKB{;7kZyQVEV+>(tjPDW(}pS`?VzvH{*bXhC#kn@JZ|=1T<WKyG!B|Y
zhoh`c`S#fDo2<O}&}Kb>g)2XYu1|i{bGXJqk*rb$O3H>sZKusc+i9cQY3f*AhkYT;
z>w?MIFIq8ae8`v$pTB4;3Es@g%~0hs^fZCxEfPfD?w_4SPF-CK?-mJb;dgBg=zrAH
z1@p)!nt3e&#hang`s#}tJ)C7AFl`2>h98qT1m;X-%D9bE%G2x@%BE8lH{JC3HuZ2I
zchNo9w6u5AsD`%h?lPZ3mc@|`KiBdQk68^VlHPh~Q*7CY!iDUjc4ZCd=(;x}(s;l8
z*wJ#@hoEIxx{Du;;gW`!mHShioY_2#sn?a#Zf@+Ch%LRLm~gLnUZZb+3pHPSnRqhz
zRtU;E<I-(Qo=#y+Cl+apq6}TWv)#K*hBoV7mTo|$l|<ktg94BP^L(#GCA+=|p6%3F
zu~{eBq{=_)g7Yawn(I5aS=jCOz`vJcq5`3uFRfqu<ELEOe%xeNJe$32eTS9eelnUo
z6_#S?GV#fQvZtoS9IKz5ERy>r??@+2$7h`Heo4IONdS9XM{lM=r3rV%mSGO6OC$lq
z;$+B8Oo|9ZFjO^ilql^K{X!`>|7GL$Ml!Sn{gF^Jx9ull>fM4yl64ET+X9h5VeevW
z3N$BAbD&~YI7dkH`p(N(*~!y|;GJpx)lO3Cqaf!(M?}b4+@!SyP^f}H=E_agEJ^|$
zCyV&m^_p`I5R$trtUxP*1x}7gOJObFm$(F|t1p<@xwYGV-Uh4OP3l7p;mOONjnRR?
z%y6c|V~^oT8Y)eUCeL#OQQs>eI<dRmoCs8k*zxX3-<^^0nV#>$28MwfY;Gn3HxF+r
zUV$Ddk&f$iJF~6<M>iJjsz=$Zg(}z%e=#~9zS!dtSHD#k?E69K;N_CMvG@bIcrk&M
z^}Tn<>wLzqQ@BqP@;y+l$32~b!h4E;g-C-Aan^oJoO6w0FD~EfX@n}5?Q(Rr$45P8
zWISI~69!EEP{>AZbH+{Mb$oqym|a-%h>Lpc?Y|aF4}|2Mn~qYS;~LZ1=?fcj(PrCr
z7_vp>vIVDy(}RPS_C7<kUA;Nn_G?>28SDrZp-Um^R%?lRP0qK+X+}-CJ}%3(3m2&p
zaqnmZVP1!W0-QJHn>6WoPDUTBisczBOzXXt=MTZyfU&I9ySK}Gm%Auzc3hm{g1k}8
zi`LAQ7r(9;M!)H3;>5sgVjXE9FHxd8bk7;K$49qr!|Z_q<JI+b4&42wek=r#TBmKS
z?_KWB_itWQOfVTOu-E=D7+-_EJBbreiR!x=x|M99Ng$i$&iiI$tQNJoEggfn0;Cb6
z+w!8zYS;zY{i@RlV=&X#mQ!_;JZRi$IF1mPX(64$hu?ncxLj*^0bix^%j&p`|8s*d
z(2+To3<)H<S`L#RO-q%>K)xGTjNkI=wjKB#zHE(?Eo&saaRm*hU_g4>YfCkwS33Hq
zHq9j8u?iuse}DOMtf;dcK=uf~wMVHkt1*-8&RomWL|fYwVQ@v%AbdxBg-XY}so90Q
z9{cl(Q^<?o7SYmjZ%pbR<FpU6V1Qo+qZ1TLS?^{`doL5-%PEMXS0RPcQfqthEh5Pt
z;;Xr#NzTPren0qTf2iFV{91sX1C!(f<7jc!*5%qb9+{JsMe_R`b{y)?;X?;5``z6P
z-PWVu%R@$EIg#r1gRw5|lXpK&I%e7{SvAg<$KN(uhdtE+3)_#@$QsdYMl^BK`qHFR
zrSO{m?bjUv;>=gTXPI2=y^hCRpel=&hR_ctzX_aMsuTB|uH*fW0Kv;Jcx#ge?#>&r
zM`wOro0rztjC4~OIqnuJ_>ENJ#c4vY!KBmFw?o61a9Q<?bY^uI6CE$>mkXf%&rmF;
zD*Y?|beIsUq`~qmXC>(nxn+#I=GTU)_IK)2=;AV(!HW=`k|O~Xu#05v^@3Y5ykqOg
zkEna`P0RI}t6Dubwk#!bV)%;ucJi%T<Ruvy2Yep3J$~&=ON#^xrHb1}jU=<X7ht~8
z*3n5v&JxAbbGxWQFwZ??oc@(ey@tO1L&LLd`7Zf$jIX_*>2qTzr!(&hC&KXC)3J!#
z2);qzf@dNj#wLY@OA9jX%csjV;{*+3n}4ai?n@H^+u{uW=PUpnZ5N_zbbfSS|LlY8
z*~W3k5b^i^LfrRzLN<L{x-~@&i^Wr>#-&tmt3RLWtRoH0rRi<2vRW%4gJRD(XDB=J
za@O08misjG04boE>(<t2_Rztm-ZZ-ru6yTswhEe<m_Xv9WmqSi(!GTKoG#vpzWTZ<
zB80)@smU_d*|FUL_47Sn){CC~mmaCXTUvJDXeua^CdjOl4TdmY-dC!eZIJNIQ*U}N
zVzKb@;pu`6Tx|bCtn1r=0-^>mPO;qUh0+62HI3BY4WOC54&$-~Bz6u_b6J_tHgyRV
zd?EXtKxj+bH}SgHdWIAjreB_c-?@z4xxdxTWV0C#KbcwD<aXJKh*vcP+lM54+WWg>
zK8`aUD<@3#XhDb5V|iub)+D0G@P)AR9+3SSJ$9}-D=rc;4JzFPXm&PYwF!!M-8+kk
z*5WMaI{GCGH_Ji@PRP-=P0YPtJ>6kfQc~E|E@(<<mE*O^?(VffJbvC8aX&xikTvy=
zQiAzwx2a^D4PZNx4_}cgmrd&8vuXdkGAA3#hd|j3bSBIG)m>fPoG54a7r6RoZ^=%U
zNTQX<GE&8zp%k_MTRS(Y%<ZB!w*uPg3zIAFH64zi5_UdR4vFU5QWG1xqHvIA3XLdG
zs!B+};NE!a(mzA3$G_m9k`hCCJ-Q!#`gQ$w%=|YM!}88y(7o0t*<NhsI3l{}=t^uh
zTCWR{gS{^UyqBhbZ#&;nhPUTf#}$~aiJ@KopsHG+-);hqTWVA&2~IqQ&5@!bm8zGU
z0L^YJ5M3ra=55w58FpXnG7ctwb~sJr#uUegkFh7Q|5~pxgt}rhI9~1P;}0d8In$*M
zfAgvOcXQk&wSbKCaNhn4XWH`n^XvR`(I_#=El=b2(zQ9}-L$JkhXY*vSCZsPVCmRj
zp&GfO>BaMpz85Qf$IJ%}Qc~HjD8%dD*+Y{$ZoaNV11=(&n-foP5Sk?HYU9V}&s_Jg
zeoxpEr4+nyy$BM3$j~L~!nzwXek<uTH?oSjEylE|iv6it;Stc4d{~94-%(6>uNVs$
zV=sD%XJtIN8zJf%@ngX0f}Q=F%%tZ=ibE*m-~ys_X1GLzx|A|t7YUyE*rNQ3S&I|>
zu;|+MWj)TzO`5qhp6A6%<Y$MX-N^`<DUos`8)n_ZrJ8OpkK5^LMQ{Url&V?`_4BIo
zTz48D$xGzbux{?ao4l5VfmFU#>1C%FN}P2lf}a5_%T3-3ZuVF{UPPe#$=a^>)N~fD
ze%06C<__D8r2M{3T>PzXbVB5w?)K^Oxa5py!@qQTJSp>gza(jXz}VPen(}!IVBylP
zr1B_AQGa3^WT$0^yr4<%GS-!p&%0jeGvLB96#lB$)^g`@_Z_o^?|goS6J<cI25|e=
z^r(`@Jad#W);EWECYju+8VfPY1Acz#9Rg7<haot=d3TOSS;H}RRBw&kO(|lr1a{c2
zkN0wOBJTQ)Ej-uWi*~f+P)RXrJgvSJtV<Sspz*+CD0@!&DrXGl;;N?k!}DTdzYwG^
zpL_KC`U^NOaB}*J{u(%Kl%?^zgpGy}ZyDB!OG=(QzVPI@K2Y_3vUAIIB~#xf?0H3S
ze;LO{%F&HM{O6W@?Ya^XEwEIQy3>);2=pdI*z0&sPNQkv^7f>~=n8!}W8A~Re3#r;
zd9D(=yl*p%_hQTD#yv`Uk5;lP3VE;tkyW`m?~cb~Rjm%YaZ4)*XtllzRd~ip>!kYF
zJou{L+b1zoW_`id(-MY7<MFdBk2)qq*NLJ>?2ba0)(GM%$1q3}zCZ&XCZLv1PYb2<
z3185cmNMymWJ*iB9sxb9{C&va%D*qw6Gx`qQav$6<d*Sg`g*A_cA|o?G6S&2E4^-p
zHqw^X_|m#g(p)`s>zpay@7;>}DN^fQN+~C@h__vWJLlZWm`g6jcokK?Ig`6HhP?gB
z+K_#^<$emx;g94sOZ;ko%h3~G!_u4ODyl_yhEc0{g+Y>w(+^AEknwrn!|>kn%q6dM
zl8c?ig}C^(i2t*+cp_{#Lbn{y$Q>54yx1~*=5;(+k|@OJ*S)(LXYF;)BwpxwX-?s?
z_BuDnK#G@j>~l;BPvQq)W7Wa!MphxY6+*2?Y%prQy8Q3+>Hj`a0GwNsl(y@2_8*mw
z+U`asUDF6Qmfc%GZYb?1n4_|!)s%?LdK@#+Klk?FWGBbf_kjx1rbVIULfN90aup`G
zmfLEwLNl3L)UvSln+`X+7EdA^nJ4MHl-I?Wo8;hQ<u!DfKT*rrm2mmKqoA9>SZu~1
zvt2{rGcUX4<D-({h$pOykM?KIgP)O5qDQAmWv|27Tyx@@hcD)Lz@jx*I;Bn4F1~86
z0*h8-=#z6%f}fvOa<Xar`?uNf3-}u`9|(0Lru3zxOzcc;C+nHl@kxRMFN}7##^zVn
z5QX;#IW$Ka0#6+UN|Sb}1+pw#Hu&KPLt(%{m44$!7HI?S4-Ve8E2;|m+pElAcZ~uL
zH>84>lInPmYYlXBbfhX}uLJZhaW)6bAkTf;3~-AfJz&^oR`kJ0FoLGpxC<W{gf8U{
z7bxToE0I_BPc?5ruluw>ZVYD~1Yb7w3|m3te7i@PjG{RQ*@{2I#@J^x5|gME;e+Fl
zW{7Nm)es$ioS*DS&(nzfsX4Cl#`$T8tP(4^Az=!b3t({xM}@&8O$xJg^~r$nUX7nT
zrDY|WQdhuckd<WOEcJ%AF2`wyd2<suQn!H-?=_{$4_J8R<>l&Ct?stV&J(w>``MKT
z@{}9tIQ-8I2=KaKWPxuqX11Y@na2I2QHjO|s~_P19kwa*gb|L`z%?cYC^D4IV#aND
z{#nxnF2H*Sa>A~&PKXQwoI^Kmlo#VD)QZNtIrSiZJ_a+p^IhIU*oQizS9=q?v~aL%
z<!PaQER4~B?*vX`$c6YvR=piglGJt>h$IVpnTK{bE)(5kAl{t&*h6{HC#NLJ@QKvr
z?(0<Ai5@(i<{dG0Slm~4XUn0x4hi1|b<UmnU*>1#FZnFn!-$&U$y6iPJARzM!Gf@x
zcK^_-&y&<vH-kvWMXj$FpUL5yT8k6%&Ye>Q1A3eD$)U?%;QAGTKe~rQ0_6}Xm?6?q
zZq5gjwfQQ%V*E9_QrWc`RRXpLna7(@T<y-mld8;_wBjoE72U>+o4}~%8c*f2z(B_-
zv1;Z*TCutUlPm1>Kw=KH{g$c4`c67pz`ds(v9G;sW<L*X)3xtB`CKQes+IUxYj%c<
zYykQp!+l_PC+W2ROg#1@s^K!vxvF!}3aT8}bx2`Z_opwer>>%&o62sm*f@95J=N>9
z*=yOrSGDFo;Bk5Qn~cE-LJjIrRf9xrJOuHx)m1&xcGdQpu#3)-WjB!%>o?N<bJgRq
z8~%@$=K&MhN&kg$x*p(_)#li!ISPfD*a2rRy7yab6zA-t$0m0VZhBeie~3H&l9t-y
zkTc7#$2m22sUmoS`oGxv#^B1@sLLDMwr$(Cla9MPNyq8f>ab&VY&+@Lwr$%s@7#WC
zzNx9HIlu0yI=AXM4>s0Xd!I-nBcW4mG`_bOTm8>ZAmN-WW>a>)$o$1<=VRF}U5`MZ
ziMg9#3DHq{d=3KzmM%sgjfsv|V@L|!A5FhHtvNb8r?Gm2v%sg>XFMs>-Y7nicBb2>
z4}vcKZ+~tlOW>Bao+sESFgDHv-^OFKSrlJ|;PpDLgR_}BMV37tKPNTWiHhz~Xo1A<
zKIa{l7R+bY6V_9O9YV&$NRNoLPZ*vI9SmY#?-nm0w4_5RmYZ$w2<xTpkZ#8PqHAD5
zJ9l|`%~Ms#S+L7SSLX~Jq|bV7{ZZNKuA?L2-tBGV@gN3Fd;SrC5fxK;9rl~ia;r(V
z0oeXtJ7FlpO*?aY%GC4Y_?B-J%_~M`X)IUQF`OjLY;4=rsik(PB?8O@?DStk(D`;8
zwG=))bQEJN@Zq}dqq^?<`L%>P^Bn@Hq6u-Xv5n93ZT>v3dKs;Qp_Va3Ww0nIf*0C)
zwl2_*qrNRUYb((v3f#xC<X;$LedR|7Z2vEDCHH%ZPW86F{<5^r|2p|IrhT<BBrsd}
zPW3P9rq4$*_eN!@zzz#Zj4dRadg>|DV-+9DuCq$1k!SH=XR?1v8yg!0D;oo06@k`C
zx-^_jW^UbokSOSCZrJ$#^poEGA9lJ}Br;}nodQ?9Lja9Tq)Lz8ihz!HdkGG~);|0k
zmy6aI=w}m^R`&Y3X4DL_<RG_1{{}Z94(yQhBJg@E`Dyg;%%b=faq=-_Ucb6{OBXk|
zjTYR?t<}xZdX{|o9%yWk!foCYn7ev4=ca-?^><~;9R$>Q{3N|Gev%<^1wPcFJm_Oo
z5jlPEba9jY{PWw}<B`R@4VdOECt|`J)9ie6>NaIWbPkQ@@&J7F)6F2I2_MmQ<&?H*
zjC$Vh_EVlVAdWZRsO$g7;YmsgT4(*%dk~sutWwhtZePH`sZO%hK23Y3nU(q{ipngY
z7U>d|lx&R&dBU_Ln$`>U9j&#s&Rfca<Bk}L>_V7|uN%#hdmcX=m6nE>C$M|I{E&Ze
zJIOcB7XDZ&5ekCI4}N`BoG*we7k>)k(kU`;bdyB<=`|L->-Ec&?mM)hv245n9$a?n
zD5r2h)Z5wXdyFBDO16*X&bls8!ii)lI^+Jrx=4kHj6A!`??!e>N}%Yj%loBwpv&3s
zS?)S6R4t(_sp>P4$<3N>l8=QP1d-7R`6xS4N@-V_#g>f=qWnfg05#ayfGThGnFT3r
zysYu_uFyeFSTp?(NT&8tXZ@)?liuTdQ&lxw1!9O%Ud=+hw3<MwHXldb<3`f5Z$?@T
z3`lodw5grFOLZ;}Ni?J7cakT}7As}WI3?zna@KBQvj)2JZ?`H&pDY(mW##2k`y)rf
z%`Ux2X>~r*>wK>>ZJo=HNkPSB%$*ldY6GpKBJ*da)Z1y=the_&V@Ll%23;=<TR=T`
z6qGHtt?mq-{2?4=+$-XbAzQze*euJ7x*y_g`a^%b^&c=ic5Y9m5$k&%&&kG8WyiyN
z%>7gieL5AqxK>FNk(m}eC+79b)ANcuMy|~Tfd|RA2g$%K9KSc`$N3uLW2hqvr!LpI
zmnUI92FK3`l~x%g+RjM}rH2)oCBG!Wg>5CCPoH~`Ul25L5!<j|C-yz=+YiRipk8`7
z3GSZR6v{;_xEYf;{YLkUI9u&`dnowDU~R5aO+?vYi)t6+rjnl4!*)c1Av;AQ$$VR<
z_N$dQW9Ac5%x@J65w(XlJzw8nvQ1^knT6x2S6*!@l=o=8iJydChYeiW3<>x28imv!
zhJA2xD%C{5hH`Y7UoRM!?RW1rCghGM8@A@vRhg<zL-24uaiAhyBp|85zwrGy!<yxS
z4^MV&{Beb?*l>K^1P3}M<d6WN(Ew4cld_09u|LtWpGyP9+2>le;k6J^r>IBjgrvgv
z_SWn}@9LCpY5is8#pEi&+x6wkQsD_zK9X7A`hM+H<>x{jhp*{{osy75L175sVs!r5
z6n@eW$rsi$Cf2Ul$jS;Uw~e%h?40>G_v1%h;KztBJp%Fj==oQU8<ED2M-(~B`YfyG
ztx}#YK@5++{=4f}L%hb}QQznKdUNyW+#WByw@A?T_&(0_6LHf#1Gu&V%<gcDi8$@N
z8x)D`8<qlx<%dNE`|ckwD4SnG$?%u^`wdJ(Vr#kJ;cW4Q^{gFa`R5{j-3E2VOPJQV
zUGHF{WkJ7Tpa;5PWlE7~n!gx6r`mfi8(9Er^w%I(Qe;*^Kkp;L$q(--TW0r779;+Q
zmn;M)zN@J>r;Z$TT##VjK<zL$b$Hyf)SX0);0k-c+@vq)Njd_Li2NjJ$TXHom3CoP
zc(eqFn9X7)Sb(hZD~I^GnKE#el$xBDl>E4d=<>EE@Zi3H<I4m7=svksEpf&<T3@zA
z=e|D5cZ2Dp<QX|X;0EmBL$hDFYA=uyp{?$iZr<;dM?d(XQFFMNegRE*{^(uWro_@Y
z>)_Mke)^YZ&oGq+8Fiv63Q3kI<S(KsX}XR1zdK$I&#Dr7t#m9PoyF@#euH^wbruOJ
zC7-F<ED+t2^oWg}h!BIjI}aPW<!AwsUti=v(XWriKO3^6<vfC=V*+=RIW1@M5_QDN
zj7Jv}m6FpjG*HnYjqceCyTguIQOMxqKJX6Uy#o%|F6mV8v=;{C*!S#-2wfks1Q9Hu
zZ6o1KSHX<2q5Odta>Mq)Xpo-}*a82#gv8F~X7p<Cq>lXlOeCjsu>15z;MhfSY-iy%
z<MG!HVS!h4ph<GtzfK>q(g?N}L$P2m=k1Nk;@RVHUh{s~<095jUf+xHxgbR5)8<|n
zF}i_=|H}PB{QBrpcJguPnE>h~OKnm4g^eZMBO7l{6e+FcT-c4P{o|~9Wn-lfs~bWz
zhk?=R_>)(>BOzz>Ir4zd8{gN(2G>(Qp(6G-rN-vDwWmWH3)sdQ+$kDZ8~24kHD@Dn
zxw|7>FsfQi%Dq4A&E;SEz6)%c(ya~6?305hW=*O&w9lM^k$90g+l{6*W8RkJnL%+T
z>O@qvjB}f6c^)q0=d6&Ypd)aYc<N;&L}%aYNdfx!(q%?BX<dN>n!TEwXTFr`RJIqk
zgf^u(+kJRx3qw@z39}h*JoOQTVUyaU3|CXVVPg~#v)APlx_b@edV4Xrsl31gV9kYq
zNWSTPrDx@#3{Hga7UZ<^<CBt97Yi6E^>md{W`BYNGoQh=S5GjB@oVn}!&;^kaPUS0
zt31{t*Q^=vR7OcbPP@IQQxVDx-d#`Qn%az%AgrVRwtVw?vjzZQ9Emtq9!B&^5%3&F
zURAn*b+_P~r`20KDBkx;0-=tA@dn$e<}~GXA|~tBx0YNgQ2>M&4Y@Ig6RJneklxhE
zS<xlIVs$nY9scht(0Yp*G~Fq<p!%Uh6nei@5la}=_$O$7B|MM#geT5df~Z`vZwQ@O
zutH6;1bGLUM}8h*&%u|Nu$gRkzXTpxq`|f)&6{Mj!xPg0qF?5}BAO*SnZ7P<r9jJo
zbz`}1Wu}n&DqIxq`b_Ek1oH>2?6js|nR#sPesILGJigT?15MkaoTzBfN;4<eLMJiL
zdcY%BUg4DmemioEe-5#lJyMX0UPH_Gg+q9MmM&fw&#ktrdNd?s5#i?i>+J&*3@rKg
z8Ie~F5uI0Do^{=OoN8aNEf0T-vTALiwDa;_X-QQOp}qL%3P_35`yPF0;Jmi-^l}kR
zJ!A;*uj#Ctl<XWSii@KgBdSzV1{@20OBOFmW2MWPeB5HixLpYTxj#F{#v{bKDZC12
zN?uPB7>-Dd1REUYi%LCr=R$M$B+u9~`&%(kA}T336u4}YX_|RBH^35WD*uEKl%}3A
zq*vVx$az|q)ijEg-ChyoumcO03zdfMB77edhBtN6&CN9SKDjWQ0s>&!r7jLiln#|2
z5c4FtA3Ld#xDHl=3t7IbsDuTG6(vyY7SrCtzH0^&Ghd@gLhfK~OA^eIaABdkZLb*w
z=E#lva>gna7{{@w^|s|!1!iN9etmk-LPi<dK`>A&_Uw-+fqGv78Alt3N-G0|&Gk&t
zNuPhiu5Q0u0RV!A#uPR+mdsToVpHQSYu%Z48fkR19nr$#o?1G@-RwqW3wWS5qEdx0
zv0woqJ^Hyzor4^is)WQ`jZk@gmHP=Q0W&T19`SCvndKIH2avf_Nq3OHZ>|&`eU<NB
z%{~Yv5;THNE8~g3*!mnaJmJ$;egoTFX8H*@4Wy$@P-YZ}ME)ZcGdSIxep=2uC3UIw
z4J=uaLTN@}JWO(KuT3W;<Yg&@ku4$YzIIsiL6z^PcxU+a7eZoV0kt2uD>75lrzD!_
zUz;(`i#CQ@1gJ2C1$_rrktkEcp{8hZiBj#}q{xC5Idrs0BqWx2lb~s!2HFf~O)lys
zJtN;eUM9@c2tPHaNMCV2wlBxQq~&{?isGj1<LG{bv}cDLxPXZakkT1+uP4=8IY~*F
z0EZ>5*RoxK$21B_@ewGOwBCP%gqD=heeY?EAS{Bkeq2rFxh?Hm6EJso(c4HuLbZE%
zT%{*J34hSE6UiPn_s-o;B1!D{`5r2#g&X(my01IXnI!kGR_;=;vzxUDjLvw8e@J>>
z&ltR_YS5GQc}{s$;tG?G@P-0c2%<toME99l*0P^|{?TBOk%51dH(3VXk@R$E{xR7Z
zh=_BPxosWzUht%TBdktu$~YyK%@YEZn)LIa9*Rz4&n`+W!A3WwS(w%G$!Wnae(&Jk
z!NCZI?bFcy9*&JKSUugffn9(U<QoG_qT$TqGsdm#YiAH)!saHGvyZ~pcg<t6-sA0m
zmvc=?jcA3Dlhcaoy<(;E+(`v?mqpQaJs)k|#+CA<U|M8e7)GU0&O%7_9UUH8IYF0R
z2OWt+=3$%%Bp5j)ST={7hF^iB0*X=W2y}cpdv5=div+MaX#Z*3-<hn8Aqq&a1RV`q
z`qU&GoLUzFuWS0(8of#iI~C=t4W}pyL)Xr$fHQ3%?+XG-YM!%?FxAzP*>$Ubw%&9f
z)T&XUwyd$WUJx;rp8$g^$(DP|-(?>vpdovD@v$;&qywE{`)L4*Q!B@zv$?&UA1Sk2
zr$EB=%x7b&Q>u6@bjH*&q4=i_im3A?GWnHl*E3wcR}^Q2SbCR(P5-1h&>nJ!%z1De
zW*z-=(wx0`G-^PyrF!#4=@{vki7HpSL1f&XtwDZ04K;L#f%zmq!A6qCcoPl)VEkcj
zXUFWa-$wlN2^w@d$U9BGPxBKBp13+;Q0%r0Wf^y@h9IX?Pf>hiGGQqI0BNr8za##r
zBwuaYJckn^fgA?Xt^E732Ni_2W*fcWAI^DHCv_>*Omo+*JL2KZ0S;m;q^JamqVQB_
zwyq3Xdnv3UVfolnpL$D43QI97cjKEduYRW<I5>=R=1gY=cU<R2Ur+V2$Hfpu!zR0H
zqHu*i24q25OJ;?IYezP2HbLG+54+|XhsaO2yg1*!3-0@JKq@(PA-s!7R8w6p!ZRI|
zkU`Fa)(#+eYi7@!cxd(D#~UvnY-^4A*w-oSvJjcO&6#1huqE-K^_APsYmPP!RXyJL
zn}U?=xy)}7)(rzb#5Y3Zah>I*JIV|$QF_-syzT0Kjj;2nxD~7(F&{kia9tcS!<$Wv
zN!k`e5GK2fc}T>%&@2sshSQmES55>WflUF41=l-$Y?qD9>wFpYkrThBxH0u3HtxL4
ziuO*+jPzrX9oV*N+72Uj50zh6?o_~YI{#7?S1ZR4;}p}^k!X^efdPn@-?N8nJ{{zs
zE4wdFvw;*0d8kwsHRk=KGJQQfz9@ie(_gC(7VOpXu<?CYfIgkjVZn18mMbcRE;Q~U
z8>v&nS+>;Ju>t@!s13;|EFyMu-m>Yd1CLXx-gP3rJ2;r-iFeq2crJJXIaLNQCc%_G
z{~To1;rp%-p{#%V*+471_}Ht%t}GcYn#<R>RB)3DT&zjsTN6b!^i`5X-=hl>>z8CG
zeyA;+DV-OgQwAYyJ_`W|1wCFHt||gX&~DaErWRmv-aGdhIWL}PerX{wCP>j5*k2<l
z^+B;$$=j}<J3aXFdLHM!g-9R=6j`}f-~UXX%VaYb8w`K~1oiaLUSvs>cmn)~hoz|E
z_BFUI%qn_nL?p{MysL{d=LcECC#l@NvtE$j&8;`e>It9v%pv|o^?Qmd5sc)JCm<UG
z;05WV6ix-uoh#30PV46bzP8^qu-Q;EII^L?zc5jJsazx~oC5b>u<GzCi0(8c1+_5=
zQ~Mgl1>H?df&@T~Gu6v}`>HAm{C!c^YAl3_d_JiK@_}e#U>_71OiKQ%t7_(5`NFPw
z7njbo-3y}|xX2DcT5GN>Ld|<7Rt#+mShiTnvkH^qa|FRCojt22Bb!r+&VLnNbxjyd
z&1`JNKdxO_vyAj+Mya{>EuMv5^XJo!@_Myy#L7HLIxh(A8k?E~W~y^Xa%Gv-xY~7o
z=XYa4rAozy@&1u3g4)2VXX0eHZBR=h3-7;)+`Io)T3$XjG4Vjep4rH0+5R{N2RLqL
zwTg@XN_!*en2Kp(gWI(`+l7_Y4oRA<cq0gCjFV1(E{okKMSw|-7jp+w`Q;oVsO_{8
zSG@&%MUGMgt@J#U_E{qvfulJC#a!&Zo9ltrCAcs<RqCHs43|fN6-$&WZ(&HoZWS`r
zoq$js%Jiy6Fd#2>{J_?-&vuJedV*^6*E6>*|01Fj-Q*Y|PrC&{o-tpCvRj!gEeeBc
z?ZHKAQ07DNHhW35R#6@+<oqxNypcqsUp<1uX}|IMZ=-~Vo$0Ir{0V&}kh*><uE?*i
z454)VR^u{5E<g?-K3@R`c%R&}`|~juR#hRl4ln@-F?z6<_=^SdLHFhkU?GO;syd;y
z#|*U*pmt=EOJe}0vkG-n2SY<5!R~#V(oz`ow9R0el-iI>?$wRb?;Z-g81pF^L>ZWv
zKM5`gA^o4Ry1Xy7@O3Yzip*9VSV4zERvX>J)Ww<0Cx{WkAncwq$6RgB9db8f@zJmB
z$zXQ_<$Eo6g%2$u;1UveV1FPtD8EYzE_zA?uxo+tChdUXYEZJ1lTebJ&iJ%$nCkRq
zBn0rYcz+I!!Wbw1P}I=sK<2s`7@;UJ5!AlI>V-pAy2@y^lEN?onS@Q*&un0R`}^@g
z9SKH<WfHS-{O7x$-A?93Kuke4*JHJ?R?AhP+iKeS#06Lq<HyLV9J5K!Mg(!v`9{&K
zAP!emI3Q6G@3e!wjh2aotH`xphqw8unB4ORd?Az&xmg2$(+&!8d3iZR@-Pwc-RI8;
zYo_B#+LH1<HGE!Ed2tGMv%^t1GC5A_|Iq@(TY_dXNJ?y`iH4^IaBTq8+#Y4cPJl<m
z%(=0&pIystAVm)|zA2wIo(|ZI{Nn<~u2uND5f!_S`dQ<eF>sBjx{^dHw(5+_O`Uqb
zc-Fv34aLarLQAP3F-)j&DrjPV3@j6d1|YI8%);z5Ohdi@=`n5ont04e0kZSkWsss;
zSFqK7ILL<mYb%7!4>W@-6%&C%`n}&1Ux!oo)EVo77!ov3^Dl)li*g3|PBJbL*)!tP
z)5|@Hw?V%xSsE0SG3yI`kRD>p+J!erzm$n*w{a+4w<&+Ki?`<^@2EGd^*}<<n)mve
z!)NnDJr<1tn2phv1q6G8AF7&<z6TdQEIZBKN4OB$7ktWf!UgQ=wA-_atc<&$5=KTX
zHR3gg66d;$UmeFG1SOJS0w^#<f7q}mRlhF1cU=gqAOUU|jQm*Ij&DNn0VTuC;$jev
z7VEq77_A0Rgv84RJ`Pl>8Fjs~Afo}CT24RmIWn*I2{jRbC})tSrY|7EGu*d2V<;~~
zG(hJ^19%@LhJEVn|NP^nrD#96ne9Qix_0vzla;DQh}XONet6J9pn(}zs!0vS5=WOb
z>?Rc_XWP=!ayqy((?fMmdU&`E!GsZe*>a4%nZVVf?9P{{sHCvO9}3pZ?MU?lI#?37
zzrT2PLH(*AAkhc%k&%b|zQf(DFChRbM`EvdX1?zktIgOagX=+69M%v&6&j{H6Al2I
zY9enaJ2}L}!Yt`57hhU_gS7NYQ#vFW=Std1G*8-|Esk@o0k!}9R4CG)B2^KJfN6k*
zvV2N};WR!+4D4hRN?Qx2FTCFn_JpKx;UlMGRr(|{hK^my%_G{2xU<3XzZpHZgWRcR
zb@_hHTYe=%@h<$bgZDfd7MJt8=x^STV-%tkg(+Xn*$c_<kb@gi%?JBejQdfR&z#$n
zp_Wc(Ea0_@h?mucyU6Q=uq$0p(1TX%_wg~}y{YAlhFh8P$&XWK6hM8&^F~Yfxzu^J
z;0X;mmtd+?b-5>z1|0k8rd*Kp)Zcv>X&J{Dzo9DMCpGE?@J^kSB3MoK#QuVO^B+#p
zrc^I~idwI{!!-D1qI}1w=J>?wM_or%JzE0?AYXKH5Hzl%BmM}s1JOKh1OjV)d#T@V
zcYEVaen$GNGiEAM6q$d?sMIm&YmCzlW#fwQzER5(3|8Ee83UTVHu@D_X4D9V)=m4c
zM{HJ8b}(-j!~ZiD!$0n?TibpZ!g@A~_Gs<wPK<eFZ{7}sy8}`l`<XEYdd{rgEY3S#
z9S8s^#X_Gx8lLsg#YaKM&6r3zRh}{_-|>yeY1jD>Ln_w0TkK2GAt|N+J8(r0aJ(`!
za+ziOSV3D7fxXy}P*cYZer)_!z*S*P!iGO}R?+aTRD$N)nL%uPKc(3>4^-*FDfb4E
z`g}x}30Y?r1mdtqUu?fqu5=nVU&IR($0pT;jotxrfO;3jEF^7UfNVm^hPaGGFWA=a
zOAgh!1-XX}j+~_q(pF)q;wh7zbxmz)gc1N$p}zQ^(b4+?A!XOl306ULMLUK5MdCws
zj>Rkx0AzNv!SNcop!JBfp(@gMVyk*aPU%o2C%P}ctaDl)f(zTerM^j_!Zb?t)OnRK
zvfB!O>?J^^BL72+IBFGpE=8h1(gFtQYKd(FBlZV@fk}VnZI|QNz{XSa@)L@+O6@Zl
ztoeO&4GYfkBj$6q0ud{D6{0m`KC8MIlCt);5{p-nBF74i+&e)qtDB2?|7<IF>Cbk>
zAR0*K=9Bhq0H<51EYRe-z83{We`GB5U#5|NltdI2i^R#2NhU2U+nT>D@D*1G7w-C7
z2r8@O6o>A3fKtJhQR%S@fm<e@fHL(8^RV~Bio7X5Be18AVfWYgvgDG#(f;qZJK4M4
z*M;oKY>}>l+z?IyT&6R<)urd^iChU72t@V+D`Gwh(tsGnfBEbTO4=mRt7pm7jPEd?
zbre-FgNJhP;T?b#D;4uyyRRIT;42$lB7Vt^o0R#E+ATX;24+0}u|<;_R>kqk$X$46
z7w*ax2RJ!tcf5rn1`C-QG=3_w_v2)_UrmqiZ&-L(z0e;6C?NEZ3snx@4o`(l!<9b<
z*jQmAfpg98Yyo+sN+Jp8eE6F?3A?3nDH5W2a$%iIzxaqgs*fYh1G$CShs(8RQs4WG
zt|UubrB{WkogP+JfyY&;2>6RW2@D07DH=cBZj4WUIv};@vHA*tPiEbZM+yVD#}*i6
zJ;sODIclkyWW@-Xp@{xu$&^{vpne;aI}6P+^*Y%X@ar;RdP#D4%#i6aYIk?|e1Dn0
z$gn+nVDuzHY&KCf2qXAJ9FpuJO_i2r*4ukO4ua@j@ycV^hl>a%4oxoE^!X#l6%1P1
zgRiV~txOstngbzDAW$Rcb@_Ce)p4wpSeHX79~*k2wg#&Lpy?oiYX5&=G3lO9KXiYw
zqPo#fqMC1@93B)AOo$v^NQ%bO1<HW|;^_4I-b}DNgkg+AdC<@>{W~=^hyvG<Cp70U
z?q(=-Yzq_AUUGOrTN^YT2UMW0LR~)fkLSlOP%w8|s$QQEY=<}>?hmbk{?nEU3G2pL
zlL#-CfBZcha>KuOc4N7$+ef@6GzhX=w`53a;Zd0W%Wm)U%e=l%ue{P(hi9yk#@oc5
zprT<;i+q2367iPqG>g2Vu>3|!$`QOe!e`>4tnh|EJ=As9T<nmbe>2We+*-Gsv4p&$
z+adO+J2Yh;d#UVI(H)&KFjhY6edai_6AV8gk4L8g`^JEGfkXDQA{r_G)WaJ$fh1o!
zacIR%|DncqVMx=5#|+sp8IeB~9MFxVVO6W&^O!}jgHmGL?jC14OLw?3PXXFEzeQP#
zYIv`T72uDij$nbCu8%&xZTTY(H~`Z9cbTe%7{}+a*(K$vvkrZ082=lItH>)|0i}(I
zWKL!&3JXkM8nLK8jixutFQ2m`@{`C`ggKbGnH3d5=j7MJIVSt9%wLEHFv58XnPc9=
z-{>mPYBSt#3Y*-%Nr~ec`q4IXa4yO?1HjYkth3^*U75R4Hfi*FI8ZS#_Ig#J<7y(d
zd=7Au?bc~^4}@XyHco-3`SV>{zYoEh@z*xX3!+ZHZJ8FO^yErd-^VDTZjxue?f*7|
zx#o@m^;y*6L4yd51z~~xRD`ytd3TIYPcDXM5C9o3+v9u>j%iny_#+>GIk2zDY)D2F
zs(aV-7oWIE$wLK*B_;bhLm@SL7ZwOd8UVo8@!v>qk#BUlAr;`u+CGR2{b3!sgnKI+
zIX)yeZ&Nd@Y^*^NMST#NOfK1ipIgAm<!C$Sef!Ls$3U8vq7}6z4L>Z|f~S1ac97+B
z#}GEN{X4dbR-w%RIH&c&CS|6^{*HZcROOxG?K<@SvK|`2DaFFprxX214DesOYFzi`
zOc0_%?v8!?=vHBnu?5)Ayclo6OAlPrYj@QR6+T<;M)_0t&tD@xmxeqM<y;FKX$&DX
z!6&sTK^N?6<mZ+m05X_D^tULoMkgi;UAj1^r8mvHUZNlXm+P&lk(sh6=$wKm0slb5
zK~($tH9+@*xtlKU&{1Q>c1bT3;7gn9#WU*-LS@84?Afdi1kO1b0HB6q>uL4YSnOY%
z?fPcyn+d$Ho|f&x>JnJed}sX{$Pq^@HkG#|7VM^*n4n0f2yb9Ix<$buIFFiT*Zz&<
z0t(RVWoF?X7WVJWOh>X;+>X!402WQgSv-MtxJJT7@CgCiQJMc<DnBF{X^<7C@|XC{
zz6oF$Hh>xg@h)cd07KpBd3cg%6j*3Cx!3t%0VWsO(cdU%DQK07QBb&oiqkIx+oD`i
z&qZKRMP|Q@ZCW+xWj0JCbloMKoNiPTv$py89q-8`B|gL`0@g`~IgRL3mBEg|ec?ee
z+Det4wngYxfo1}I_}n*Xl=Wji_fOOHK1++SwJC#52F+Gq6498qZ`$Xb1cK$VBD*bV
zV^~2XYEqr1kqW7k_^YKv^~hZmu$1Fl8u&&Jx}Ci<#J9Qy`&+g}LR#D5{0kh-m9NXp
zz1pJko4AeJodV{acu;`1CF67xbH|s4dI`-)G@J0dBXe9!p%Mus%aa|SM>PV#`s?;V
z6og7wi|?;BF*v|{v@?K>#tldK?Y71q@Vvhr7hGLsEGkehve{is`F<ZoD&k`F3z7Yz
z9qfk9Us?s>LX5leIq#c}d_HaJV^)bs8F#8@vK-jY?ly7Qf-hSL_?_f!vI~w5JkKWQ
zcCl0BR6r3O3zf=fBx{@2D1&7S3iVs)vA&{C6h4KX;9tAf;hPgJbx2=zDEy2v6yx}>
zaZ_IvP>nzisU2~4^*SkpCf^jdgGbIe+l}U|U?=PF*ZI<^k@K~@uDK4^=tqRH!*;R&
zjT3NPvn+*6D#X<aa;n6wA;-lv&viOaT1~S<gRDIs5&ztAD(_B|yo0dfmHYQYP3Vpq
zEF2^t+COmT%CXq^XWN<u46F$7Rr*e(E7cad?0^mKu1x2tI^HeL6xArE>1;c&NqucU
z&eA)wf3E-M@|TWGkylWj5lX4_9*%>2h!Gz`SeW~_F0v_QKBid?-R&8(<kawN-$NL-
zIwPa}^iV7{?7kCl6<;diT4^F0?SEw_{JOYP_KJM3|9!FuNyH!-Z>Yr{nAP_{)Zg2m
zfwZQ;hg0h+*y=YG+8+&0vn_u28Bpu#->;Miv*>Uch`oO<Xp|P_Axnhc*M<gx&C1~S
zcl#aMiOlViq);M#_x4AR1D#%X*L<6K&LkoqvAYnrI1yPy?^Pt!yoI2u4ca%>)@g?N
za)Tzj-@#irI9Go3*6eSYi-G)%%ffaL{z*@DAUel=f?@a)B0;Wkr`Y(jui`_64A{l;
z2lfQ?brCtFDJ|AK>Qv?R9)n>fOX?$cIz&Ow3^^D3?^Xo3gZu4xBbP(8?~`9dqXr?k
znbbKDF!2%ZZ_d5Hyo(*oy(BDgb1q8N=fb682ybwE5<m{$2P(gXyHBSne(3ZmU|(;@
z@aUKG(-QEXmXDr_jIVh3SB18vKk1KI_&5sipN>@+*I?IfYj59UIJ4cmy4}qPg_iU4
z14!A-X+n*2@~x(3%mmSmLa%xv&>-N-PZC9XasLBy{N(nhLa9UfgNjR~q?ze=F3zL=
zw2R|S@i9w<cJ-a@xXH!xBfBl#iKsH5@3wO6pYn^$p1CsM<^>n`B*1bN6sGTrXEqos
z->(h5%?u7O5M+6SywOSAuM{_91Fu#XfL>WS&c$L5Jqpy$%5>i?zpVQ*6Z4CK`mpo&
zuNJ%NYq)Vl7^oy^EQGU&%J3udyI$yRVK^*;;{~5szE4E|*nmMyI6ffld)2F%EPR(j
zuPG<-&si&v8uleDuzMdus=+##FW1FAq4-P)Q8VBA{!2yF+$2)RwH8E1XdF#TOjkv|
zThjs)T}{ISt}kJnpM%SiX}8;AE=x~yEDtXaKfFdy1y08vS&C)PFY`e+zgqvcy&PxN
zmPJRu_R09A(B+h;KjjngT&#C8b40IKciPmMu@`K%Z|OZQ6pik|?8X*%w`NmhZK^$J
z-|-8LUj9_g+tK&v3<p2L{|5totC8~8YJ>qqj*`fD1xt7*AE(kODCW46^J@)4WPS8#
zx|#m^dK5eb9NuWC%c(+6T#HlPJ(3QcUDcRe>PM#4MJxjWYy&IGie#}XJ-8jn-z`t+
zL$-tx0AYDIDPrz)f1@~8`*ngTVH}!rj(SW{tnjDDlut@Q&4C~1vOB%cq3v}JO2KcL
zX{HyIhlG$<>>M0r$*5DMA)#2CPg*v#D>!C`=RrBF3BI<Z`d7VUhh{C*vADfJxPrOi
z0?$~nB3woIvUs{Q;-g;z9L5*|(~KkK-B^Wj!K8tT3lrH(${iZHN@l4+SNZi2Ff_ph
z$a&henyUIJu}u}{O2KLIbPw1x(`lPLWJ=vUU0MrZvCU!VH_>B^8=WT%)><+?8cvo!
zs9lIu^Di7y&yY2He^@8xR9y;tHWOboGdnqUWg0@6JrI#(oftJSPj=9nA2~Fo#en{v
zs?qI?KuJyQ%Gv?X?@a(t0bQx|@Ebz!=DTWvCn(A$y&Gz#^PEK$;>hQXFE^`FL@k;v
zFe)r!zN<VE9ofuw^1!g^UhicUyZ+UVRqK`vsf={Bba9qaR^fwW@w2-$Z<Fut$SmK$
zWsVXgJwP)DdWb0&4MBAKBlthT9%>QX0voSPc>o!HA1HTW>mn$kD7|N2CE`P9QZfII
z{DDkQ*MzRrZ&3eR_X{#bGskZ&@XSfU{W4?dS4*KNHh~q-TP8*Z{^l8#o_zOTC-`Q5
z@FdQ8RUiJ*+;GpM@$6)z#5L4gKN1~b_}>hE0_<^EnBAt={}IxXL#dw*;t_V`!h`L)
z9x;kOBCsq<-R4QeB1WUD_~xKyM5YS~^ckg@dy7Q8oyy108|K320RN1Gdm;|MX1bbA
zEA<`-O1+XOi9<bffz~PrRY>pNkc$|iM(q>y%`Q@w@BY0|rylnDfFL_G_e4;8<=hz#
z#+SI6xC9LAhVs?2?KCi>I77;cuWTIP%Lsz1zSI(r9GvaIvL_yvt6;lB>87lw-;qy<
zl7ZKzpWb{O4^=j};)f~fM|gq36wp5*1P2~zKrf4%WTsrl6%zyAJ^Y+%v{$POP>nO}
z?=+s!d&$>2;vE0T4;U|5+Pmh*jXlLKE^}LPzq{S6Wis9_sM|@f{ErLoLB0GuEIT7N
z^-oY-0DoI#qWd%;WymxN`82n12Wnkqn1&nKE90RMXAmFB#roO@KTyC%Ugfjmx{*2K
z4ek#`8vF5bBLm!|tCx#u(r2VRGZod;JB(AlSUKljUB1GXq`i9LB*PDZZDkEhiK3l2
zcldUc2UZ<}0d^N{x9)d3=ys}&Z6Ugdeg*nh@2o(FGF54D+KD1{CAfdI*&pXkx8VMp
zKURu{enmWrqjLeTw(=1+NWj1OJha#>b1fu2YeOAlXUFw{e-4H~oSAG6-TgxL$*{U&
zVQCyltQw3bF<7n-xJtYh(Cr#hy`4XGlde#l?oPvyBnVYFO9Mez7Kn!%31EXvu&Ja|
zAEW%y>Oe_P)uG|Zj|2w@nI-}C!80*;Emo)$%!1|tvjn=gs<-jI=}l&5W@dIX=k|QA
z7*1v-o*)EJJw_}=L&>aR#3p$bWFWIyY$-6@m77=LCCIE@++FzHXmV>VI&C0?X;14#
zxD)9bb9w}m?WFP4Wbo}P;)g@Wk#yeerw@nmYaq_Bv-;qhJ*rWuzgu!Q#J&wF`!bzp
z)?$cJd%EBp25VSLlB9ohb!#gb2Qp|Lhv`VIcR}tfdEw|>a8kHR5Dqv@5o2#BlMTWB
zER6T+>2dZ_H0n^*<#9)CZqIAt5#9ap4_MGHcX^BOhP%7Tmr23WAcTd)HT%g0iu7ef
zEL!c4&wdHZypbJMaAD7@5Oe<4qd-#O%JSCk+_iS^viJ4`>{}0{hKY_o!vn6(6(X$6
zbFx}x2k#!L5`=S;7rD#}7QQJ?pcB+5yzJ%pQ@5_R_%>YZ4nzQ0{XV^GUl$gh2fY$$
z_*`Zl%54Eoe%Eu^=me`(#!#`2BAAVWyjMT#%%?g*<F&VRue>^n-)1rGhw*Fi9rTP>
zUm&0R6=Pib30d(EsWG-^?q<qApw@7^8_ro}f%&I*k_f4wTAi>li5YmDNH1fm0zGtU
z8ZJtu5uGL`J_sU-1GYl8QZIjo7pK=jD?ulyr?=3*2*)eJ14Onue43q50fVb3+|i2m
zo7?RQMK(xR0;cqSpHiTpDIfscTGt1L(r#6EM0?o$@n>UFoW#B=kH^_zeuV)x-Y{e3
z`pa^t7yQ4gBJ|f8$Zk-2lZ*PSeEz_iqzALYgM2#lY!n+e^1C}!QVx{3e+KbRAe{S(
z9tt(?o<}$W>g(k77R#4F=oSGl6=#=H?aqEMS2t{;C*;^3H65K|`QU=3@~tK<k~M7~
z8&G6{dMU`VaVu)*bO>r=yZyxrR3)=AP<CoE|3~EXV;?l*S6x3oYycnFUAt~a%WZE<
zAKEXTN;}qm6(UtQuEApzb1!#Cz-OZKa!i0oDu_*l@9k8IE$v%ycl8#H;&A-tVw0kS
z+1CDP+sdv(wBPoZpIh-|rrqe{b64SK*YoV!!9XxLk!hnANkYaC^sKL=>=1y*Cx@Gu
z6Dq;|{|11=V)XtHO&_mVUOrX#^c4J7OtYjAa1QJ3wxkml76u?9BAQmyYAm*%dsN2^
zl<~MG($XR#+&INja?7Wj95SmCh^70Y5`)@gC!wsR+Yv<jzV-RY^EfC&>>(LnCs}4L
zWjqC-IE$$<s#lJ=dmbhyIbWH5jDG*&QgVC56Rbka`}IH(jnbeUq#~2?5&-a46V<}Z
z&7S+fZl)ESrZ&2ELPv#kYb2cZ0Br>beWDj-5fT+$C-6XwwN*~x3Wr0QFWC9p$jF8S
z%rnR9@PqBbl(rwaw=M((1grhUJ55xw9jdqj=b6ej9VREh6V>SKtwr-0A=Po!$cRP;
zboS6s%o0vOs*J}4U$P7u7Q}eP>@`~|PYLCKJR3Q7m&k=is0tNeRua^;FAU04(;Zrg
zU2D!I-%q1W>%hf@STKObHpe4qwh>fPOlY!xo7AS3zrE4o!q|PgRO-sUk6G^a)%&A(
zz(!XhSp<UJRpLr*z(|@dyTK@PW^$Td=^4IQ;PW|XP)U^znI#b~!-2v9_@Xuks-+0>
zI%jibAKi}SXMUniI6MmbWiu~O5CEbMD)OEzRnFPfy7X<Y*7=;#07XLIxWwO<y&f+0
zmH<wi%Wox#A|TeZI&le(=Opa^Qh@yw(X8iGcDX5v?Q755JhIUE>54+m=t_bLf$6VD
z!%{w$X)ZnFfdg_LiV`IMLqSN_rZ$j*AZ0faBI@yS?ki)dPw5a)A$m6=3QFj8sCK`|
zpP%FU0nvf%hzGw`r<GYkmU==c<qs${JS(yD(Lk!Q+zW}_B!X8p4P1YJC=|S&N!olS
z%MuS2@YGeAbYlO)l;kTu_uJ2~+T$1kI}e+`>mAUhI3r0nS$IUn*rpcleYJ{vJQF4#
zfUhJ%9A2-rx(3#c3~rd9RJ_}_rcZ5{6C{<x`(7srVo9B&=qMs^DOjAyxxih@GJazB
zl~4Ca6W$*#4wo1ap_Awj{u#TpyS-F*jp<?9N$mf0aVPd3xaJl80rRi~^6*Fz8>4mx
zLs1qIulYsy7Dtb14uF(quWY)jPBqU16gJ8|^zH)0<&@gQ?<*;cFC1^kK0=THLnRXZ
z@XKs^5@C-~lEj{~#gN4>8J+>>zDM6IR`Kz_oy#+&37ItLf#_WW1<$K2Yr=>u^V$^M
zxL>LoR<~cyuyC5&4*y2%j71<2_?d60y;f{%^$+xmkLSIwC!$P&gAiTPN)kLC2Jq;b
z)y5-yD_@Evkn}zrq@~*@{7J+wJ4`S?O07ZXMbMj+f??h(LqiB)ojHL0GN2}{pq!Bx
za7q0&p00#Teo_Ra|M+P<j0uM4TWm*Z)~++(+&Z_nOqz-b0GVvV=s}gHLFH_uzm)iM
zKWaK{bLWz%qn3R6z{DpE=5DDt=(x(2nNyKLz%o;%aAQ|9D@ggXOb{(m)G3H(<clPT
z<ir#<t^|iI+%h}klKB?Ks{lSVN6VBAj3pliMYRyqY7H`p@ZLmO;4ceSwq-O*>f?Mo
zjm_G(Ft#3dw?>%t{Zgm(Qu`*GquB%1Xij4wRRw6L<VJNzMJnoEW|1u|IFBAEc<dR$
zb*=5{fi!JTKSr|!$4@3>*$8YLPT}NOZs*~<Vw4b3qFu5G?DorCP?X`r-I95u8~pgG
z?=UxbJX@!-1)Hm#O?<@x(&xQ|&BAW{M=C}?w!t~R5wE<tekS}C5_{zgPW&=>OSs>!
zo8c*rbH^{6lSOyj7x+aBI+eZ1CEUb_mPvd_p(tUck+87EncYV=O5ChrJMoQ%TmvP0
zzM4$nnzWRDv#a+i05|>Et(n=to_Gf|78O_n|1=H%@){&3TuKB^>VYpJG_(vqp^sDs
zO~h`TV8yKKbcE+b*mL1i<9Y3x53Eh;<+|NSHVjl%RY_;jnC(_f!T{G=IQonfM3dQY
zG4FtLp_jF}J@MpgUwBjd{lml6UA-G5WMv!0p6G6;?{=O!0uxhg+5#SZdLyV8&OwZ9
zTUW}=&YV6Ke$NHa_JS}Z<H)GTnBBwK<`9<dA`RF3^`(2=IdzE=c?66o>EhE8Yr|NP
z*el|&eij!jFE+`)a{xEY#yhzo_0Hl`qR(3&f?TwKhNA<)ZIIIE7G~>qIv3)&^9uA>
znVUZPaoCUAZl$7#tzr~nbJTL>BE(~SViIuEQPA!Kw{+J^Tk{|;NzAM@nPxOX2dQHQ
zVehAfJ&Teb+Cha%^^ZD*f=af3Q#g6&Ep%n;%Yv^9fj{X*M95G3Dd#|2U-*qF;g5LC
zV2#ATJd3*WcgIU5y?oHRP(!BS+2*<?N_V2ZO4e7<oN1j4&Fnxu_JO6!`lTc?=Jd&k
zaq()h;#2Pacx!I!xo>cbG3D6=&|10&R=nd~r5otZss>8eCd9lr0;@8aTK&Re=)Vwk
z0?IPUC?1ueOuo0*o}q`fzTADcJ;m+Y1fzBWH-{NiIXkNlh5#&Q7~VxDslJNGNxqVF
zK``us<=h31Cd4>NFTsQuZ1hVS{Eab`XDw_|QJYnjSOo)F>M9PG^YyRD<C(Sqf!f$b
zo_WIVGsMVso^OJ3{w26Z)j><YMB_{MpIg2o8WTC{UsS<>K7~OFkdqYCd`eK%lVHlH
z8gZubK^H*aWRI%H+(1@63aR7g9$#v2;{OvUUj$D9lcIHF6}$z?Y5o2o>NoMFunEy_
zs|EnXGz$MjS&)Dl{m8phK*GdFC-YLnK9-A*Ei3JsC8z|KVmWrn*W{tb_|A(Nw+BUy
z{b54V(~|4@lKk<tcB0#Y1qBe6?wc~ACmrpZZ9rYnw*jB!7;t%*kNdV`C=`F45O`5U
zUw=t<{;kB!eml7b<-TQAm{7=h=E5oCu45qkY63B0L#FK;QXtuwPhZ(EGrD|!RHT6>
zy4?G0xa@#A#EdYq+{M|)y%hGsMc$5EbbdqiPCiNYM0WD36>&q3#BT&JnKmSVfsbo4
zRamMeHi#-q>~|x~BX_$Q4WVh#2@1vUol|=1*^m|hC^|nV7X+(!Jjoxb5sfhCt)hBH
zZbYPfSCj`=E3?VwT_yTyy!6#p$EywF1HF|WxCE?C`s!rI4z*K_lBt;N>QyYP%QT!$
zR=m4%gY!l$^IQD>01K&$BifY(aXOcs4pniqh!5a@4LSD;IT@&Fij&y+mFNV@|3Ap)
z$N-b@A0v93&`>YNVL*Dd1JV&kY!uUyE%A`ngc)YE85_#@q$X-3#HQ3GtUCH`{K_;;
z9|J)+AY`oEJ=uk1!=~~yr=dJXzsbiuInf7v)wg!%k&#w78W}|*w?|A!`OEoYjByQ!
z!+Fld;X4|M>eA;Eeo5!E-^>4_FYhkC9gseWfGnCQayI8Dp>u_`BGro%hC85tw}$%e
z=9y8DQ{Uv-;s9<Ql3_p4R*#JA%&081Q={6>lH+~n2TX8*;_}N<q%d8Ev=CVRVr1~U
z_wdV6PS6C__uW^e$-Nv-ksTixug2fdI}6RyMEumhaQT?FTFHq)+H)-Atl++l{fw6X
z5Tbe-s1eOSa$pDCUZq30aMiq`a@1OmR&v$)Vih5}{r?Dwf@Mlx=*Vt-DloG9IEX5p
zDW1M7c{Hp!IPTL(*jf>&z8UHi0SZTWb{pm3$Zs`O`aHaEtJ|!ltg5I+BWU&h_ssXH
zg+mO<S6fagzfEbV4+W)zRxHPmHJL>~a4ZVl88@n$7g@hqlJ;eNyGwJ~CR06z(=ggy
zI9ik4TM<fSYtWN^N!|{KyAQsePLoT4X!`8uP48qPW!hMlikznPQ!uJWYH|GFl&pZv
zs&}c^eglo#-vW!;#kf>8ZxapF<Jw9$oA_8HCI%!buw8(W!Qa4Q{fUjUnRDz~rX(t?
zoxi^s6(52h_lFQ3BoU=%ZisSieVFPt_VbabJe$r9BpLPDojvT9nHr~!MoblKctgm`
zP=tb9m=6i<fQ~mZ!aLZN?F)SLaI$$|eqhM4AI|X0ZExN!Uc?&i@}_M2Jy`H(#|gB=
zcGMHvQF2s0F6P4vF1`gzAFhbr??5f9?!r!PMdd}@mgezUh}1&dvBkt6RTy7zK+)-q
zi=!*1_>YsDJ@(1cKA5-~!Quuu+(fTYu6K@@z>*cVA;F8AD}uRvzBWO1N8qkbq!CQk
zC<&VCT+O@k$XPG|)&iHM_&K@k6sq?s<J8ay85e#)<%Rd11bDHmw_jLCwDH9!^3GaO
z>vnjBMNZ^8c%lUq+Xc)pu{2&AKXtv*-=yE>fT;#td*ZzdA=9U-=ejthp3HEd-%;dK
zC<#uLix!PSEtF>U1bn&DL?5XGD>}vH>m+n3O@cOd4&r!ZzGCRcW#^&ly8@*^Y?d!}
zX>E_pfpUB>!y0{uCOW)F?d&}`+%VCk?Y0Fo)V}?{ram878g&MiUW7DLAgU!orN7>1
z=(N2}{wuwp<%+Iqj2YZ4Cusun_gLNA;whAIx*ALtgLK#R(~R}Y+&bCO5DEk_(3EDi
zxm{=r8!tHrxsof6ov=1qEY$&`q>oj9qZJ1Br`FdE4i2mkWtFle>^Jb}eZC2tgz+#w
z(@mCO$(?4Raijd59^Bsz-Lm{G>uIiIbif=dAZ-NM8qzh?L%f|woINSa#HO)4yW;lf
zs*_*>3&=C4JWS80XmKmgdCD*sETm+H&w`Jl?+T8;RRQr+-;ky@hl`Z)OzE#JpS)vC
zg+T!VcsHnu=;8t)Zlpk6MGPsOAa5d4W4H!PJYJ&qmiP~sgi#K0RFDePjtf|IUv`c>
z+xs}#<V485jM7P|$s34Ke7uoJbi=_?0uE^&l7pQYgiMI_CQPW!%Wufw8_nXWwXY`I
zB4Zr|f9)K;rS4$(MK9)FMu6Z$r+S%j%AN(|p7jipKmI`Q^xh7hpoj-g?eHihBki>@
zNc#$l@)4@VMYvbZ=5OM9+?))O+-i|!-?Em{d4}=5ip{l17^6J!t)lRmSJo7an=r>4
zvoXMy)h);POB7j5(~WY_kUTT)v(aTc1V|JaRmf@L`qI4pjrDZVaUgS-9UL=Px2bM|
z8OHzjNtvNP{8P9U$E4ubJx2Gf{!2UgsKhVKeTSrSLX__jMa+O>cmBtHDnJhRef0k;
zl0c6O?#W{MR#W@k+MSfEJ)E+@CH%8AON@P&%pSh1VMn7$gj>)C%-yIX0rjB(Hb%5g
zuMz+fYi!?T0?{D=K}=N!gA@|l!2ms3$6<19pa=ME@0+3|WvVvS*PyM5UuSc4I_&$c
zl8U(ztOUtL1igIG8zSsz)Kn3~E-MRW?Z|ksqs6~<VW~Ur_2l`!&yEC2{(p25IA7JN
zs_Y>b5cWzP|FqkdokdcQXr=_lVh}o07xw9&X1*7|Nw~wOEm%Rpo_)^6y;pGJ`2QkR
zJzy8M_MimNPK@A~s^?&KmwUl8NB=<VAizH(FPaV>XDejpgl1@kCvD#$9WLm^2wH-A
z$Lt3|McYRd_IfXGLZh<p5{uBKe^x*J?)`Spg!HGaB^9KUxrEq&lerOq?XpVev@p&$
zkQP5}m5{VUOvs!@@bO&Z6#GDsCsep4)O);mzu2lM+t>sY&~xeC3sAq3edc1_pd7@Y
zbl2Mh$VpkQ>_I}E7<n<9`O{YZShD~GuU)hIMzcV~^s!Ze`Pd}8a0Hh{U%r{2B$Y($
zrcAj>pQFvc+J=@Lwe*iWj?GNqS?PYa^cLRIB`UV0{Mm&~F;`Y{sc(Ytzgs2qVvYOJ
z#b#FS>T8c4iEf6M6aFZdmav(nwEY}u?NmG$!B(nV)CtY?E*ZE3x=<={?QA&BOj85E
zV9Vm&cqunFOj`xZl(AF8IZD6#b=3a#D4D69#wFrj_Z;A|A+U78)u;=|TVKNdr}1F_
zb-5Ey%8IeM6aXq)SlZDSoi*ewBow)cA=_Y!>vZ)ry4uha07R0!P7r}UhxAvk(k;e*
zGC2(m6->nEVIjL%@XeYfQLRQw0IOhfX<k8T@z&D$-3uF}#(W;#KEUd3DiKkcWYb>5
z7KKbz<L{tUFP3);8ezp@>-=r!O?%s4M>A52&Yi6NK@5V2@LNITsC_g3RP+&3>L6CA
z4uUY3x>~3?={8I;c!G+<u=8JY1g$=qBi+lZv(`lzK=kA4wC3NYCInVG_e@1TDS<8d
zsB`x+mGzj_-DhD)Z>`%rmQ_uwe`SnZsOOC!61!?wTn=OqoMlicHMmkS=MmBs>}&sH
zR`^$K0f8nLQOdm^4lJVoSYf!vV6w29AX{XpmywY5D;QrrJ}U^(Q$y6~FyEBpuD^?|
z7YkVW*&m|8yzK?^ZiKp*HTYhx>K}wc?~@SkQ#8dP$(5TUl!}7RzN#L#4$6l7tox_b
zoJ`9@%v33+T7lKkNEpvStdTLmmfn`|C5&of$=*Xp*8g4U1puYmJfG?w@vjB+hR0~C
zwIoFub34VTq#BA#m4NK;n-#s^pJrmd*6vT83*0}T0_xYi`isHJRf?W%L0v$<<@r8r
z$053o!*dZmZ_i)XF0|d}NFBi>(%kX6oMh(K2#YTUOssHC(Uy}6f({&Ys;iqg#t^y+
zYw2t8Z#`VjG45FeK;YzJpkI~q(jfVGwumu(Ldd}7o<gpSn7i?CHVj~44gPfcSMXwy
z=bzP~XEGd6;57rGoO}ur*%mGg%nU~Hsdo`Yhc15BDn@m7?w9}iM14fj3mIpB_x3u#
z2?+!_t>aL}6P+54bs+?3h>=)VrVDGmg8M2jAjLg!H_=<|;QGH})v-w5^yAY+HD9KR
z%~H`Z_JC)d|3%kdN5%0)-Jfvd1PyM%Ex1E)4<0<YySuw45Znpw7Tn$4Jy_%J?l6__
z^ZaJscg>o$`v0z~zJ2SQeLj0%XkZ#P0Rd{HenVM+kxV1P$rO5NM^W2ea&S1$ghv`>
zjYK;zcnM$6n5_$3ldwi1EEP?V6(>D`Qxp5oYq!R>({VVkF6YClLr5_22qlKWItFbd
zAN95{j0qQ~gosD%f_FsdLr&p?^vy5uZBn}*M->HyLlYbQ1*SrP_by^a3ck#ZRxD}Q
zP$}jUXR;H50Khb{g=GJ*rJ9eD_4y%n3*Uw!A0!*6=KiT8_;Wpe(6}!<^EtY7KAiv0
zu3Nm-z)YeaW4^bMku>t99C5+ts#m|Noj&_-Y~vhC#1KZC?2jQvLkWqWOrAC%uve$`
ztuDdF7}@w^-bUH4+K=wq;+g%2`q+p}^IgV={j?0k=FFo16!YsJ_+>lqi-!Urm3%c9
z^S6j9&C-PT(9FY_MZV!|vAS5S$Qp(n?+DWQ68e}$3LD6*{T3nv{`>m_$Ht{(#(udm
zYm`zgd1QApIDa7JPN>kZjGzhD6`Tz=%G`pnE7?j$ir_g4sG{q29lH7Z@;#w-f9wk(
zV-`CKIg?YFw4JC!$fs75-aiNQo(;ZkFM7C|_LFjP%@y-hW)iUKin8W2J?ASCPG%QP
zU3VG1?kmn^yke6ePyXBo`js3J+Yp^Xz?CW1dM>GY?)+ui@1$0N@3JA54%cZTKM0+(
zF*>umdK4Nhli8{p>E`0)*ovZYm6Rmrw#ev6*oBocU`U2273I!)b4wte(vRx9NLBKX
z%2$O~mC5Wl{V(5I1PFLiJ<*093_7jMp-FgSJKCB)is$n)YpRxd7IiHdHq`?vHh27p
zIdU1R2HZc7-g?M&Wu*oYCP`a5s_*~YFLn0!xeQbS<%Wg%c>_&?L#v?sKPI*m9DE!T
zcz08FKfmOA{I+kW<3|A+`C1n7kdB+u-gv0}fDO)0Traj;lI1^9nn+Au^w)j2X-d84
zCrK`>Q-)2q?SG3EqaLp@<-O0F0Z&W4%mXN7e9)>h9ppcOn3tp-(tq(!rKs4e_67Z{
ztPpsgEeI&pE{LM}a5_|1QNhT?g;TZm>qYh`X?3o|(Ti?$hw|23x{y_S1|0aUF#Vzn
z#68``tAP|v6yvm3kU8XX96EQw+iH@5^oeVgtn-=3RLMo&po-7>=y{48>2s`ZqRfrS
z0i^Day^lmjc^`LtsJXb*3?`|+ej*x=bjsK~PNsuA9Ye8;<V!R=j%ke{R1j_ytb;Rc
zes<_(c%1S1k3%pof_lZ*PZhs)zrM{?!*<^X0pQq1ezyCH{XPjO0uaUu#h>*4Pjd*e
z=V)l2lgxMXf)?O@*w+wbV938+v+#mLZou?6=nX}d01IZdUTtcGSBU+P7gc73353Rq
zqcJKb1<)swR9cnu8jQo;koACHvMyBf_z%Q!z%FxD@SH)aw)hyUdmn~0Z5pQljXzBX
z-{u6;;XIYU0L7PjBbbuCvi(XWJP{k7vs|;!ZlgC<>^P4v0U$VYL`v8nLc2s95%kPv
zGPK1%;wUVP`$%_%v2M>2(LHGqJ^#d3+KJ4*c$6q_^-(phNJQ)JG>B8c7}jO0>9og_
znDEu`ea>`W8A?pS8#bM2&v&WH`=5oJ%I|{*w@8q*`%N#@t?6Ia9vps>`xg5_<8@yL
zc)9P(6Y=@6+Rh7}kL|rVxjb;OE1jovYZz2N&)NTMEojXr<o{Y&D%9%X2&w<sqXdU!
zCCFZ0_-lXb-yPQ#$vnB2&!oe`H`q7n__{i`-}rG9jQObIX(1+PB8ENK;x18e{%IA^
zAfQKieb)2&I)N3kesI_^y$xqv3b^WiHeb)Q`+Tq!Qz%u~ae1bYh-Jw%JRqiMOI-Q%
z`H0a1XY)&bi-LH&vKb;oLxdXF{6`b0QWthY3X0oQ>Hzk(mzMjV6tkt!cY~Q|!2rs@
zHUSS>DUJTHzZYwYz2Xs@WT%6M3Su}nd%r@5C!@0JUH;JnXjMJ?et&lO@Yl;m)Jv)k
zK`?9oiv&F)05cZvcqw5A97fnL!z$p*k_#VJ)d}+hc-<R`cpUpl&t8teMN2xMmB6N~
zzHY|F*9DH7;U|n?eQSIUsa=&~HTl8>Ph}&Z^8(2jf0x<nJjV|c<-p$22HP+w)?NtJ
z@vRUjg1UeGqrC;ubkT7z5WP#NfFYd98#qM?8l3^PMxQ`XyF|P9TIk!S88f;~G|By+
z;1yR(p-fM;K!5mJ2a7<`bgsK^mhSa)t>&_6<awFDwjJ{Ow~w>DKY>8@Z3L(llMDtn
zn6ftZ&vFW#>F|G|cxN;Jnivvb0Ke)}<<c@^y63y`C^85jqt^8@I#^-1{dxGHDUC<;
zl|V5PbPvX*tE7y@;CA`K(&xO*OnJI%1oj$TV4Q+X>Lgoo9nsxpEN$toI>-CX6<0#3
zoxVFg>o(qdtJ-`ajgLy)s@Rw|X>>ri@a)dzj^It?-wo$L1G2RLZ%Yvl(USF<aO>2$
zU+d0t{bHV}8)2fQFif;I3=d=1@$O>PUv9+!{1?@^Z<@?cH^*}ywTI1A0J)hF%_);?
zY@pyU)c!Ik83!k-6x$#(xQm&uGy<;w(xw0pAy6U;9zh?qoYKyu31Q?@ysa<o8WOKA
zV8<ue7dX|y+upwQ;yKu$R33nnCrZ8At@$9z_M-`xol2R(KlMAXKeSZFmgu3jE1RDJ
zr@0f!@lyZ%zRl0R;4;5t;RGS{&o(4tRP}J_#{Uk*kaEzp`CXX)o;sd(TiC(d3qXvo
ztREAtAU7zKrDS>j)>6`c&h|6z(Hl|$$~+a}`@`h-i(ex}^$(g`qUB<qB_Dr^mSS;D
zeQV#2fM3|$zR*A6|9=<tXb0UDv1k3kZgvuYmy>?zM4z4{3;7pA;IMWdia+Mvv}7$5
zHoYgV=7g2|CJ!Hom`vHEb@cJ<7uD_OAH*)1i<<`SceQB$Yf)&_bwFPEs!2F7M<2j>
zBF)qA`G=;*;n5pbL|*l9LU%s1RH5Mo9P2zx8;T-5;~pJkPSJ1U&Zki9qQ?IEhPujF
z%sOLrBFh60tgV=uocgYT>5HA8m{^-u4p4$2`)vE9eBB8g&W+P38}=NTgp*pVk;m71
zu{tVhYHptjd!EY-KW6%T3h2!((l$G)+Os>naCyK;jYDx5_}Z^V8ZWDQ8EREJ#f&FM
zt-KzrnT6a<!iU%`MOqRR<x241WSNb8v=8eC6BA=PzA-Hm<RsTzs8hj(s{w1qP3SXJ
z!g$BDLv-(__>QX*zsIguo0Nm2-RHSv_PJ~g)|%;=j?fo0^#Kdr4GDBuuLgLWm5=`c
za944VpzL)4O)u9Qo^z#Lzt+W^jOPuNN&Nu2@bs?&yE&e3Z8&qhJ*ziDjRY$|moadF
zuLImvtWI6|6RxLUeJjGzXD`BboQX&GJ|Q@!F%}K0%sb}Pk-v+r#yl|DYp0sWY2}r|
zYh9sS*R1~{Pn7H6GRm`9zjgzwn9Qv!!NU)jruVk8{S=x_fbJww*6BKqiT;`G4}9X(
zuIt}$m$o#Ai9IBy^7#aSCmixs_KS9;*&tk%>vBpB)~kMIAKT+;ZaXZHcYuEzDLBve
z#U$ke+|`Nc#CCBRxPNb$#XvpDB0>oDG|$X)_*Al`Z1KZ_n!he_NfMk3|FTZl_$B+K
z4?PuCVR?)7`Z2?q9uC9J_-}qfZ=sAMKB>Z*=nZmX+C-^tax&yWN}pAG8D7?QHvmVu
zci!Orc|?p<?cpf<zjY~4Ld7!>#X4ts8i%vDS>r{g<Bu@r7$L-zWQqvFIJ{aCm<vMw
zn89yUGcJK6)z|vDFp%d{kh<tJ3$=Zkm*Kw^15r07L={saOhimgZ~-p)mSu?NuTmTL
z#F*!XVc|}h<9-Txu7qiNP*)(e4Umf<q5Y6nF-@SucVS<M`}Nak9R8<2NG6v>?sZxL
zGB1TCZjw?Pcj*-Snvx8_&Q$^1<@e(|ob#$I0OGc}rCvMJGX##1vRu@D4>U``Y<e2=
z0_7gw2uKzhWAnFklNr>q6ntccU3I7LJ6a<xQBIKpUiy@By(Xfw@*%-up6~?|{4O6k
zIdD=#;lv`Wy7M7@PCgC*2EL!T&;Pf(CO1mb&5rNH+0*eWeevv?DQ!&2Cy4bm@0;>o
z)my@Y#=dkp0^cTpPHZmq@DtYH9|UvrMkkvh5bEAV)vaN0sS>FVwiFM;q)5zmBbRow
zIJ_3hxO0Gt7boPtO7T(c)St4@kFxvD@-3i(?xxvli<q|W7HnjfMi{-Ze1$)<#R{07
zCbZGoo_N9e)a%tXA~NCqZLxBabj&vyj`-*wNuz~#&Z;^P<V;za;aP<6ZOq|d2c*XG
zh3d&5_dW2s2Z>yMyp1nASwyI}%-2Bac$2?$+z_$RT5Go!4T=ycJ4psirhJ;sk*ef^
zMzbwGoG>@PY{AJS?dBK!IaRZKrQ~<aD<j(gog`~KyXyJe-f0TP^yQGV5IGeL5;9Y$
z@FH^)&t#-aXsUboBVLRO`nd&D(PVsyF~qu$b8UTTP)$x=N9mup-t-K(1J9<`V>%DD
z;6|hWUrcuYPALg0=l_7RaHzPi1Yv0tD}pGVEn((ILL6WIkNV6rr3`_M7M-1yLa5}V
zZQ(GaD8raX(^yr`6a%5IrY2!R4v|`}z49!Q?uQV9((~gfT@*;BFI>47G}zQiNJ~3@
z)0g}(<duEUo}W|Lg>`G|G;U4}qSsy8Ao?*8l#>)Ru8s~yzSPEI67C6697XodU-XeZ
z*-A|NUX<p;rEP!i&;Q*&T9&$?m1{_a*Y1n?*Fs2AIRV!4vNEGpw&^j~Z=cnib&INK
z`trM`g1vtMG49iFMjRWkJN)sn)quEg^tY-rz4-A71^CkEnc4Txb>0Wtl@on%hD2Hz
zRH}bA(O`ky1>c<Q+C6}s?*S=3@I9tP?BA1=SA~;fbK^Q+SN^`PsMp}f&5-ZYUItZ_
zx2Ljk^7sGYVL>ebnOy$No#dv{KHv5&x@J274Ni!pMt)mOy_{D%OPrt_aB8gbD-H4h
zyy@@IJiX!z?pks_Qu}VXeHb_p;6%|@vMqU-mxE02D>|J|+-+!Dn9oMth=ty-7rlc@
zzOM<on2SJaEC@l1xz`-!Ar0nS@M*9=6_reol^I9etBX8Gio8W*v+Mrnn%pT_fdN(F
z>nSt;Q#O9<%d|1il`RB4PR8?(kq1IPNm$#QWB803;Z&~PsI)ARs{vDmbXkNK<B{(C
z4Mo;@OaYlfNH;|Rn@YyZ5{h_tmU?!+p6uG&*_k7w6B0fSa;WzFTvo8rEhZpt1BNdn
zCe+g=n9E>m_QE{}*~HltDMamDVwnMUuMVqP?$$j#2K1r1+C(v1)=2yN^v=y_W7_|3
zFqVoYIW6r7f@Hc!kR;_CbBouNm|r`q_PU9;g(z90g{^4gVw%`gsrM8BkqE6T15r31
zkWj)Tq*%+P724}mVWC;?FZS0ZS$P#mD)Kjxjc_E+vf?sTi#%b~puQvXt>eoD-D!4J
zjzvw(#iftao1lQ~|I7WUpc?!L^3OZArkL2IdbcE^JZHI$nwdr(1uTrcntE;z{qGjV
zc)-w(JHR`(d_y76B!>n1(<!HrT*Iu$e2dX%Kzf1ye=H*dAqE3~`E5O#<PkuJbXn4R
zAH9G~A}&wOQoS>ehr^6x9QP|)XIT+KDj03n@}UL3<ndl(X=V#KAx$3Q)RE&o%CPSb
zNf!8Zo%_>|!n?!X6I{s!9~@955-+;|U%<M(fcf5tdRrndwx}`=e3&t8yemq{XnwdZ
z-cx<^(+Q&tx?@)?|2}j_Po}}ly&&Y#CwD_b?FhlR5_X6z4bK;M8Y`=GN{H;Bh7Y^l
z)B+8%mI%CiQO*H^i*bLaT?qYa<o|CzHWSr2Dyzp%=6~_is9jTK6KCk3<6B$oy!qcM
z#ZBQre2pv8wmWTa!!-sq{w4qQ3VbvQM>{k_@XN;^`>oDNAtk*cD_=-wFx&e+@nZ<^
zY=ZoA=tMgyTNoigM_m*b?M9zHZWQl_|F$}d_2YJP!h$eJEeVxkJ*ipT8X!(iu8dd*
zP!j4q2E2+&#)Z!%x?rwL$K~%&+}mNYpI?qm_WZ!9r>HqWCD8TxtrV=cNbF>@_qD(N
z-bixRLxPAYl<|bU&U={JHlb6mf(kzP>H0)0H^fYT3_wu&r37^a{)AIRCP_u;ve%M(
zH1D3ASn7tpQ;+tUiSeXp4q34kN@1P1e4baTu#N5|Qg;48<Q#iVMeg5bKyt}4dYkur
z-?XwuNwsIaQLJhPa*}A#?F7$vqbv=UuXG%W>h#o-t}W{uX8{&UG`u1-)9o4OAoa&G
z%@#spq*~F^Zs9;q^|H9T+}O2pMHGrsdJ?qG9!s6gGh2R$4aDXTNX(_jc%GT^kI#<S
z?V8(5(97UlGt^I2xgETKk%)l7KHDRw*8hZx*W;7H?Kc>Xda&rex5NKo0R~T*hjIVi
zSWm*Mj=6puoGzZyfbuQhx3@N0{)=Y`s^!wG^0(l3T*OS;H&>ZkYS5I=)2`qc+02QH
zIfBMFd+~o=j;lcww!$x2hz%}Y+UX#`9C$^uqUdHdXOjkO8UV}bW|b@-B~S<s{L8lU
zV5^{MHa!}u>GKeriplWVr<(^*EmO-%{m7i@Td4BC5qC+AWCI)YW1tMceTQ}4A(7$4
ziLlPsWf2c&ejY<{-v2^#4wD@t3uHx1X%wQT(qdhlp}YI1BPSraQXKM@j*L*LxjN4!
zYaEM*Z&kZSXf=`+Wn0(6)Tf@?g7v-w`^A?PHWK+B!K)$i^p$BbJkAHxv4@Q(fSe3M
z2nhU7zGR%!c-|EQjGC@PG4&KNMOzSfpXLY}^GnL5v->8pMY=}|L{@BG=siR9&8!gV
zzyI2Ba&lTC7=2vCnVbKhodWWblIAj@a~&ge@UH|*eLkyUME?Cxy@9m|eyulS*1Lq0
zdQbxHAlPsb)86%+(W01i{1=d+!KmBz^Q;AcETJpDn$(b7Gj=z<|6p2+d7R(e(*jK?
z>9m`>UH0}IOBMGs#cc%b3^iw<mYR$j#nYG_{TSriMi^$Ncg@-oUWjYeV%r$DXAi1G
zgpOZp6Dfpoae>^&YA-R2D=Cx>CpmQ5O}eZ$*mze(1%d{mWf|$282c!c2kJ>lkWoQE
zcFIp77gp78g;y|qCd*n|g&8Z0idd|cViGp4i)%hN<@`Xcb(?>&2fY`ST9C*aeYT{m
zuzMz=H=H-wjvbP0`O#hf_2uz;e(c)^d1e#jHJdu9{|ar5b?gRb3HSK2oMa04{Ye=Z
z(T{NwNi2{*hy_+$({PB2JFpv|zJ#1PT!>(5Hej)OyZmHfQw{Z`b^s()BYa)NrZc4G
zmWk+_mT@Z4x~1%DRiJ-xzTE2nABq^H32GWvYI^4K>?8|>jL8Vdj-yV1h-!t#W7qdT
zej|PyDjh2uI{F_ko6_-p-5w5r&l;EdW)_j8I!e2t`wAD5*pM_ZQ#d!?p;aMPsooDE
zvLUvjMMpFLqq~jNEFTw?yBC6M1Qqim7BzdVFn#xpm8Mc;0TPeKcp0fmVWyrm`+k(p
zI6MMkqQF<Ku*NQEO-GNCiVD)%*;z<Jbt$t#ZbjyU&RHh31R(<sPGiN5KMVrkyAj}<
zZI6=Z-af}oZax#*<GCFDZ|#=;(G3iKUs-<}06zdExTIr}<n5p0*38#GBS&jKzi+zS
zpUtUb)|1v1AR#;W=ukk#awjFOUxBuNXL!K3nf=iA6krPH^@zZ2ZEi;4FK>SM5UHa;
z=?c$8@c$QJQ@p{;kX3YeLlNxQ#h1N_MZC^AV~(MR756E4E&cn4y$KoO2VDLLVl0nc
z2>-@sH!0C^;1|XM#@>&N-A?cFeuf)Q9r0@*`?p&`U?TTsF)pFBDPcU~|6TR>i!rS|
zk7h{nJ&APTUlE!3vjw67hu(5XWQrE_?8&goSQ@G?9Gia=HOuD1Eg9WEe$5~{|8c=U
z1;djX1>b%J?OtJ{b<0v2L$mG!t{hfr@Q>DV+W?_Yt&L0EC#cS=X>@Nb3^^R5eA-7}
zOdWN~)|KoY1uKG53wWK5MvsnDeU6IwiW7<Wwk`WcnL_@xa4)7cTJ#TXwnc$#cmzwt
zM+$^~ZdTA^nJq-4x%U+IGZ!jz7o}serrp!Jn;-SC_}NUtK7ata(8sn>_0Lb4kQzii
z31AwVOA+T^|BE0S+I{SgASmZ--8<GEi^MfKCRl^cukL8I^4mQ~?<@<&gJd|t?II1<
z_y{K)vBV7sSfRd{SYN}3pe8y_rGJ7{OZYLYDP@?9WG-4bb8~bk->11AHm{wX?sOV>
zky-3p#8y%$^x*=1DB*p%82MCXpk1PnmV&Gw0II8M%Rmz3ll2sk&dj_6MnZQ{p#0#<
zWhZAmzpFR?54)D6&dW3Tm&;7lpzLcAU;G6DJ9NTk)lGlwh{L6b#JPS;7lCaUdEoBn
z+9W;#eb$4!e)pd*3gtG9|8O1%@Im0j)J16>v@&qEHtMI1bHfp#o3V(kp^rTSjv3wX
zkgeT1uA7TtH=!}yg>xPQ`YvR!Un-$I$NL4?n3<>W+B+n(pSiAJ6ud5qty$vT!mQ3A
z6S8e;+F)6h(hvlF9{(b5486|gP_~H{O3DS48q)?z4NKw8nOG)t%yu8y%8@bXeIY`m
zi2s&frff?`0MMTdH3uQxC_T@xsn|&!{&I!ERKWH{p}D^4-?%4Yg<MJakfPG?3!x~8
zu+;6N4=@7v;MPxFb$mVd6)L1vMJEl2Y*rs|b`Rm5p=fIpm9_aYV7dN)$Wj*KQn}AS
z3<H7(xJ&z4k8TJc_~q&u6#V3fL9*{R#LQd#2%g*F|F#{ZT&KLL?6Iwl>x?YA*k4%j
zYx7<Z&88dw^V#u~V_<cqSe0m=nfes~pR858wSbiq6v{I~)wZi5DE{VDGm>3$7)Q~#
z<iwUeCrFSPWe}@mwy`gr-hEwpE&>ZKIYNO9akBi1u4XplM>v`hJWAJ>T_||ZiSaFQ
zIVC(V%UXY3M(OL;d%V+%FJ=dY5O<Q}Uy`#(748HpdKiZ<IS>+R>nbF~%X0f{<;v1l
zt#NIbDmCHSjy>NcNZHP?zMRn+OV0;?o)0WeSJQOLi49dFe_{L~#UC<(N-NJPH-ix=
zd#va2G=rSeMqnx72~jLmxCrKtTXPSZ-}0r6Eur||W)ez_XBd%Ql>Z2wp3lI3i8nlm
zY?Et<KQt?#irX|lDWzHb*2Zjo|9_G|K$q*U+nuM*`%l;q<pEC1&r9Ob*M7;6Gc%Do
zpYNGE+7~X(!AN6t354Mirf^dXuoEQyi*g7PXA3m|nm^^vyslM(bkx9#4!U~MDqo1E
zeHa;%%bETd_sK$oHE8Thj0+u(-KW25&oIAX2T`Mb0etX3gOt5bZMu(Hn4R(sl1v9T
z54uokK!GJn3MvV}h?+;B5ZJbF;WtFq@kEqp2>*#42Bh_};|nK@9fN-`AaT|w7@U71
z*bPiIoUVXtUXe-vax$l2`*mvnnA-2B0mYz;bfGvcT|dVoovq&3Fu3+l<a5HJVhSJ@
zZYBKGxa!MDnx@&0#l}3Ig>C?do`OTei#bW9JaNNb$wqVG+?W&<P`x|}wIFzqRWNNE
zvqM>5*sC^-DN`wJu1)>jY18fk=mXfVqgmhN(q$jP939S_ak3`n4^phJ3yl7JC9Tgm
z6dxV{Y+49zj*BDNbOzJ)T1yo(V7&3q^TDPkXh>tC=*{H(CzMhT@i!HFOh1VJy$y-{
ze}s%DmA7*b1V|K!$xKcW`HT&6Q0}Nx+R+jlezp2%l_xhLI&&F8=?B1Ru0m^*=tjlG
ziR=dWIO_yN*TzDq+1Qh+_V<H8I}2X=z7>0v+ir!d_Qu1zS9x`X0f;hOuu&uwH)AMq
z;Q{5|0i4`E0KU)dn+xuw*AHBkd24K<b=M$Xw2M7$1K|NEfm9tuLGdC=aD=Cv{@vAg
zU#Z*4s@s~X@^fHSt{lSx(~*8mtzSJwEoy;UCOdWS&g#Rg*=$(m{j)>+mKtC@@<=%N
zsBqoFQp6F>Hj(@1H}QY~&5fJ#9SY^Rxhb^e6$t(6zaK2ZZh)a&2U@xH5K6yS=)aft
z@Su|NaY(C{vj1?t4ynyyw7dhA$-w0Bm~>0%y&UWARM~rnhUbdM+iyhljwH!-@Zfto
zZhQyem5G#VL`?GP;Uv)-iPwVu=P3Zax5uxg#LE?)DrZO)6ik`D*()3R0Itp@Q<8zU
zX6kMzp{+t<(<?^u{eJn19$o=(l)G9qg*TjSY3DlR;+{|n4iDm|^bm$=4^+P2a0JS<
zG7Ew<jxqnyp+Za3lt`~kphjg**kch3q2Ge^NxdgAkqvHVpIRiHEVRnwVKm*M=OB=v
z#rjAqIjffhJo^}Z%`?vywz7HS;94q(WwOdW-7C8K0l9wTlGXj6fUtqi#`-lj)X%n2
zz5SCPw3fy(;eCJh#tK_B)Hxh4tK&5O{y%TP1Q<g{gH>S3{elB|o$Mti;(vLAh;Xq+
z&*X>w?C3JUnT4#L^hBl*;?}p7JFu=%CJ5nwHp}#GfL*Xeub<qiT+iQ}X-m1iMhPph
zQl(TYAAxcxBui@mC(K&D8nHi-7h^H(d2es`5^myQ{GaIWn$==Fa)9xTQdz=?q067t
znDGeXoApA?HRmrW`OwLEGKybpQ7g437x9-)H<zOLx*t+$p*T}#ZcAN_kF4-@;rV1~
z34Y2Bvs@|ZL6_1;t7{KQ6z1!tF>K>e$N(eAJYd8c^KdrU{5<dSuVE;Wr`S8mXaDIm
zsdui=FuK&7G4pjIgEgxu?9)Y5bDnk+A#`|jo+xEgMvYZ@nx0Pe?GmcJ93`t^WlJcI
z=z~}%lt+EhcsDq#vz3EUQsSzZZ4pcLoUKNV7W^)$r11lg5R7loF+4-#Y^h<Z;W-H%
z8DT*n#`Ywoj(D5(Nw%Uw9$=w%Jx(p_8DiHc1!%bDRD>=r6Y9(Qj<MhT%Pq4ef4^NX
z-VBYnfwqh{yAjHappMmj>7gaCtJRpf(wFEjQFNOiH_{lUAd3T+{8@eF0rsKq#~QXg
zh1jcTi}edOO2e3F#YgzMNShU#!gJKCKi5~p4fbsi;@@<v|4R7gECrLW`RdLnT<dyd
z0QqB+<__VyKIW&D0~EB_FTWA7INGFN_dVVfzEQ#W<LG%3@OPp1D0?mDz+D;heSl!4
zG~t${P-e~0rB>$5U;n@+6RmbOCPi^Qg@NJ3dHRR1t5_2#-TdpV&2}B!=5#?dZha!F
zEvIQ`AxNGda65P?rqpJXF{IN`%h$dq)nJ*?kgvZ1iCDdc_ZF@O-u4kj!3dCKV*wti
zvsk5WJa5ZvKQWjGB?9OW*i;<>`pZRrJU~+U2K_ph<BSvG-_90h1{7^NkHrntgPi~n
zwQ-6;m|^y44dSl@u!PejL=Xm)Xa$>DMx-rVt^N`WC};CBx{?rE*}So>DdtJk8U+9+
zTJ;hiumsC13|7^H-;*HKFxP8=B1B8OtP7H*&-)x}>+}f-$3Pq_0y^fu-(i-A9x+|U
zpNYe=GTUTUW1Q!Cyip;IkGeJV0JLTgac5JhJC*y~0V&GhfKYTOJv(C1w3v(QxKeCR
zQ5;Cy>5V7@!dzO+ib(nX4Y5WX&A0#xUFlpIKy#&s>hg0;$usLYKcKPhh5$k1TW8h;
z&4Fm1Fd)z(0144W_MY0(MRx8Pq8G70@O}1Qxh5IO*UI#J?oS3&&9{CI4!Z&(i#-W<
z+A-0Dot#;3DU5gZ0IHd2h+efL!tR83@3J`-P=T7dI=uJW;8?s@xL2+1?A&toMB_zE
zf<`FTvmyL>74a5np4SB5(%LdzEeAJ?_^U_zPAiX{>g%K1)#S0xk#HVjj?p*oqW<F%
z=ML6Nm9B|&H=?(c<0OG876mvNB0vxW3+{*mCBcJ*K-pK(@z3h8)=;VG5^#d?43J@J
zGpDU#Uo_f+h5`%1`A-Jr6TKQ5+;L?+((SUlibJGm$1JAk0G`IyjK<t6AoTd9$jj#^
zLw^<7uv-)XqzZi?Ixcx90(C$qcN4X<t!|~ga&`9Tf)#p5g(&_C#I}XM{&EBEjpWK_
zErAtwk3~Fd)h}Ys-^*yklPwiLW2YGvPi%`5ds+nd68s`z@ST9DjJNQ(47KT869mva
z7|?$v-_PSKDizHa1=>%0*Y74Wk!CoVO~SrbXRA+XG-qf7Sw8|V4p@SuruEc5((Rm3
z<y~H}9_i>r_GScSN60SSS|PDgX0{X!s}!&}@_6G!-68yVC<T!Bgb1poO-Kuj9`#5+
zUoVgIXqa)r4p%p#k%DN>e<5bkuC|qU`x<EfQl<JscmU$$pfP#@1+OM)!;RE1sMaI8
z#i%j=tHZ8^`%QP(=_m<KPb5@gV)u67%UKLY&X@jD_=IGgjR0k4s}D2yb<uAwcQ>6z
zoJ(Jmg<pkgoc3Ty@|cO*H2`=e%V+LI;Y;>v=g50I{0=_E&{g*N3gpeF9sotZVhmWm
zd)kQ5Af%V1Ql5kXA7YJe`rTir4A}H|*#o%@$&$oGmhkdfa@x!|RXlb^kgdp>5~T9I
zKuGA*s%@FNJhX0hxZxsRtn02)%Y`LO&8fFS8?r@D^_~1+O;g<IV|LY^2!hIojiRrB
zm<giyrRYCv3aXWO7rK|g*po1u>i;CYy?*<G3dDv=em9{QLlm_%;L}*Qt>SxG3PCL~
zE+vYG6dJXYpqin1y*@Jm=CME)`c4NgkW2S32?3uarW|Z?Qoy__Ez%t7_ayJGdpc+F
zOaCRkEARqZd0`6hfcXEj&uV*zmL`pR_4#Ls$cr3@x}M0Y+@w-iqeK$Gh3g=NnK7Q5
zxF-~^6OM>|em+QDO2NnhwyA-F525xS)GC<a&+8A`PXn(#E5gpeBKI-xqu|y-ahFW5
zbsXp+5_B}wV)6xHK9xEtcXT010SGtD={9u&NpN{W%kj!zi&cnKORH(l)>xY|+W^~B
zmFE<EkrM*Sl@S8*c)qALSjd#PAVYqV_@9zgL?Y0^pn&^muW`e19<bH;Zw&2q)GX+Q
z)nnaX4(f}qt(CLe$!;b}yfqKCma-A3Wdg5<TUhJQkf67Y_x>yLZe>c0J503ntCK8G
z@LoqBy+8`su$;J46Z7_$h%T~sAJZnTvf5nhSEG^3CV@(qP9+><c`I2goxYmHMwsG;
z{1#pv4!+7&wW+8czccay=d+UZU7U<x=?-ZFFkc1H9amx>d`#j3wlr7IE{Q~=Pu!4i
zR%^3RSts_}8MGStTB~1hFYo;e$6U+9F24=j=*dJ^8)}uaU=h62pBKbh%PMw7oA(Sv
zN9l69zNklbxPi%naD8#?q&mK*=7ls#$}8H-_5P4w(rI0MS%zV_r|+3-+OW9mI2M`}
zO+?s_H1^53I13eE6cs2Jh4FN+vasDl4hY@vI)}dnIjv$?;DjHf@!83a_%c66<$dQg
z$!6+mXY|j3!M=Ce+6s4-9H2H;W6XYH8-Dk@_B&mrNKLSU^$-1>6IXgUY*Dd_8=&LO
zp7btT3M;UscM(xiI^>a~O^u4ZcrIOt6R~6szLDk<+SvJ=!p?P&mFcdZyG@D1;r)=X
zR?+nH@v|xzoLbwqp|(dPP3_-BS(Y4HB=7GAv)^tlmH)D@`PAjrmr~K*X2sW4x}?;;
z)g!VucH{;<bI&h^(!#$V2<yYPA1Sq@4BG+epV?|`L`kcZJ%;zx>e-UUd$#lp0-X>N
zvV>lc8cEObK7#uv?_wgd;^dAa*Xs`#(_e9}kfpXIj7rHrZ~WkI!@L2n+(y*_X##o4
z;*tB9{;FkQO2~^j4wvN0T<QR0c}3K|86XDe*jEsa<SiRsI|kQTeg;A-?st3ji~4(F
zeC|Ha`1VAkG4h!k|5V(9aF{1*!%-UPDVByhGSk)m_5r*&t~px9@_gN|xVe+DS%hP5
z?C8NUUh=iyk~(+Dgq9fF;#t1P9N*7c+5%?J!MC?Ryn*F6n9WgW$xx!A`?qxIXa{?8
z`?ufTkif3tHk6I4dF{QgF|xLyuYJz;;_RQz-lCI2#S}v>dd2W`HIL_!{OQ`dhsCz7
zI2X3F+bpl)6vlOR--u&hGx$inM0C-P(@sYv`mpKw^j{g=qin?tG+**tliSWf!Umxi
zkD>Za9)l<#pEbR^A89{xw@cmH71D5-JfVO~q}KXVmO>mbfC=+b6&R@!OJ(dWGWU>5
zO5E<+c<j1gu;@w6hr!Q_?Qb|vdehkI-l&vT<5({I_~jOJ9!aBwok&%Z`|0YgtGw2y
zQfH$gR`$HWlnL8!{Q*VYLUj*=VAxh9kJ;(lvHid{k#%z#guS_Ya-5E8kq&cAr}Pub
zkpNo#rlSR=YD}NIO{e=?D*1+Yo(RkN@`#a=<=K_IuUCW^LC50-@z-x}nbF(fEQu0E
z?rro+M2kgPAWQj&E-4wi1QiH1o}ZpYc*Cs*l<A+UR;5kF4!Ik8+D)bS4}I0#q5|Jn
zxgtvvh%+HwxN$^J#x&kW8XB<~wIw|)GM4+BBS>j6PgI7lJU679!Y?9s!#t8XUVgF_
z0*eXN`mWVkwlb*Nh}fs_{<V=8!qcvOjdf(RFG)|`T=nGlT6x~PDcW%@ayY-Z&d$oB
zZjL(<KFAXU(rs@Rum}&%G9Gi5OB^%jiVNdXt)+14e?9A9cQ?@dv4!`9jWTD?_LNYn
zl;zqzAUXs6wbXIWi>NUPcTQn7s(|(4TcLAYDT=Va;vrqKPt&tI-ItL&Pl^!8*dScx
zQWDnymRIo^*cgsNM(-gGFYU^A^JDAq1={tF>o=iQjIkhzXk+&l0u<N-DE~qEU3xt#
z$}ABh_r$T!*p;-}HM;bIXNBzU$h#`ueJL$R{NG2KKZ?xpzGBTi9r2IRt$>$lkqo9j
zsIj-LI0;Imu!uvPbN!q*a`seRt0CdEoJgOLN%nU!45|~e<6C}RhWSfDZS~{ofL&~w
z&UWMqEupeA>tim9h9-ex_j=aUy_!Ui_u%;LCOW=uT^wFmmReKr%vaWDkjo%ctk!5(
zB20SlvyQkX9D^qR-<H*gP<=JUomob9(K<0;NhEG0Wja~z&oy(P5iUQCq3v+A9m~3V
z$~{St)7?$}8q!j-UrL#P`MB-|3&a9aSGMbstw$IY_xuX?(pOBYK3UZ)INj<>mWTeP
z!Y3m^W*A6hdDe*ny0}Rt=T)W*fvb#LI?zxg3s?~OtX=c_*>t*V4c5^lNXa_wFaMj<
zIf1fTf6-n#qQ~JVr;(q@iq<@bUI9h)Z3{+6=b+P>8@Aq2<Di)so-*de8-#|E7%pV#
zdt>v<IT_Ta`85!U@$N`s@-go&qSc?@?GXAic8wJeFPtD}T}{8$dIIN>ygWg<_SVFp
zZ@b5;EZj!{{etk}1jK*c>!Qz)o`gIhj=17n0@T8$UUfp)fnb)LYyJ4$gc}j*?eV6H
zO}yl_{Defh4lY<wMONoi%kD#e4n*5<v#wjiD!v^q-P#g4_>^GsSK8~7-<y-+6L3&E
ztoDZ@H@)fuG~DNX26dScOa|;AhD2%llH8a*yxAgYz3(W2@xap?wX<@2B@4SN$sOK4
z5~{8bC(yTZ-v}~oVS5O;sZ+a(ql6J=5M30&4L{fyEMhJ^soWznI*J4GOllp6;=oS_
zh9U8kyW?X{ofycdfpHHzlxJb!`HR<Ao!9$`^;1{e+0OIdan*}PYHs4ah-xIMP}|Nl
z=5QeLk(6BjdnolET?EN)uVO7CtwCTGqk+}ZYQ)5HdusQ2Wr<X?)w&{ImzP1$1V4f=
z7Ki2k{%j+#g9wLD>-2+6DEzyJTqaBv^TtQo6-M`6(dkzpIQ(@tG2E~GRS$5a4%<NL
z&-dUnbz!b7CrUQe&$bk1vL6=JBEs&_KF(i+E8ZN{tW(bLsN@`Un?g;jIk5fa;FC8+
z)%`<lfis)w`B)%`RG!|{8_aTj61}=UA<AF;IMqMy`+69h`)=q*<Azy{AtLsrAao!5
z$gJRbXTd$2F^)L-`o}4^vm16|rds+pE=&iknPV}Fgx<IXZ;tLhKe>q%-J18KCRry0
zPh3A=DND}96i4ZbCVr!(-Orx1I1U?uA*hV{Uw1}%Hk*M%&2wb%`09Ta>i_g*#>_iV
zHMX$0&*CMulNBG2{IVQbf(_)@Ex!`h>w%5vEjCATG|#jMqnwo(<Z=1rqpEs^NY?m&
zzS`0yvSe6;8|N=uTl0PrqSjoErL#tT?R7%Dbz-P2rBGlm6jA7U=4rDR;D7<c<J^yf
zr8tR0Ot&LD%bWDpXB1`;L5<*s1=_zBnKip4LwV#Jo4TzaP@$S#g*<*-2v4&XM^Yt@
zutfkm?!B1gYWka@j9%L7$|C(b-|yEAK_Cy9yY%6al;YQY6I3dr|1x_U53~iLH8aul
z0Fw<Do!q8K8`SOikWl5OiE)Dpl*idw&=@6V<+t>Ujee91&_^_<Im5?Jy&*F{8q{Jp
zY&>Kp+GUUZZ?=)tth$0l5L+Lb22@l_=CnAkA`y%<OD{b3U<jP-D=unoZr?x4!aFzz
zr6G1jCeDs;AFXQk`!uoiYhKP|*5#9|NGPO*ss+@&r&}k^oWeW=vJ}i*@KPqYDm=XW
zXc25$gah5Ry5$v$ecOp#`d#aN=SKO;%$}R^WwZNN{Q(4t`@pnl5;3ER2<&R|D`T*^
zd(45#;E`)dBCJOE!OFC&SO6qgUXl6Tg(D+MXOY{Asc4vwQG!y;XJ2}BzY#)z*-D~w
zt$GXMuzKd_?(}eE@>;^$JqjNOGH6daqg<=e-g5vB%NW&~=Zc}LOG2U}Y^!d?fw!jL
zs}1}y)7<?dUtYab&819kr&DW))bSU*yFT<=jcm*iD5>_k8Ksa@kPR1k-sZYjmUq=;
zd-7Aw3A(hw?oNwd#*2}M_&}{gt)4Y8PYO_;>?}BJI6k|1HsR|k)*()2tl~!>t#!r>
zSr=i>1UKId+{_GrV~A$@Sb0IlrMs|w<h}<l0{`hkvrIPg_zl`UL%UDq!-aNTLU*1>
zCHl=yH)LQ@Oek3i>zh;VCXH*aPhU#-3tiR|@1x3M#>nHmIClXdCy(RT##c>Zkh9;D
z>g22u4B@=fcSTPZO46A%I#z)%UugMQ2R>rnJ*d2&{~s0rW`ASg%1Dgci%KG+ItN9q
zEumIt&sk@CUjiF=ixV1&4p56RIHmaczv+fxh~y@V`#vqNv4HGz?wQt+=g)MLhVq^-
z6V}M+sCVTwxLgt8{GF0BA#w$2QZcUbJSYl<yjlqp&)i@QE{Sf{T*=40is!M;(-Vl$
z+v%_FtlU~b8*#6WC+5i0cuGXpx8`klxtqc<Q4?=X50CQ*%1tq@!qF?nZAmlIW8+P=
z-#<-u_a_w=wdIy>c=Vk+V9z+)N0clK;sli<FrgDI0yX7w``#iW$i^zMctiDy_Z&UF
z^(LYvl<J7r_8>4Cc-`^ovbSz=Uurx(O#1Yu@R;N~1%cl^R-&;cP+8@erO$K^f36sN
ztK>Tfn62cL73DQ=XSSn)0`q#v_X+yg)3tuF2CDB-9fzwWrtM+K*}URmUi4xvyhIZd
z=6rEK`74@4HkDW3N-M@?qBag@cEjrjGqZ)XT-~1VY_ArW4P~x3<AeUni3}2Ygf<Y%
zZ+_?7>{$?hysOVjulo|6dvZ34eDA0oyCi9f_S3sD_+1qi3{j8BWTCFcM|yp8$Qh#*
z_>miW0_HCWG!T`Mu{!)UH)=H5$wMkz?<8w>{O{m&{~JUaHt)*u;lap7+teSqU6=-`
z5})t~E-Z)Id@yg5Fm-Jf7bClxfjosg(#$g<9u1O)5|7q4b77|J2MCtvvLoAT#cl#!
z_*~~sr^e1O7XHB(ofE1>my`yl^MZ~)#<HhAyr|a^G>g(BT`2K2`CVLvw$=HnT)eD8
zlNk~VSn^+do}4L%qzJD*>NeSv4*Qu#@jOnVc5JKg2N12Z6pCVP)Pn<7Hb>kyK6~83
z+u_O|U5AFDnZjq;!4vw7`j%Ht`YwX8co?N{zYCGL><QVa@huKcgy^=QKCW2(d0JbP
zgob&M?2Z+qj#{#YeQ0ri=gP-QZy@2h^>E%wt6^UXyV^YtaXA?Z4AL>Hl8<@VVQ(l<
zFnXLEc}D?FzLo6TNS(L5s?e0!ai5m>?Bi!;p>qAkhtRkD1MA24!>}le4C%_opMI5?
z^;=dFnj)*bssXXPQjMf@)z;obv&`hhcjgoHV4Wx==hz-aBXU9_SjY55C~p;!xgu4D
z{HCpf+e(4zv?Y`M1)ew&<0Z@L3zVHK?l@pi=*TEaJQ8N*+J^r%k3N51+mbQZ6M{Hg
z?kFgubZaV!rE!LK)i4@jg0N*;0NXN&Rp}vO>z@S|_<G}!PjV&<j)U}HYGbv2fmZ6!
zb+S!<LSXXFfdS>CM{cEBTVYMB0XLoA*qPc1f29Yw?hS#O%4no9Uug?^t}L62@jOmC
zNNsgBmA-hY+v}wPMFbfnG_(!19TD}#IHv|Vh2Z}1*+n*W%j6q(*qgbmk4B3VDK8C4
z;m(IYd71MU+KaCX43o4kg~Ej&wt4Kp)lkl^>m}v9Ey}bNvvL*gHknQa#eDe6IKmKu
zeA6l$HnM3x+2i2n*xO_IXd<4a>>dK9-x7o1t}?DgYAKgc9P1HB-Pt0oFLZ0e(G>!$
zxie~v&-VA1-$4%#^MaFfZ#eD8Z;<v$!aUiI(aI{lRto1E+D&QRe#wXSH}g71P<Hnj
z=I;8~T%_|wf<Es3_pre3ul(b?wYrDOPA~b9VXlLBETSTu=fTJMbBUq3v`yd1V`$O7
zciyYfFGWpDK}^H8HchR!EvEREe^RQr9H&gBT5a!L*BaJKo39S1MFpSJc+}d=Lz17P
z)E0HYiPWl8v)o2Y&A~{jR#@U+>sS)&^K<2C6_G22+k;3zmi|i#2mCnhKNi0~B-+^7
z$eE;HJeozRWWC+^l|SebgJivqjwWlQvV*F~OAa!o)QnsjS#&tOf;x-c7?rATP8_E3
z-6<kO3MVN+{sz9r#jmzpAZK5@{u*BmhJA9I6*{PM|JqwIqaz^3$_GEJh1c;wal>Zp
z{yV)D^v4s8X3FTOMj9FXm!JI2D#?}m<(xN$J+oFbz{wdUX(0QGwwGy~_`ur?J-vM2
z*HHX2l?y)kUMuBu?Z0Y+OsSW_&gZ%{+WNf{qM4J_>to)&q})S=vGL+TdnBrNV$0v<
zjRpmN3nt-Z$$Kdp?2;0jUlbDL^1L5XXP@(c(lI>TLH^3w=XD*Zw!>yBmWV}*{L1a)
zf4h*=s0FubdOI&NDc985y+m_{3f7c1L(-~W=I#W8<sUUpbrnqtTIvz-l~dQ-13Z(p
z(>%=#^y2QbP*pYLeXv2kb|q92g@3$xKIk7OneFn%l?G<)kQIn87|VtrnIM?oj?wY9
z@COzT{p&CI-PT*_T30#67~KzKl#Ki|C$U<+h2d;AZ*q&8l)j{zyMv?6WjTU?8e-b|
zEw$nVx(Kd9d3w#Fb5fx0d`No!o-$Tq(ZR{5DFFlQp?o*hk-S*JAv5q<I-zo(rdqX@
zD_y{6*=90Cs-$^TkhI#*Z~gr&7zbzEe$u54SxydG{I&wSq#v5AOuO<$X+czEzj3_^
z5VwZ=X6>Q)n11{krCQ&+yjQBFykh7jk_>Nls_{TlFj1-5yvhC=KS*7~F?aB1^Y%Bw
zB@4UO%(P$a$xfjbDnCa0a~FRctJHS6l=0f=U8yrd{<@zh|BI+5^w0Y5Xbp(SSv3Ta
zCBGDw5j}1zAZP-lmtqr$T(2{(xF}m!61GFm+$ucbvSPQ+Ha~TFhb8xXm6$NE)+2yY
zfgx;C-8wY!_IAXdQ+K%mm(gbj4Fy2@K9Cu_0c)O;h;d)r*=@|tbS%B*nbt*v*MLZ8
zHGGON9XrhtA6!j?2r8qmQh$>Uyt?(M<*K_!a#UWc6Cdy2eKFuQk%=w7Y1?wXVi>Nz
zWHMeo-#CCh$GT;Nu{!a{BCdG(J|+hP|A7EC&opv(uaM^s22=Y|tUV}?B2E*J2|uq`
zxEB>}NznA^P+pL1zARr8<8q2*+hy^B{;!a2AE{2qx1Mxvt(g$3H=Daqra3;wU@Tqt
zY8l|Nrn_<}I9iR4p9cJfbfu;=VLnazVY3%rvCpX&WU}3~_HMueR}ofC-F$o^T#-Wj
zu;IM!^2q%aPE1Isj>h~9+BN_}T5e*Xkb8f8x<~o^L|7Hy*WLWBoXPH?@ia}v<?Gyk
z7Xp1kw9f-nNu)I}V2ZRdwkmNqvwTPu-p)dKq6{Q4i8TQaIbYmLZ+`A#Gl1d}wIL=!
zS3H!Oq?r60UysIhq+5-}AY`{_bI@Ybsd_!{_Nkg+d1J(#u`L9CdWCg2`xbrYcd|D9
zj=)+w?}j=R(aT-J(Sn$z3E%X^iN2E5biX`(={;J=AIkQo@47DbPhIVf9*go1%~MY*
z?y<llNUJH5T@8mzUVYljCj@o)oE|j#C(W7637APPL{n>7R(o9iq021RaE!?n_ukj%
zMQX@8=NIHLm+FB^pMkmYb#dkU(r9I1K<%-8RiRpo*UnH1{@`ih*#FnXf4aN-BPKou
zk-+pX1WVwL$(2M5bucr9r)cBAyT-xy1a=V~9jvUc*t*DJEsK0HmLAo4)c&3uD_C0b
zrB;%j<#Tye4T<6*0#-logr*JW5~5_6_F{q+%{V&$52Wm7WW9m*y{wCoU7by3PLRK@
zhjUH9&D@7!P+Re{iF6t|JWl3whFVtE*MZ|*_x-0&<`f5$oOVb*IbT;!vV1l_Jy0{n
z_3ImQeRfM%zvo5W6wWl$)#E?;-Ib*6=z(<hYGo@&!L;oGnP&5{_cWMDU!&NL%FAaU
z6%b!eUOidd((}ujq@5NL=Z)k6Lq?APq<tW6REhw6r;qfMpp&y(oAS}*tzcvD5BZn-
zIkNx^i}SgVsPKum_(+KK&!urHFt?2K$WVr%H543LsxN_NhbPBD9Ubzm=aIgjX)Wpo
z#rYn&9O(t?+`cBrM@*)mPjD6T05hBR<B+3hT`Td-=CJ{8{n{ifjmbi+B%b5Vg``P#
zFuLC3${!Q)1?)_)ZF$*WhvG3)D3G$|W+7xiM`Pk?u{sIq<`2@5J->Bcq1pW)HRohL
zem{C$RTNO)^}!Ar))D(rhSt<=<Y?>Pt6QKOSN*d?l#2wIxIS%BtajZH$8q<|&~!&Y
z>llD>Db|8ztH|~@($kie1YP;W13uH-GKMFZfs;3wnw^6g%AKdV(Y{hF&7d8WA(wo2
zvhL>gS%f=qCuW(_Qi3U<qt}y1N*4?J4vP76K^Cs^i#6M+^LiwqLi*V?*#$I}(gM1t
zLCZ?VHc*F`ewsBhxSl{doXqNcNveB`KuBW6&~rns^Ih-*3&4Z)&pW^H8{6WJhlm4{
z%oAqC{kF*|k4ayFp)Y#5Xst51WLcR#!B{UTUaOn#`ycVyXeqz0s2Xcu0yU{5a9K9Q
zrEY|ZG#grUt_e%&>`qoXmr-P8<C-ezClu9ob$|UQ*3M*g9AdFRvdtlBHRzFIB{+#o
zf5bheMHz2f44tOUnv+J9$c3zQs+Y9s9SOCTHe2XB?`q1#mtQJ>x98NUw6J~xH7Pl(
z#Yj+_ya59ALRHpCg-TP74_YY5U&_zN1V*dN)oX&>(u`=>yo~mQ|8_#W4BBNv?zCmb
zMUXW3HAd!?Zo143`z|3Oz<#n~@<z|GIZBKCI&Ab;SLg^7s8WH?E#(Z*$C!`Y)i)Vr
z5Xi7}#qP-tLq4K@Z*&r@-ZYoh5!G^!N}l7zL3@1!MB2BjH!p;VOcsLxqb(7lK)cdY
z5c6M0D|=hqv{cI7i0Qi=6L~2-T)O$haegszX`1V|ip;aUD6cyK5XehHB7$^PXCR?Z
z45=RLW2svPNrgLh?mnLC`DaY|^oz459z=X))nbebmmj0nphE4a!Ic#CDw=yXr_^yx
zWwn^0k=+)2I#5b(2|4+Pa;zVJKr!Fde<vQK2$t1VQPvJw@;(b&eNT$TOZcunT<l?F
zC~Tm)mlM8^-hAd7KWvO~MvLUvhtS3yJ*DLAc4`=-S95W7;QGg1$TFYy{<&j`fKfVs
zhXwAm=r3f0oxsbF{en`LmiUrt-@OWw>8so_WF`2Eo5NWUS-=gE;yFI0IUt2T@1(`l
z+B+(1G<n>vlDCjxY@RoVJJ-lCl2%a9W2}~fO^%iv)7q<vU7l>^wRhIe(L()SfYU^Y
zqjc#|JH7IeMEip4YG+p%d^Us>Hh04)^FoXyU-%^Zh<-J%+X!Yleu^wPi!t}uybh?(
zw;{1*S*rxsA5UV{ZrXAUIYXJG@UVP5ftnZ;b6R#`FJu*d%cPUW!Thi52~Bf50ZlEw
zn)o$IeU(0pQ#t>{`G1l1)&W%oUEk=TyOC}LM7pJ=L|RIuQ5ux)Zcw_rySqE2yYtZ9
z9f$ZfKF|B!``x?$)We>=XV0v)<`*;N90Iq^K?%ENPNi|UG0Uep3;AtC;8QaCqAzr7
zI4JKKP+%oPC#Il&$_IW1weAnV9f;0r3V$$%@v1Q}o=CmZDjU$?&RM(Xhf&U!tBWHB
zr3B0AHtr9I?Xb7Uoe^owL61F_3y+Rwd?O6w@Hd#yHch$Md%jrtGGX9URe_n;dD-L~
zs>|LTRS#u?*OLNWhbTxSn$U9Usuq<IM!SU%RdCRNxNc7c8-Gl*#HOm!U94KiH=T&1
zX=5ruS*X)TCcznzcfK56Q1QKaaarY|xVXH_%L$#7aeshS20Zk$9_4_Z^PAF|s#7Bg
zzXm5^+OOgP2+okO?OQi#?hhruCWG-P;%dI_R{`Z3rM_$~*$17Q*5c`OqBVEgT<&BQ
zMM5V!4reX<5w$ELol=)w=ek<GAY{1a0#-HQMp30!2+3)T6_>yVt@D`l?<H!xLRWXy
zhSPj%%Bv=oPzh-vZHkI5zVwd9?75}51FDWbznc|y7%ZwJI<WRfU7kJ#%k3TV82uU)
zJlw_BAtt#LJ}w-RqtHbO4E{Nx4XS_|juUWp!%UXEornaVN+C=JciDRXzzyA9cfpbp
z;b#`Y<i!ASVyoC&yvHcB18`lE<?7?(+m*Ed%rTR*GnNEiR{1-uH)c*&?`-eKs*7@N
z*T<JIusWqa13=~<CJ>=a5y2=th}D5nbA5Yu>Bf3`n;U6s>a&4>hSFGfZO%^?RAz8k
z3Id4tX@AZ79tqykjlLa!_{5aGm(#v6IW4+7gE9r?Jjdm<$Prqh+gB`c$TMM|1H2$K
z-o(Ei$X15zL<>ho@r#DeC-t+7rn=(9_~+yi4THKt+P}d^u&lD7+)(pE=BEDQ)CARE
z^9-wa&r9w9O3c=DNw1H3aU;FV>xcg)i$D1C{!M1)oD)-jq9+gDO6r~XSyZr!_f;0=
z`rB*A!_r&NoKU(Ry8MBf`fE9`t8ON6O1H&(mi^S&a~Jh5r|$*-(!_&~3DE!mTcA<?
zjmsL60NNN*e*E-V)`9lbsUf(<`6oFo*f*F_l3A;vga7Z`Gx(aQ9J!q>&!Q#=*;_Ol
zJFCrBf-*t}nJNYN#TpBF+IQaPPs-GU3L%9GK@O<|k4@%hKlE4aY5m_)XuJ(B0;(co
zPM}zsQtNhAtG~VNxAa7uNSHnYLZ(syq_y$QcSb=VXE~{oTNbvn%!bmvbA<EiRY5(5
zPE%$~Q%Tuu`6RHv{KK&n2y2cp>dt@nYNEdB(U;6uQdfr*idsgF@9JE36>ERoD+EJ<
z*64)YF6%Ybz9e|gte6{QqU9K8?=`CXceN|vIku;N0P99XW`tq795)s&O3x06W$ocJ
zYauchJE{q^a>_8<zcb`ifd`*g1jLK(1-4I2f3V&V$3*lftZ=^h*E?Ip;O;*;oz+9=
z>_RWYk<OPp0|K*tm&zOFn=5}DEj|8&NvsmXq}AqpB>X()Z|^kdx#f1;%`w^A>^tmj
zZHCgKxToN{n(VOs8=!aKuD|#nq^@NJ&?#O4<W>P#`*-^3>FGhc<Ff^iK5%rs_6dA>
z%=8!SOVv*o-@;9uCUwFtY;fr0VZDY~?um5X+vrRrAPb&}GY%(*_Qr(oVCa|+8Pi51
zbr@B9mzJ1F%ADju2QnLL^jm8V5r(S6<xZ@rgvfKHbO1@<tLcxp3;N!YSW`oZuWzuQ
zyD@}u$=r@A`&53#6|AU75{;R^5ligvoA!eoFqGZLON)JHW^+uuFEj<U)`KnXge5Ul
zJt>9efAGrN!h}tn`5ehX+k2(!oYIBG6S0(Z<-Y$u53@%v^4CV$a2f)jo_u`kE5C1O
z;y)R15DAp5=cb&A_V0R{{Uo`?VaDMedvc{L9s|1cJWX2*Z7htANavh>7cz$6e%``1
zV+5S>HFKofrl@&`<xd0Wr79&66Nd}>n9COHGjj}}C*NC41Z7ltyH7qTJP~5yL<z0T
zwCa)n^{9{SN`N0DC{{yqS;&FMFn6N&^S&x!+xF-(q}pxtWGP|aeQNzIF){V{>*4NF
zM3?hro2Xh^=C>DZD7eJXD9DJjimkXtNmh%FHs5;&4z9eZKoIm1$e>BJ{bt*9g}3g0
z<htAmupdXWd@H0%{#KTG1w)KZTi!Xu_FkmNzL0`?-7NnW^Z$7<{19&;zIPT7;8+eD
zJ1A!#c$zAKf7@*F87T1HMbUYgIIWA2vUE}<!7E_O1t9FAs;(D@Np4^oRo^G`C`4Ow
z<3A4n)LC#XN{iWG*%qI$C7%}971(grs?7Olz-wF)Lu1I|7l(TewOlL=LzU$dm4^_9
z#j7^>ByTl=R2~e`=J7F>O)0Q_5+)1^*d?_K%*l6bw_WE>+$2=aq=5rfFFbk-aOs8Y
z7sWED>6D#@$P+x_Agz+^^rB3xSNCzdD9`r4jZM{M1Fx`RxBZm-3mxx!+lsPn9N+Wv
zjN606Q}iF$H$fwzHCjHo<l&pDH$(Mc0l{aNt8g2^z{qGg^mLc^Ad<5<IF6p1H&ZgI
zZmfRD(JMOZP{jNo#Qj!7U)|N+T2XI^v5`|OQKg(fYZq!YCM3Y|`z)L9ajNg}uIrfR
z)7)6#baQYrMfY0d#%2c1wcO)VG>fH_dmqwRMuu?qvyrp&`FM7T`C3-?o|L%C7bPu<
z{7c08;{sg*W&GlC1O!Qc$zB4VE6%(ascScVK7UKumE&AGc_&PcRAz!HfWYf0C4!VD
zF?c??vCf<mPRxGv3vL%y+L|!E40>lf*claOCsOH*7o{RBsFD5X5OubgM}Q<NJ)(Vb
zEnk61<xh)rAZ=mR*Wpgk@T~Z9ebypu8j@vvIDe?r9{5X*mhDaXPRerBki;Gb5ik_H
zR7;HC3QnA5)QsvSFV}fU3Ew6tx4ZAe$8B=$k$)VIqWW<c7BH71+zq|k>rc?_qQH$&
zw*--QfXjOeTO9P;o;{BysU)+llyAYo4x2qq&9<yKzgy9m8DJl5+C+rM_}!JnfV7=B
zAl*ByKG`fb#$hYn@5J1bU{;ZXU+D`ES0v<H`o?*Oow)yNR6J>3PIu~`5nJOJMg;{F
z$*%Hgfq^r+_wL(O7>?wYa9-iMPnQCyFJc16evaX=r2ID%#xAR#%{UpivrA0b9=N2X
zWlN%xmfdv7$NL798=l4oHdefGX-uy2Y_Y*I%xB+}S_^XM5KLWWDx%-*bVRE)hNe0l
zVpQ&+%=xD4lJ33ZI^EK9eE(ON=^6u}v2tOa&|}L77}V@16Y2VSfjM^W%D)iyND9hc
z9DrqW5mQxhubt-T36o8iCY%90pPE|&rCS@N-4zq0woM44?W(rdkW;zAwViwR1!y@q
zZ911)5|>8M5R1Pogbp#3o^Wba44ri%@@MKjB?3gPwZ5E>ist*`<lM{V28QPVk+R1p
z){T!XViB;td;1{JY!V+B1*pP53~HHuGyhA;5LD|--qhhkCkLvl>K-+Y+Lu#cwxW3!
ztju6V>-bu?Id056%zl)3c9nERzqMq$y-n_VYlMkGfpgu5ot{Fgnz1zE2R9muqK=IN
z0v+G9MPIw~;3_z~rSEMDahst};bh)k&K=bU>JSLhdG_Mmb1>o!?Zwc@>z*qR<;gh+
zP%TZ?kyD-6xy+yU*tb_c&I56_X|D;Wq`z6VK)?1_L{QDB_rZf@yTjAQXhU@vR^)k4
zphBBnVjTb%dT>pDQ;%<UI~0!^LDw=AqGhzQNZCC0?~K!QHV(6LR9$q1ABbnJ552=O
zk&+~eiBl;LOpxwEUB9FgA3=oodhOz4HNnB%lKGpspx=o^_`@~k$49~odnuxC-aI~b
zA*Abm)|Z`G6k+$!9JRPu{l(k-`(@cah#}3aj$+EsI)v@GO?hddeCV3DfwC}d?>>Zn
zy(j7`Ja`}hTON4G_5&jX$V>;;Wr@q~8KZh~<WGlu(YOC-GQkJbsm<&|>A7^~Q<u#P
zW^NBMrowkcumW#|;?1E!=88Jj+6=ZOwPhd5`;kF;%e&Y#fwi-5b`ytwE-U`Pgc}pA
zt}XLP1am#1m-y9B1U!U)q0QZ4P8V-`f;{t#0pBU&`w&2hFY1Y=zTLZ{nOOZEwaL$t
znq$I+PlSj2bXLF{J)i(ne;m!Jtu~LY#<I#-8W0Z@<a88N@13MJd~px7Yhp-8=#S|9
zwB7dF9t{lzM)ayIyD;1m_!Lt~B|gELNMVtS(LE71P_Vu8aWg-Ktl`b@@)0UCi+3MV
zZR#%E;1Mg9zk<{6?#nLIo&^4KBfjbERE$(a$@@}pdyrJlNg$##Em*uYGfIsyamLwu
zg=XwNib>2Z@}nYpQIe!!`H+qM`rzj*RrOSRBz<XwGDX;ay9Exa48w8{J#}BtVzNyj
zUpH|z_nW!|e|)PX9gg2)+esyc)XE)w0H)}QzB2v~Q@jPEZ4i%tKy&jcwC<cb${BHe
z8R!M&v%0#ZXfUj%h&oO-NQsPpisLJuzKYhbUiD|$kHyA7M|+ucsD7;Ifcq_Sd+-2=
z?!mX6JqY+gMADRLGDY}QP3_%gPVUN5QZ6lF&Qu2aaK$_5!a&Fqee8`Q+K~)cJavGX
zNEea+eskp~7=e3vJg_4IYVc@daao6n+2tjkddcDT(Yocww=oDt+1}&S3(`6pk0)OS
zP6&mpG%G4o(M_iAHs-jHDb-a0GNqju>j&C_YU}GCQ)Z7mU6?NP(=5Kg;*QDRls0<P
zIGUcReq3o##*xP;7CGRJ#(Na(H>wS6l^se6$-QZac{N%nh8T_#A?nFCa)aHNu;*+A
zj!$EyvGkgJ4o61@d4bEV$zp*ki=X6i-Ji}*TgyMZKl08YFv5X6I8VsJ{=vQ_Vkf%l
zlT*#enSpFx&>_p5NB?w2y%)pmnPUYY^mhqv=IyR(Wi9g)Ok>g-er!{|yBttsFf;Os
z+84jJmc4b>uWIC-5Q#~7eVtL7g>$7oVWx_UDfzZjRMNAmS^R>xYA=*&sGvr=G?9{+
zsM*z*Wqc>cXyu-u((VM*dm=!+2PZDYSWptft9p=x$Ud3jNYuXz?~43f)-Eo{?f>xM
zUxA;yZ7YxcD5QQZWVMTe78$^P;^=sGh12119%(RqwRW$2lXePQwKYlbHzPL;s~oxY
z5RqZY_b0g%nyf{rrN8-wzEkd9`*Zq>K+O|Ms|82|v%SM|`4shgHnp+cQu#I1M7n|u
zu0H>5&5?&i$8tjk9&OQ~W}u+E!q--Fjy$E;=Ket{ovsRU%0&1EM39K5A=gyE7QgFO
zU`yfq2j2dFNU`XgfVG003F#z88t0O*UX^L2@=}Zz)N}ZPNK&hpVlc%1Mkd~6ApCoE
zm&e9g6J#ts7T-#99Nvc_sI6am{1%L0*o?A<`xygd#isqElWly3Yy84`jHx#YE-W1R
z?Zm0H;#ExTi5+TAzF+f}63%CqkLe-s<o?s<C8#YN9pa4RaT~(gPjF@2z<97XxXy?1
z@2AdZx`u4^^Un0D3_vUO7Di59rJ?3vAg8~4sV}W8N&FuzKmeebdU(ra(nsoj#rSsQ
zS)h7-+_}&%>t_6}e*uZoYcdrYV7ns<E9a|wZP%KQrE=by0CJmlia)6T$f28?0rPlf
zsE(SngXqEhkR-#PJhPLoVgZG4hV2CngaPzhUeLWlwgE1T#A6GNM)ZNb*fbIgh9Mms
z({pH0LiQ5R!M0nU<ezY_7fdqvRjY8yY~f%BO_N`p3Hy{|3J6}_81lE;2rHrV#o(Ey
zRpqFe>)+e#f|zC+Ch$t|?C-L<3UzomO`Hayon&Q6+>yr4BhPvDJ+pKtA!i;r8D5eR
zkwNVePnBQbCl3b;)U(M#BW>6(ACG$^6nNRJMF47tNK5uuUgwSiG`?rm7d2$qa*mPd
z*COsHdExd^d^%D1<$MEw&-L{_FB(d%SNVJ&dhLwEq9NLQKUd?bU1jcF27mv?Nh45>
ze;k;K3rXuuu!oEHh%oh0jL*{0d8m*0q?mq~rcB7~VRuzk=`7Xmr}lVWKEMw=8>Tqn
z3Z#QYtKrKdT=0|vm5mAyQjzRh!2qT04`0#y6X-JWUFStEgZ9IBj8cj&82;N+G&6^3
zAQpf4bOBQ2+&ldImpO^l11u^;_M?eb{Jb1C`v4ZnzgN3o6T9roD9vOWv$Xe&=nk}F
zA=>3%tbTOX?=Y$n$CXn-rJ<-Q`Hmu;DXFX+^(SDT1XM|8?`}zkl0Q`5Iy|W{aiwa5
zSYMyG;9MW-(S~K%{IxH!0yXkQ+-#CgZa+HPKRl<KxrPpF8+n)!fn>RJ1csf_9j@y+
zuXQYmL0*c{VmksPxbJPs!e;jE#{6z`0_K<s!G>4IOu$jOVG4-h6&;P%l)V+;=n>!7
zqC?x89;rzSR|NA#)EBaH8(J7}^DZg0uq}7LZu<x<y0RM^5W3w5eCl6&aVn?m4@I{C
zHTU`3WW+g=;-+zc+tuPq*-~n}&SC1AY>f^+DdlSi_c&VjIsEja)YHGOd}g3?6>pmG
zhm#N{;S_rG=#KS<{1QY<6|q%99eu`5<Z~cn7AnVQM)a_RpR8tfBqcpHIF}Z(9~gTM
zA#r2jf>431HbqjT&&i(-clS6yV)o>pbLlq$^-f&Mwi1yJ@YG}HMihd{@a5SqbV9K=
zX`TO8Un~1-U;bwO-=bKrIF&cug-)zM2w*=J^hGv3$Yjgjkp&c)Vb3x%tt%(3<fN`$
zI6*kzSVCxgMz^zje~ihPcybQGEob(56w@>DR$$mvyyaTDzKu9uWp?{b;@H$P-O$cf
z3h7OGI8G<lZs7)Q-o9@BTANxt5OH$;WE9@{5$!CtHKiP)ppZ$=LT-?x_tv*H0$vvY
z*7T+C0A0ciJjWlZsrJ@ZW2>1XG%>Z`p`tQHXt-yH>{Vw=S^O@OU=F8)(<<s-!Jm2?
zo%}AuLhBCY*C@BmheSH~0?{Cr+ArfE_d$4&mVgJRJM#UFmh*jI(=y11!UIY}$;U{)
zX-Z-F^omGFA6kGkP0GvhaMyYD2<_-`xlY7Hs@9wGsyl*ME|hh7iS7>l&cc<T6?`UK
z>SeQFC^=q2C)PB214i(wOJj)sH1-GD+hsQZJ!!-Uw6}FTfrLQ<=e?;fmX&Q#C$lnv
zlg3U6wv{-2r#Hm!oOeQsaUt}%bch-iswHUv=x{yZ>jBGfcPJ1*=I(TRI(f9A*L#QK
zl0&^v3ZS;Fll3<D#z-pc&G4g3h=!OlXxWotV+(*po+2^aahR#Kf$@wmM%#Vp<H$r0
zYO!{XPa-X2QL>Fcw2=DVAgnYF6HY;mXh(!t5bZ(FXfVpSgXMe(gdT?q{WTBCm+SBo
zwPrz=FG1YGZaW<x*5mmt6mV-L(%!?I0(2#m7x@M=3R2^)M<q)o`?CT=zqhRojzn&`
zmeJc)kH_}`FO>a3Af`fs_aTKL5bY#zTL<_gg5_vE-SO_XgOn865aeP$mn%l*ZEuWU
z!&JJ&#(Jaf)`#;-Tc1Vd!4aQ06~R4kNlb&cmq&nOV<^YrP)r|nYVkz(6y)_RlTK3q
zIOy;G6b24ZfKL5$#kY=5CxBMczpJD1t(R6=IoQ6w)&WPWwO6`Y=evJXfp6+lTFc@$
z`9Jf5ko>gz0g-hAP{Qj<BizIGfEJX(z~X5Kupo<`IItp^p8nv3lhq9+C%4nq3Kk!J
zTB+^du0u#KK%)IzA?Qdj_Gn1Ua1@|6=SE{Mz@eVX7OEicOH^E>9K@DOIDl*~p+8ui
zL-Ad9BB}@uPQWJwcifa>Fx>@S85K&YSBUi?GGa;gXjQp=k%g`Ax?Mdim_@6p`N5K3
zWB;S3rOeMSobAN|!65<vC4X1-?LNZ7iYNQ*$gkyDPr*(`tNm^ebbqKZ!P2-Nthu<*
zVIqnnz3AU_z)NaJ`OOx+jQbo&5rhHsAhMZ0-?6+&U?soS&*|5e%5h_Fy;}u49Z&u3
zuAo46%dV`GXL3Q)sr|s&<Vp8h1=y?Nl#{9bcT@QaD5VKm+R7?-oE6E7W}&9Q2)Hk`
zB3v2Gnn}o_QAI#@f))A1XCVCT#{w1}yYXyk0E0egZB|lnGmbzdac;aKV=vJ6lgMr^
zH;AC&7kN;awF3M9hso6s(8-Vupo787W8V52pDF$ctT3B%JWvI*r*t>Zg>dg^;HgZs
z!YrmWN?x}+jut9C#vngug#;@Su?}0xhW4;w@x{rYef}LiyeR6bEV~;@X(lOX9DjP@
zMJ~rRYMmecq`Tuf{GmKBuqWT|!{XeOaTku-BM?5g5^M;g^O@p9b-FJZ=^bf4W-sM_
zlsTaN(m{>Lj=fI!rqNK+WSCOM`;m`A+as3MLJ6~`P@}lvqw#Agzl&~l1$WF@;OM*<
zf|gi%PPDuacx}+^D%}LMrjHSQC=dm&dhK=<ka3k)Jt>4Ugc))91XL9Q((gVMuGd>Q
z&yp@!B`HsGBGfi!EnzwOLX(Mnf+e`l51OtLE3!;Uj<D~Ngp;{8dTBDxxUPP_yb%F-
zub033l(sbb*Amu&E@~*rUXs(zb?;mrBd8HKXvd=_DGmc~v1o~Nq$dlc+;BE%0j&pq
zDE&Qt&sZbNCS5EE7Ocp!g6kNC>Fy|1Ihgdx5@$P~wBgc!Y2{SE>lH1@VLf(+*R&{P
zZ)wW_BgJ|<er8$*)M;o~z71<1fqIQEt5>D>>3NlB;N=aU$2Ed|<H{4+|FyJ(Nx|P=
z>T)Hm?Tz`hFZxmcVDmK<uVe6`?X5HOYu&bD*g0P77Pfg7hCUK}&}n=(I!c0XHldLE
zj;mc(hS#z9mRsL<XG>7Qp+XE3HWG@d@V!&7iu>vZx(66nS5e{mK!*r&Ux;KgkDt@>
zTeQpOr6>8UJ+2gB&HRR8o>B-dU>rj%ulN1W?^Jv~r*(nn9mMj4&-EO}_sfPxAdtyn
zp@njq<20jh(&rW|l;+V0j7Q?KMKW@FA?Rl@Cjz%_!H`peDW>g1(%za)d8fdO7MM+{
zT$yoK6mq1rT~U46z+xKz_2<tbP~jBaBz8n5A760W6stc8zE|^1TZ@8_>Yeq*!%UX{
ziL1IyU2}#$g#Ds&y2k+IU;PZ48F;ol=BCwD0s{OQ8sPU8xo)itcv`gQp=~6s_>@&z
z6Tqap)&&M&KPv)0$%&UZeBKMomxFgG-r2N)!@tpx?aNQy&koBvgG1ft_y@wFCgfMv
zTG0)eT(o2<5I2%DXzXz`2j^fqF!H>9B-XBZp9MBiqrse9zjixXjoY$qFcNHrlp732
z)9SwY#MDoJ>gQlQs8tO$>$@+BGoL)zbGOUfm>DJttmI!gext$K7$f=+zow00s!Fhk
zseddSa&Fd#d>P$8s2M3}A`w`Bi0A~$(|)OW24@Exzt)0e=*Y1G$}~4^Jja9C0Af!g
zJ${*T*0$r34{I;<n&dNjk;sM0^rOD-^?}n6PQfVqfQ{w#LFot$ehg2qD{Um}epp9h
z7u*_;df+Mwp0EA7l^Fc(8Xd%Kt{%x--XQ;+Lu$y~2(?_vls*wsRNOx_H2m*kC^LV9
zUIFL~FnL2L5JiJ4!kE2DVrFl?i%ejI|4Dy?2)bQzAu4j+t83Q|NjDA(LXt{n-t;go
zUbt^?p_6cQ+IQYUEaSz56?qK0NfX&H-4#KXHiuw#^F-4+grdNEb%gPMPhZWo<!>So
z9-~OU>y67^ZQ52RANJU#D$xs!vm?lugc*Bh{ZI0+VP{#&09G`pRS*6XovXEIw#DBO
zibwpeap~~Sh(!9f#(SAi5I|ZP*;e*j{iE!!s(^V6y%@bNrvGVVf3Ia4etg2Su!%>A
zMw~~u<pUI!qKMQKOy9e{101wdVB0htiLqbWL(ljhLVsCxdIR4-9P#NaD@w=DyZ`q}
z>uVTnUCB&$v~#D^dj0#D-<CZXr_TGp-zkL9o3s5UPji36w9oo6)vKIe%Ls;bn{S#Q
zM1X_Bz3pMdT&-??fQ&7%RmFFYZqM}<#44c>OE#%t-Jb+d;;{Y1I4H<d>=>#7@%^C*
zJc+X03)*l%(tPhkq%-g|`hB@O0O^-tJt!l)em(jl0DJrrhZ836vqrQ-(|Rm<X>rE{
zy#nqV(0yM<qIg+PtaYzjIfAkKl&FPx(c+1K@YxNT_~ueH{_rfd`M`ey3-$3|7EbLt
zs?Ai`SlXY;XNZlyZG~y3L^qKNq&^Vcd*z%N815Ul0o*alnDs)CiDypS9uE7XrHhTX
zTV6|bM>^53s@i2MB3Ae9JS`lr+Rs9Do=!H|h3B7?v+GZP<aoWti$P-MH!|g)UkkWT
zk(Ns?WnXg2i>U#WPpdyF0SF-Vx2Ywk&6!SrJiib+8TZVtbpCfe7|^mlk}u7~lE=sm
zEB>JkFTbod#mo#(xbS^?$imdtLb9RL?O!iMv5(?rg+0gjoM866p7SzXfw8{vr_?}#
zKG(j~FMqz;9*ig4?QDh^$RKw=5ti{G=)ium3;r+yj2T02ubM6&xER}&|7D1Wa~h0y
ze!p$xKfESp;$EK#Rj2;eMXdvhC+#NAT32mYC46;b{z$8?7qS^j(i^^th<OJB{X>Iq
z%(pp!8V&#;9J@>3jT`+W=w&j-g0=QPG}av(NW^a!@VxX+av42;SbR#39}D5h*-F0%
zYrF!D<j*qWar7zmJrNbUInjuAHTS_qTl%&ENn8!cmjK2G<t62I=+I4L=OaEb6>eF8
z#eg1m$5HkS$4Y+&GG&0{T0Q)eXmbYldwfxpM|;Q^q{qPUo`}z=T0MC9tGrSRo4KKe
zk)jSKJqHk&v<&1JN^qNwLIDtIENMsuep2{mUO%fZ*TFikw|D&xOX&GwVb0dZ<MzDo
zk?pz`atIuihB{Cj-dgv)muHm415CqLPIfEC@q8l)yt*kQtB}p_N6YkM>zv2S)UoZ0
z6D>>cz0*i~I%K;o;pN@SI%gB)eA`nu4h5fi7~qlYT1Yb40!)A1mOFwzzT_%A*dylP
zvvM&zCA9*=QoEb<pQu*I)%f`UTxMkMmRu=v>pB5f#hLiQn(CCiD_;o1f>a^wZuF@?
zT+P3Hr9}fjw0*hVGqnBLWpr{CDWm|03n6~2rQz_PSf-&jrZT6sz6`qOz)ARO6H1)1
zu;_m586t3r<&}dCK6lhb?H2-_^^f^S7bmUq^!XCq@^^nUFt7|1%)tjWiM8)d093Qr
zU{8HfGHIf6K~j@5+-#K38hO{85Qd5DOx6mFu3AcBVxlQ?)nZ4CrU}+NgFv^{oOzxw
zm_j`SJ!ys-m9MXt24kZsEvN!-8%;G<fw2Nt$k{>C2)Od@F@v;H*SJ_(bWos4P9dA+
z?P=B1j9FmbX%a0Vj@|3Sv_^7;Fk#5)<wpEzIX=nD5C%+KQh0y)U#&*++P!OtnIhoq
zz$ADI;)mIX0zu=yg_nr1Ja#94cb$g-I=x@trkt^+lTZ0POTu|Kv^r!(divGvIR5YX
z3BhR&nB4g-WH%0njv3H#MwJKj;uJ?m4Fq2kSIx{T)vpRyzd5P9pV=_K915QU44w~0
zRX-?NX>WygvESpY7FjqT66ZOQqQ&95UEj0X^cIU&GZfTrb3_lo>QygveEnLJP2;Ex
zC0S%1bsC0eW9pw<Ld8Q=jVzr_`Cma$oIc-wN#KzGA%S)7FoYk!IGt7Yktx@zXE_+d
z^+ERUb_D6ghQe~TX4Exx2K$2&J4sC1zFtGPme6NsK^=YVOE)juUz3e1Y_;O)Ef2gQ
z<S&>Y5CN^ipU~(+0(xO#j^ESPO#_BIbBDO@s|s@V``xdeYRd+85U5`0fUv%YqT-tQ
zHUh<!f_`TSKqNp`Pj0$bU3!1&!IvIRg&J2!2a;l$r0MQLCd4eK%x8~JdtvPa$`iHm
z<*oPK-ydry$@z!(s2AeYbYJLM(in_BeHus%iNDF|u`GbPyK`)JKE2OOVCjttkWDCD
zdMXgX*QYa-A}pYbPtxsEwsRH+mZqR_FvsUMwf#U0q*JmvQiptu&lK)JAwD(a!Wp4l
zHzxpeILIqd`&_AZ?>F1b*Q!zcbPVPYa&WIoH3B$6RpZ~KZc0DQ<vpTdWVEsjaB3P`
z{9XWgTver1P=gaa1?q6Pfk8`MdCfJT4j06wE^0p8(yM%8v;KM{b9v5`LS}WI95ApU
zjS9~ZRhe(nh<Sh}?NX3W^NybRBHV}uJD=fzNm9Yxc!DCmK}CbhtFyYscy2Udzw=Tu
z+7h9Nm>zQEG>4(k0-Hn06gMCdfz{vKe3{5v_EYA*JUt|m0I$020XS(5R3PYfkYsFu
zX3hUos3p@iuTnoRlJ>m^h0PBHLILFhFhD)T)%~fK_v<Cd^N+TKu((gM2+u=V|7~_L
zEd?z1^%gMa1blDxiEyf=Q8d|uOTJDHjZ84;)VjrgH>&~U2j-1X86KlOK3$yVk+rW}
zu?Lhp>;$^w!uco|weUOJVNv)aH3bBu?yzN@au!6M-74I|NjwyOEc-^+`5&&8w8tP1
zI~<B)R(NQM0CHVLz#-RS6*-RqR1{>RegI#4Ay~$NX<(pi{|LILz2AMg$ax%>IF!LA
zVi_GtVn{nempeUKXsrI>>COcD@MB}vFz5u4Q@5C})^$lyzP80LXRDEFGnuiFgJ-Vm
zK;M@|WdF2&m)uUa?dfB!4_EtFL+d7So35l??y@n>9^T?aBnA-3Yw^)ZObGP$sOdrS
zE^_bOan{<y{?ENT=E>I&A~p3X3@ug1rKOWZX_E=?uNyHyexAAmReB@4=~c<Qzsl@+
zey$$~(=-RsL-#+6<(o;1>%o9N9wHe30)gt-ZH)*m32Z}@Bjn#yt*mcby)w%mG0Bdq
zHnFrEP$7naRwGbhh6n`=(qn;YvpQx)uc(>@R7c~jl5QI!1+W=2a|HPEAQi}d34r|#
z1s#@fKjq<2<YFX==`ku_)M%^K_R~hLC&?Jk7Wo!gVJYvo<|{o3DVX+Nv#Dm5=Xa2g
zXdjeyHI;RNfBuUiIeMh|Hl^L>*Q57S%E0d5K_W&voPjUOo*A@|j`f*l9R_u}O1z9u
zF3*pCTyzEk$ZbgGvf7d7%hR`Nb*(g9CA%lCj?GXRCn}@m%!7%R_TE=%YNxPS>k|oK
zA61a<X8#D-CdySmJAC(0TDEYhF?!(z_-4CvW-M5*>Z5+0;30IEfYmA(5NE^20)g-#
zj;|3Dp&$xKPkj(&2o#j9qtzRpNOtjPr^@3CREuwt%5^AK-?}-{cJN&I8Wspg=wb{M
zJM!LCm8+`HGOlQ$d`W(p5*%va?;mj`;7F?2=^?-6<8CWg-7Z&msldx{@Vp6LwZ#9H
z<%@6w^VZU`gnJCs@YT>XiT=m0K<0H;TPYS2-U{o9kZ*cs8;pYAG;OWAWfOS6MWKT*
ztIL|)Q?nP{u;=z<NF9@ezsn7bgKul|935YPUX^?D&JFIA3@zLPMv1xfV}wOK*0C09
zq=Etz$jcLaqYs)-s@9rB4(tt)j+Ea2h{=-u9sx`sNDAuE=q}&aacl^AGcQZVk0Dcr
z1c+wwCP*Cp?=>0F)uAYu7Gi(FM4?zRELrby;2WKz098a|Gcp!?&CzGK#aPGY=a0`K
zpLJRf#bF8?mYjaLVuK<K1C_@#PpYyz71Qcl&wI>_9-oi!i~TP7<4D5>!hhvxJ8<f3
ztAOCWl6;AccG7=*>Mbd@I3+Y-$Bvfne`={_{(A7i^4X7zMv`bjcl{ueYXJ1cQ*ZxA
zrLK42t}vM09346tyZp~9V%&T(&`49ba1<XP)w1n@0J3Wz^1`tC2lWjsCss1Itrv%@
z##cm|aIg;>mtpH`=vt>JyXPI;_VkwWo{#Ft&o73AL~+o4jXotV5BgfH?mmpw!cE<s
z!dxAH+#s$b)t%@r-U_3P6WEyRJ2cl;{BUdAfw!t|yOG+O(qBth8GOUe<#>Scv-(R6
z(pjfMLml3E`A^qirPkoIW)5RsNbWCe%f{7(9LF);MV8kegcUISh`-Zfo|-Ie7*)hB
z`+w+Tt?QxSVW5OdF{b6cE|VYo?36t6w^<w$-PXA2Ag0$aaM3UjBTKHk88Px)i%r4#
z2f)=7Il_trU`Wxh<X)oxWtX{K3<eIEL`szbx9RL<r1A1gv3dmI$DQxu=R1#a?_eWb
zz=D^)U3y2sg1nyiQ+f9GP0RSSFhFNrSZw63!%cH_bWk5hc2)+P*U3IvGo)kytwB$`
zY{`^{0HVj`-~-abnNS0joette7kh5=$b~`o&X}(SZ68T+*ewTZKa6s{YAnr}tC4mT
z7^bt|>TK9H(wY+@JM{!cXgEx>4<Q=CWi%YEg_4Wb8}>~!Ji5%c+m7{0Bth@T#*@AQ
zBIWE)u(sh%?!53I7s8kLTHEMRy17`CQUnl)>H?7Y6*nzJLN#$kB+IS@qtEdBP(0x9
z$PgR~Y&H*oMhP|dA&agzQnKq6Em?0zav3LWj>)(FU@w?)7>&RcAQZgxse;hrYW7v&
z77$+A#931}>rGlFQ8!}k+{g#398SjXd!pN8sro__E`SK53aH|Ys)W$C#Fx6HLd9kH
zx)gPLm@6|TqqJH!BVx}Dl4VU5UYGxh`4=a>C6j}2_M?~O%PJXDS7B(-+O%Srq#cF`
z-Dm0!@64S3LWM=yv-=^0`E;CDQcfr?v%YsG)Qw6ymTncC{1t|1f8)B&bHTBe1S5hO
zmymcFRN3rQi?jvZgZufe%!%9yu8fPTd&XRDT;+Z)J2Z^1Dl16cj4cW9IezTD;NxEA
z(r7A<ACM#aMr8fbA>%HfZ7yRKnGR@pl1<*4Omcva@Dl=p*cTI7r#tblSd|=>_GRoc
zdb!OTGr4;He1()_9xrz(_3M)y2Ecrfybkl~eSg*4<1^U<ZJ%!t`xW`1J(z5o`vvni
zTx=}+uCz9eh>G_RdhFeHmDq6-%<`0ud`Or#gw^UP`}uI4@|>PBQ@-5Vu;uInigj1;
zDD(7sNqB1UymOc%;kEo|7Z-vLg?!Jb9EE20o4({ZB;WQs&Qo<)<hJy*NUTlKxu_jw
zbI&I2S&OEyobA{ZE6ERgU>$j%(KeyILr4t-ycd`i^@+cjDorfSHR69-(8_!UUIEGr
z^0a9S7INGtq`#Jj71mIKwKJy<q@YIAa-hHlAX}cEF~=)zH|&IqiZey|>fc}Nt9_q5
zj7KlRl4Zp=06!?GuYA;Bbstc$!Uvl<*|kt3QiW01p_pN$H^t?TZ{QYrw10mQnQvFm
zkwKx6^;L~~&GgonMxM8jeL})H2LywmQ<f>}#;N0Z2FFM)I=|ctcRV!Bbyx*cC(&I&
z$UViTo9`MNk+CZvo7ze))l72-)Fn4gM&<%@3+N=7qhWxv@$p^W`owvd)hlq8)L|IN
z{b;<9={y33P2`a;+e~ClOWYH~3;O7&_HvvDKKum(0{v=bsuY>{PIRJ-T$T1=H)uP1
z*b;x{tN@G!8%evFt380gGab=n4(#Ad;;%tLX`Wd3u5?FGn969nFfav1@O{Cb*b3_|
ztdLK{Bz@g~zkGNRQ|VUj9kUJkgR8s)0zGL9u8ff09=U@+H(_A}Vhw4%H6!y80}BYd
zruOuHL}WAkU1HjATzXg<CZ?Ul$SeK(BhDww41ij2;qiieJMf_SNYAA@wUBwCd8}oW
zCSC}k(x+8^ukr{qpmcwAH`KS(YQHbm?UO}L#%0WYZ@O0J-cftsaN-!(x7#Au=I7xA
zod00np)0iBP4*aghRQ}bMiX(0&M5b^PM(V@epy&68?Ws2Jv&ddNG$hTl(gRgX~sbV
z8Dx#4O$HAh5}uCjnph}V%;jp)uS70HV^IW@W>A1BAZS`iLisRJp@9MTL^|3o*9Y2h
z8LVP=k4T$Y{R*#J1vRr0jy=hnaBxSkj7(*@%=Mmm1Y`pQWGE^Ve^>&3`#1j~boDDO
z2Pe?n97)H-Sq?|&^Y8Ob+ItPuH^lY|>|53&-V{O592d|1M*-b^lEdc#F^__(BVtBb
zh4(6^9%j;y7f)Nee%iz|?=zcVo5xP5*beJT0K(9B$-k~-pepqdF9{!}!bH$iT&>zU
zG@(?WHu~tg99+UQJ0|&^t7Y^c^)Kd|B7y#F0ioSr*!JNEq*wrnQa6$s@IP7r9~1xT
zqXOXy+<4N9ka<Id$deNm^L$dp+h(JnfWGG%M4vC%ueE!UL7xH_0uN(oI7$#}M0w)*
z&?Uw!`!99u*%T+qVl?O=xiM*YP{GIxz42J<y@slXnU{V#DTtY~5m)v!Xta1FTtORh
zQcF9knjr82{KIQO(Ac3qd0y4;&e~yJF_}EQY1Zb?G2QCbNm>kI6&TZ0;gHmB0htaH
z?G*323@7Wvk@;6IJU3e?JW$6)QDwany~jNz#dQY48+S<Yq*Z-Sz(m*tLJpyfFd!dM
z^LaviD01wmaE29`t~Rl}{+*7YuFMvtcG~n1W=^B>WA>MNDs0D5BS$Zvki~wd#^-O!
zHa(Gej*U_dc-zG)JgmJIo({{hC#ngnUCwNn9JXYQCp!&Zh~2|?E2_wSyqA_bLebhb
z29|nM*EMmA=k|bN?H?b(aeF)eCTWB|vjEIxbu!6eB8x>2K+!=m0{4d(IKpG{5yU=2
z=voed0TcmXs>)SX+owNyppuYp&r0&T6A8Sg?i#k^z;@<#tBwA$s2QmNt>~nPm=>40
z-vMa{*vH9hjD$4CWn>H2qN3QYZ+U^5FS57z^k_u0Cm>VxYok+Qg8j^KC|zCo`ZLwQ
z>jIDS&lBE0gea`F<0&?IJKT1c{6T_(a^L^BudEIdLOA0HWc22MR{?mVCS;qG|DNrG
zT~_$pyi6C#t@B8X_da)QQyzDRj?YiR;1%0Pr@!mLwOrR>n@Cavw$*hlHS+OFm9LM)
zyi{##47c=&nfLpME%6+SCMPwX-s}OI3<fkwNy&RDN9+8ICc*5%D%Yh6m?M^`lnSFE
z^0{EuA(_=VD^!mrH(>|^PjpkWQeWdG&uqoh8FrM;w@T-1-j(aWiRcabBTz(;?)qz$
zdiro8uAz)t*w&L1ptmsb6Y5N~d$a7Fr#CsIUEpQj>IAE+t+dHIeQ=m)au1$8&Q4~U
zbu$`gbibEyMOeC(el6u%c)A&{-=BV+x^11Jwvkcl3*5<1^7tkaQaJd{1+wzB`J!Nr
zP@gL{15hhRzjGPXxI(0Y0f@Q@|9OeS3#)}pCpQz1qW!=(Nt`X%fVb6!6P~&d0KG9+
zJLQ0gAxEV1dyNo>F3C+CHxojt*dr-a4B)ZgzEX4aan){wup|<8I_`HWu6-KA9+IzM
zITk6Go0XM{lR*gO=WI56$s2y3cRm20h1p|UFmV=*Mvq~eHlh8*B-c8(1P{`i-iqMG
zKya=&9r<rsQ{!8p0$QMka<ufvnKrpA_`K=XJsz$tNcx}nj7jo_jCXZSge`|aBK*YB
z5B{IXN4D=*4-O#m`M!J`;A%7iwfJ=Q3iKm{VzjSX8LoL~Du@}6r{H#f*q+Kc*v*8j
z@ca)_3n+ImI8eb>r5<-cSacKH+ta);cXz*Oz9}2GmeNNX%>O+*CU)CA#*Qkq&i*=K
zVb3`i_4ogOu)JRvMtSg8Njd?5?V}3stLs7ne&s8R(`yfI(MQ-jYEvdAiRIMzij8%B
zV$m1|JUTX@PVk{f)3NnpAoBRXK=O{5K;I7*4q(5uLJr_1fzQ#yU@~_Wa37g@)4T%u
zub*(W!@Am*?n*X`zsS*#?BC76BGmyHN!JFS=N7;a(D<yaVbnGcOT~LZw?P}Ley5e0
z<^mibmjRCm4W37)GnqXL=!e5_zwc}n0#&TG5*sf3GV*^YS{U=G4w*ywNgLRJ{vTEs
ztYPbga(_l?Yjn+{MF{fJBxg$Izk*gg67Qu3UZVf=M_ZxCy?(+Kpz}cEPxNyM*fa_T
zEeIcP`LmG!^JwDP0T`idvgXa6tuUZG!P*imFU``wFyAj>?b=`Ou{Kj`<?{)R{C@>&
ztjC3h^-#UGIz2@8L6+Ei$HcF+Bdw0Etx21U-W4@vc7Oep4*x@GnWG;Ca08D3ZhazL
zp_fd(i{ly@I)3|BYFKNOSIaZ7V}>OsmkWgX6EYypNLYUekl}KTruipup!5KChl#&x
zrM4zZzq|nys~3Vzt1F#WPks>6JB;=3XK1&q4{hsh6>sD*f8FGX&jW86;@57_zMOMP
z`upSL+5$P72bdJ~R1!I093YEr&QpOD6Cq?W8#PhACyx@kU`~JbtwR8$N5}j6A&uAJ
zCy4<QsHn3>#Qtp@8W~DLI)FDw9AT=BQ>|$pzDFm2U%l9`kXN%DJ7!2j^k%fMpCf)j
zwlQv!(Ld6_?mVpeYqH#5xNir4ID$(+lkrqAlgJDx*!210n6TEui^M~eKwkvKpQQrb
zdDClyxItHdo@rUy&w*cgKneo3rlzvhu}*!I;vf8J1Jf}5#yDw+<Y2`b>iMzM{*ALU
zfCvMZ^I!YYF7=;={O`rlfsey_x0nP20+IvQ-$_?oZa-i?!-}{?0K}MF<yG42W-$$l
zSBP22vCwIX8+kRNGBlk^2}aNr>cKfQEz<Wo25=x{W?ML!@4ylq@T!ss>Ztu>=7Vg}
zvg^?xUJHV}N{=dz%AkRHpA6hHUFj57l}P7S{*)8&V`T=s1{OpibJ=~aM_^MAmxeW9
z2LKIV6M)F`1W<T^#Q#!O7Vq__7ejx;B?tACVZ{#>ZMnXR%t1MTDf!1v=x_C0e^Zbi
z;O0CW&!`cV^lD)Pbmk*2LAw?JX9copMh5y#2st<4w#B8-9?&=<Zm@hYa~dmlgtf-9
zhZd^LsH&=pO4qaqNn>_~r(T`1v6aKUtoN{*g$J1qj4tfIihmoB$vSWaV=o`3O`=P;
z1E%Pw)GP)ikisc~(l_ucuYeX1H-_$P7~RD}-^eUbE{<m-y91`9j=5<+z`UD?Mp0U!
zCnBShcp=N9(R0OLEumLky9}amMM$w6FzqS^w8q<MT=B0gVx<--FysSe<@mFX1<3^z
zObRON2#G5KNnV?Pe4eS%_Xh?tR(rSVE2Z0#-ERi-S(CotUVd^xt})I>+~ikgqO1*_
z-YejEqb|enmZ&qKmYu2k9ZOP7BEVKMSLMC=ip(%-9(@)rc$2VaU8v)utiNd`5N7Oo
z6$$A)@78ZA2)LC7H^1vz?dn@q5GMM6QyYt)I-hM`Jov~$>BAiRoH7G$UFHSmp2B)@
zLkl%j)H00=8Abu3mJ?t7m);;#4I*xpSes?mK5>3j546mBw6UYXE60$8;oU!j)XT^M
zH+fh~G0yD)_?=Fp*H?h%Kj`$G6Q#Kb*}s_eLF5@*cVL~;U4*S$P5?6*zNdO7&GpIC
zniEO+DImU=b$=U|M%?ZI6f%JQD@R}=AFM!94slX7x#_5{b2DO31pVYDo*(?<P_t$6
ze(ke;eZQmpS_>OnF(;eMJ+A)jU`-WOF*3_zAi2jofjhuYSm-iY=+3y|L~^>hnSA?-
zm1h#Q?ubLcsE(`Q!eO2OyLSWwlA=K~zW6asa<%Y$7SrAk-tzJREVnu1(~H{|K7Zay
zr~AcF%Ki8muwO;H+lAzFmbWdCr#)+5_}`NEHCwj4=X6~QRnPr*$!7B;*ZwSs*983b
znk}b4I<Nn{#ly{m^2(4G1g1?Ou%^V%kK<M*zvcQS+``f`7R_w~%nk}f_N+5U8Dycg
zK;u%neahXx{34G;$COu$KeKs0QS-a}ZKiS3K@sm-8g$6;1GJ+3%`EUeEUUT-?#n#q
z7L0-{9{=)1f6x!7Z%SuSXk(%povsjO%y#kc_g5g<NM4YhW~X=QaLNFSz!-@P11^R!
zK5nux<@SEQr1>(|XU2E3)p+Vd4l0cAa)X)y;iwOO*wvBd)^YNgGTt#MaQ^5d>f1+!
z{3S&w7bIYwU%@aHI%w7BtO@G>=`;`0DY)pU|GH%ejD@Chs^w`D9FW^=*KLeUe11M$
zE08}?VSuPKGiX|PzRN5q#_{I76)2y9=tRg3@It^AarxxJja)irEyFS`-vPrw>z8eB
zIx?Gz+37cL`JBfO(c{sa`>UlH{B=(LA*v%WG8*ktI(nVadF;uhM^@T+a}o-9Jc5lK
zu@P>wD4zXWU5vma2Ga=f9&4dh92;+8N!#5Zs!R1N<ThTs=6)YkjG!Bff=Zk4id7tj
zg)cBb#eYw@>=NA{B&v<>_KF$3l4)<|cm);!#@|^2pwqX7Bv*cFBX9c9Ipdp@7VG6X
z%C*BB`qwXLwaV!30*ti6H53tet-18`W$pW+VESM*D6FvZzlHSou0<)xU@Zn37`#(c
zY}qfd3i581$PJbsJQrjBvc$Eyj@(bWDp8?AEdUr(2DdQS8mVwoo=$oA<s^73xAyeU
zBUmnO`jv?G%dWxTnExv+JXgfXlJ|Jn<-e}%0PIpsDzwe=QnR1!_?OJAr&B&<cgytz
z%YmlTHTLPpE`az2cJeGsc6cIU_*ymyJZLECt)5~1l=7^!S}$54{yGA#FuO^M_q-NP
zcViZcE1vmXomya>$!4g#?NPbALATtEddj0^h~5GaJ^#G+)p&`e%lNXU{#9-Eib0xW
z4Ia+=vw2;3)o0KedH7NPaf%-S61qE7xzo10>?4@RGTv*Tj<1!$_}XH%6+(?+)mzdC
zx&~dpVlQa5-cX<hhixhlsAQDnK%Q=Pwk+@Yquh=6E9wqbT<DWW+<pvZ*Y$#dK;4iF
z*IFtzU7nfuh0j8R-Wo6kL%Cx%7uP*p)RD(%;@Ehcc{<1%hZhy`(mfnB67A%E|M~J-
z^FleQPac-<4ntP@MytbQWgZr0c!ZbEjkbq(U((|}IRYWjbGBuBqWGlaUcI>1FbBos
zba*Nn$WyXENty;?;xtX@bIq&dz5ipD;KtpxkRGc2a$}{ICSb12{Arvz$mqt{w(bQ^
z_wo30M{qca`uhm5it2Q@m~r}Hj|~D%pNu&)K!e!hN+}UA(l?Hu)JV$^Ku+HiyUTPv
z1p~jW{s(S0EhkftMg?6X#4$U_5(B7vtMM6PB5$GJayS3skK8bR3x0nakIyg9W+2dq
zZv)R%Elct`kyynCOmU)4YWWK3Ck4;vp1ZQ}UJn;9&-rrcP<`ho8{4d>q(EIGc=v}!
z`=L1;ifMm;%ChA$SngE>Uu^k&8t-ZUJH$Znm{|ualzs!9Q#F%^7B7YtuYg~IkwfQ-
z0+5+hBV$)jYkScEIaX;$rO=!TF^fmFoi2H~CG?RHSd__oecu-Wy~3G<2AV6C2)ee7
zNP6)6O#s-LxCIFbTz@!he@h1QTmwMXUwPbkXgtIK+Td5*HQ`RC)U*{q6K>Qq@p<-E
zaao;tO|fj)ElG{#nm42UX{H)D!xA2Kb{}qkwzAZBzu(r)DQ6h$^#^K^{)$e)xGN2M
z4J8{!A>PtVc-nGp0nf+RA8rC4xWL(HyZX~n+@Cv6zAHeN3X8Qqt&0JS8%tdl)b3>7
zWNT6_5*zHGlTQAw-T8v{Lr?x|Hc$tOWKS04$82kzAQH%o`*g>0OS!9w{@t!_%ssSM
z$4V#oW=B9f>pAD-&(Gr*-Ix2hV=2&h!>w#MnHnI16LEvN{WiH%)J+ZpGRUTZW0U!F
zKzeTdDpM34Ly?@n6O3fp?X7!-is6@Bi~io6>g#X%A&^#jB0LYmV<KlgClNf2Heux$
zS+ryoc7=AxWquH@)+lNmreCH;{c4AH?dT80u)BBQ`kWBC0iB>Ym6I~e9<>QvQ6QIO
z#hJ^ESY2!2aH>9En`}NmXhc%_NOOzYy4EJ*F7sA!Zg?GSo3ZG?d}%lKytXM_yic5O
z_l;Gh**8#54|R&spmAC&170HHd!T$=OeMYKFqY)7O}v=Q9||EPmo-3fLj9^Jp%v8I
zFzW4N8qsO9yM#LDLhz!vQNX<3O=hk1ENK>F-oSb-Kc~Ip0L?w~t0cHbj#FL9*kY%I
z6+0?ww|6A@Y2`HE*g$LP*o5rR&z2@RFF0!5)?B`(d3pU4y6R=Vrzh8uFd}|ZS!WjE
znZ>pT=;_aiNgKm!eST`4Pcu?i)BdbnzrqXPtJe5?-sAzYp`pp|<M90(VBG3+O~9Ab
zRXck8t1Y&9O$MhzmrWrArmn-K2Ho?P`DcxZ=Q&2<%}UcGT;9_o3O4BGVPCnRR7izE
z8Rk<OrH;86cSyIacL5N@|12-?|H{4g1=A{E$0d0EuWksMBmj&C@#{6W$2?kF26TWp
z>eOK+X_B*5hY5BIge5}>MWQutn((lV6EunjM9ovuOX3a~!g%<zp0CU_4hOYgmjKVG
z8cH=eh*Z$8D>wnU%d}qzG`a@w_h!|8HX~AmJZRRmy@dj07+n&v;kcUZ8qGD0n!Mh~
zjO97)-2UgpJipp%vnbHf0rVzPf_7?%8?OJ138X!F#xyXX>7AFWzwc+2xOIyM70`m{
zat)yXpbUw-3m9u$*A!np96o``9oabgUbRm@Tt_)uo9SqN@D3y~IRCExmUynsp7yhe
zhf6nFu*|~)WK|M(LymiHzvtciugypNnw%!Ux=P6WuT7?&lBFs>Bv8h4$D|XGtSBkE
zFfqyNuk@JSmeBKxh7{ONsliLaX-8D70^~R`0db4x<wYXa@D@ik4{K%snsG|qn7+{{
z<YlQj8B?kZR^e<c6Wta_O*DJ+zsE(2r~XfS-yPND*5wT-f(5~fh`{Bla1jKhN()z1
z5Rf7W2neC~qV!M_QG}~B1re!{CMZpM4WWn-=|nmSAT>e~S`w0wWS(%}_g&x2nziPe
zHGj_hmGvZfp1sfB`}}q}`#I;gx3;1WR8U`zo#4uSZXLTW9)LTPWaPdv^yQ??Cnt#m
zz-CdL3X8WdoR<f7C3$DB$ko`{adO(WVcb=mTrhHzpd@axgutO^B96N<eU^O*^WZ@S
zMP2XBGI?`PGn`CuBg;&Vu}H{NW*Y3tMg_ADv_w=W*Lq`j^~INlw6Wvqeia;lrR4-x
z?i6_QaEd-m&aY<GlS)`75Q=daObSW2bVJf?*H}#BQ5M4wMAy>hMNnpr!LBt@{IppN
zB-3yK4z;9HV8GGgkWh;86&4d&%k*fWFjNFtELcg4`bI1ZL?u?2YuVa_)$R~ryUsV|
z%0!d~?KlOlYvP{a^d`9qjf$!Xk$<(R6I-@fimkR3ySDOOB5QL4%zzsb!=m^o75uY@
z#UtoG!_50`N2K#5Up(xaN<SYps||B!5%}@5W#MwcFGlR11!6IM&CJugucS84n9T`y
z2v#~Ci5Qk372J%f$l?N5;$<ImicVZZvX+rdn1kLRlCzDBPU#?@oQpEtqSMewH3nWD
z4m<GF=cD9{GIDhgk>gKZL=nj})tKoD%ML%lQ8}E_A$yIB-#eO6;;y}$^1T8Y;xNR)
z;hHD;!q)zv=)^JB@=rLkyQ?XLizBa4@`VWSB?qw3W`D4?c#%7jqirVeBgf-YI&+*r
z75N`Sw{OQnR<Z>;>Sv+N1d++Z`r%#wVGRGco+faqaPb3=J0bA*{ahNr#qB?z0%6uu
zUfvDhLV&Y+2w1rI^I&}2{>Q;k;7j1B`v2mtD0o>oaOgSX7ivYWyu2a>u-E`1L01gh
zszkjAwh+@mVw)*Dd!4AGF#;VWl0>c6BO#(t#wNZ6c1(O_RuZbL-=$9{mB@ixcY{JI
z5eRi;7PIiuTk>CdqjXZ5F^HHJ`o`k5$=s*Kf@=;@^9xxEH7UTA(9wvRuN1-zV`t&_
z%jIoHM^eh)4+M4vew5Bru)Us*^Nw%xiy3D#Kp5>5=pc=5ck_P+x904o4_24Z)-1sm
zB}62PNhcz~kz1deUrjHmi$|9%m&6;lc-j@RQmI6g77?+z&82(txnm*YmmaBoVdX%a
zt()w}nj&dy1XvToYBzZa)`acNq3#MvZM={oBmUTU0RbdIzjzrMN!q;`)Q~8>LB;7=
z-g9emR73X{usQq0ffQ;I6bPq?f*7>53M7+;>kJPUk6v4Wuh@ky+6A_RZOv^~z^EQo
zInBAS0VY)#_*D#c9_(a&nc~l6kc_or1jtZo-0#TCzO8KDPzxn%0%StLQ9c>viKAEW
zxK|cLOJh;6i%c-7L2U<M>!ojGC^IOgh(gxpbs%EVSmL)k!q2$i?jN~~Jwu5FBUd*|
z1Q{nS=eE)Rlw-+0w>a;EyL=lo6=dsi@fk=c7BRa#hUXs?!yXoY#G<LBkBd;94uM-6
znzp}$Uz{tO7Sn1$mkriKH+vBR<uF?3s@uqUdT%pwrgzG*Dm>HF$*<JJ1IgU#GOsdW
z#bjX}8Dh(CgE_fNLXbU05pqW&f^k$wBDRQO6Ma<WAUCMFlnX}Mf>_TXQoaLE&(T8E
z3wDsU(<(;zuWU5_OSB|(I-q{VG!7&ua|0d3J8uNpeferpGB5u8SjkWb;WE-7;aqFu
z!iwK|(D<7lla<rjO-f|Jde|FtH<i+F*oV0z19rvXEB$l)0s7$?j-$=f2NGq1>G|Oo
z3k%xZ-i>me)x!U=k?vymGpOQ|E<DSCM}!8mnA`rB*{yxtH@kyedx!33P~FY-jSdSX
zS+jLX4dMkXelM<Xln?xAZ@y>^tLBT?>~>hMdmUw?Ee}i8Cod$;PP{%J?({;RPVVk3
zii+6hL7jL-PO2-))O4=;7xQ6cNa(Zjydn{9P)Q%xV9DIV>D`u{0_nfWX5j7tMyB=>
z7=Loc$#PLk<UL8NPzG>L>q5yjXwE8VT5<PU&qfodCA^50g<fM@2VdzzFm+%xNgtO~
ztCxE3*Upf~AJjXa@0z{*daqFPGll*r%q(#vr`#l}NOB-P{br1)h3T9^FRQYthmr@#
z#CGn$nLSd8B*r5M3q#Ttdo7=*2^`rw^e?8Y|7I$EyvOI64WPQn1=LDXMUED9qlGe#
zQ0LbY(KHT}Qv>xAFZjXscIMOIFecE%|1CTA*0^MSZ%D`Js4<K;H@sY|b@B?8A_fZ+
z8R0QV{#bQWiM;$Oja*Eabe<cz?P06}i*hrWtJZ_I0a!D<D}I)4cY4=b;&dpl_};P}
zi8>m@VpRZyTWO>@dhhAoy??QI{%;mv0CUog^^v+j>X|Kvc{Arpc$)*`g50ud+IJ-a
z8W;{_Bx5gOu{|ltZ`P<zee27Q!P&cFd%GK*HVD{k!TDz1F8%NaVVz5>lWcatQT$gi
zTK!ixgyQ4<6aHZ1g3#ibP=6wZw7oKpGslz(XamY&OQXC381#}H%~Iq@1T<{q%)T85
z+5#~4Q6c-=)g9qEQralbU`2WCY?Z&8+#@hwtIk%CzwW?~xI|R4O=J^4G~PJa-^=}1
zOyKvJ{?MiQXQ!p{_bYNP70$xZRlJ2F%U3r}a2wo-;zylZI=|P=&7NdEU%B|jqrZd@
zaYN2CVnt?WLL>*Wb)t+vNV1{x74F`+&OTz{4(^iHuoCi>vaW-Xs<Af6-6gvUeb+wj
z>xzRYF=!LEKuS<B*TjQAoZ&)ZbX$(&VqK@E%F}}1m$do)8O7g|9)F|q0}&wp-eeAi
zF0$f*_wi*@^`~TxXaK<j8?6ER72YR#RA6r0*B;yH@I2^xS>HU3`kX=+)j$$hc)j72
zufnjIvgC9#`Ac#kjh?OgtjJE!b-puK@HZ=R9*6}R4+K2g#0PuCc5s7~wR{KTx1odx
zfT*J7S|6Wy5*INOr0NUR9Ej+*I?J7N%b1PEY*8oedkk*gjpmhLs*&kswB$V<zr%XJ
z)|0dl*q-yv`W0YJJ)NTjjlHm(qlp4<gYVzkUO3(ZzpoO@Mf@)H^p4q_ZORdi?2k9r
zOl2ubZmOquV>a&e{pr@EriOm8uge-<PAGl^ZV-!g70_NqaBL>cHk|1w;~zwdQg*O*
z`)Hg;v@)ELojp9?4R7tsOum@jG+zXqqvkYGU@0nlJ9os0wY7MYmXm8m1lomr3q@WD
zhSC~_S23<QghzFjN=QpvxPL6SHm`zGw8!btJd>!TStC`5X8|DPlz&NC@NX%fm>ZX)
zCaeJB{gr|>I0i1-ZdpX$oR@$yzu7e~NfoeTljfSL48X5J5e{auvfAw<1j9hZaRl^M
zaAVD_&0iQ;%CD4Rl}`h^%`1t5q2q6-FAIiF-JcVW#&PG&7(qy(b3U~UF8HTc(i`{w
zWzmNFs=oTwYf-rkp9II!H`}+@)=Ikh%VU^J%L;hsCQ=-j01(ZldwFl!-{sAGxbG^8
zkXbQnEBsg(sP2^jK|=;)RE-7%U`ezQgVHvNc#<k~(lUL@e|~5?W#*UmXvRY~D%Rvf
zn;+orHi`i7TPp!3*`dKJ3P#;!ZQHB=bj7tpY=2R6?&5~<{8;RYF&xxVT|Z9m#bUE#
zjaQ%+-oMDnV(tO3&-zf48Nd)Y&<5&_C)^ySr*R|4yGkf*M;94N9B6Y4A!ugLCyrsm
zf)Q=ER+-V7!yQKIM>I}f*?3G}*e>EH^1a<<KQ&;+ytFOg9}J`(N!9shFMt|a>2GG<
zn--z1D8LSp92{onqW<5&jB`H_{O!LLmvR0tzG=>F4GX--LBJxKu_B?sLH1!G9Pd2w
zhBEFhG96Q1Ri4L6V@`zH2b3|M9jnWf_!exE5`}R9V(>uLk`}AC)|(>7q*1&kWlJZp
zNP7L+)DCHu$!JpUCqq^+;a-!3dSqnlJ3Lo2iuXSWqyJ}umwCu2_z_|%wwo5rSlswR
zF^-LuB#}$kdTmHw$W#Zi8xSHz81owsYzNoOohb9K)b7q<iJVBM>3s?e1wFX`Y7F}_
zIZUx?Igqp>d4MG6$H;7%xJ^pYOUR1^f#;3(Ol!JdTcyOZu2(ouk#dOzyJ@Bkb>1_F
zTi$<qp=@a&G|9*^_O;(0|6cc!ga6A(JWUTbw_7#2&M2I0(E#1Zno6pJ?fN!`E7!FT
zYx>ybxZ>U0FIx9HuKz_tZMqakSYU|ETz7nSUL=%Nlg{9e<>@X;0~iTlGvZ82SpZ%`
zeyDas<mwD=4Lp=qHTunSYeH)|QkFVGcgZ~Mi<RTlyyIn1Be`+-g)+>*11^@h4z=*;
zp5A-;0$}KLs&x?>7bu&k%`09rNE8Fd2z&>QxCg#c%eKImUeI>817-LZj?!8u!I%$$
zqgLdSgvu`UY@;>cH{PXc3#MCh`1$W{4BN7|x3;%JSFaQTVuS)>ga!_?A7bs|I9xrS
zJY=>uzMNMZ^6Ky=gXt0Qg?YJzzrS~(eQnXu&im(+abx{c3*jTQCYMa*Ru31OIfF?m
z`G!RbT>>h_9^<f_rs~BUBc?;4yU*m%sa?fWM}3&@Ml`R-D@QHk81wlvJ<G`LGVc-~
z_v*D|{Z!POPl(G8jCNraPq}BO-g3`@UdQF-GDlr_bN9yD6GHN)JK>tWqDw+E=q;;~
z`*`B7JNXtuSoAa9ns;5xn!!IuK(Iie?{4s&ij}xAtjAjaOCpZe>oyohl3N$E)i7{e
zw<MiA+pD=sqoU^9qjz#nhw!FaS9nvBJ||dTjvk7j8bY6e``8Nc@~2Ux!1^p{p}i5b
zoXgL8yPCS&p<Hn5lodZIyr11iy4I(|UnllnCISlaM)Z~r=ROZCbr|_e+y6i$HJ{>}
zp&n<;Sx8w+nngi&ZeHH0ICw;K*!pZHed477BM!a%xc85T;gSZ@21_zRo5FU3cL0?t
z>R15j_4KC9yH6q8K8>bcOUH(SI(vCK``1@fs<*x#M81}DX-*hl6gUzog~M2h#ph6y
z^Y~^Nuj$qLl~X5Y54YSk%t019r%~E%mISo7>0{n&vsuf=@drbny7V^pUD=!5()FvO
zrJzq|@A=*hS--d<)aziiz(ASnhv_}s_-m|cq9Hvo`^F`Y-`3K~KGlXK(@^am3eo!b
zpNOB$$$LG@c!_jFJDF&c@~lzo0~Z_fw=%%VCup0O-S8?@(>fcdVGgbE(x<YXt4rJ=
zE(LX8AzW~al<G4cQhEs@jD9KAat|Nx&P=V!6LXyJyg!`EhJ>vzR`;V9qEH?gfN?#a
zlz7uGLVs_(KcRX-!OGh5qAgF=&0;R`Lj)uGlqZvDD2J0&$&YaW8<%c<NQnDY(32v@
zy|^KaDnoI%zSY15SSr*e#!sD`KOE7jEj?vQo~0M7<8C$e;%U_RO_%puC_X>t*Sk-7
z9=`E2I<DaAn4?i^v9-V)D$pvc)_;?pe<%o^Bpm+D|DIZwGV_L`8n1jQFhN`@=SAfF
z*Kc3)IOm5{4Rlen!Hb|1h+U#Jcd@9z#}Sjqma46N7iSl{EPlp-zmN5nqEto<TkZr*
z|Cp-klH3ro`3|jp(}xTVi!jj#K{95_;oGQeKc-9^U_#EQGuGQXJ5{R6ch-A$YV(^0
zla3qFs=<gqt_A$~VD-%@S=YLAX|pYoh6l#4CTZed<h?H<l^el%Zxm{sa;Gxuzo-8U
zcV}(bHa?O~yTzLe35#G|YG(RuIUY>~*Rj<z`%^*+Uw#e3TM+uQzvAjNj0=t^tU*$L
zH4o2bXUs;9erL`MD8ej^*s|HO@^Y`5^F0o~M)$?8gHV_5be-IbU${;mb;E^6j$Dsf
zEZPe+s+d38|Mvt`4gM()@>Vs#i~KP1jm~z+=wx{254$U#$7L2|q)k@frxv@;dTJlc
zrU0wxap#{J!vv))J@e7&OPO{yb(Di3CpOZF2D<eK?{Vfq(gXP0|H(_$qR?>Z&FDaH
z&%|zBUCGw|GzG}cLHejp$-9{%F#yy23&(yP>&KbzTkwa;r0hQmLOwdD+l4Dwgyh!)
z$4*{S+WEFteAcE8()t#2EmvZ&<@0u@ssDIj$@N)VbbhT%n$g@HYki6@GadGqTmv)c
zst$Y7jP{5*r_&`yet&KmV902OJwUh@+&Y%9=y`eJ{@=sa=2gjL!rjl5AR;~P@%Ez$
z98W$yxFV9JOowGEKTC~C@lb|TN^MDI%8>;qrQjn9IHQLaAg?oG;e*NdZGx8%f(i>4
zTSsbF`8Q9fz?9i=;*9%IYlWe|6&$J=<PR9RHSaZhN7GTYCTCyHTjcbs@@s1ef)7q@
zO*<*Z^~?EHQ5$C;6hdOUT8f)(we(`J(zTU>Q7e%JCO(q`r*^Asz6UGAloQxUMcuw;
zoc=))(Igy6^d_R(a2HQCK0nkbc0)@hRX=}lyHI$&tZ3iZnMQ+Q>$fjT8lEjd<d39F
z=+q=j)(l!Rtp3=VathHV?eNqBZUCysJnsd?`E;GKo{Rv0FK^g1*!?BRgKOq@Yj^_v
zs9)<MxzT8&-^5x_81(+L*)D9`4GrMEfyy=h0AgxA0`gwc_Ji}ixf#N&jFo-Hd^*t-
zZ|95=o0x-yJZI=eAN?n2>J0E<xV?xo5=O;Xzt?~t-J{91gM=avlfS;MU6;G;OHGnE
zJ)9ZwWK4L)t>VFS02jQuuppp2N7UPXpKK@F&D4W^eq34FNv&r<-s=_}H6lJ2K394k
z-lhudn(^b1Tx7S_duHSmzHC8Eqv<ZC2HB2wJ=Z)Y8+zNzs&uaMRAp9F@3UH!3dFry
zxX}?M`P?wqJD8!aWf1ubI8wPKs^)R5@a#;{Talm?@!i1CAZKz+D^_IGO4DFdzcyEL
z!=?UbX~xX=Fu3-)PraEldy{9mG}`np*j_qyo#OgdDowhUD@2oEDV%NLvlEcbRBTAO
z<aBO(9XD~PyMlAye;f@ERev*40kuH2WY+>A#`JL4!*Gq>(&EhKi5YT|>>;-l{@h2Z
zUJ1x0|Gp9A+rO5^7IDcogDVydrak~5V&7GPeQIJr@6FQctEkm_`q@Tq7&^ymJOR@z
z9?jZ<vzDyun1V0{U7#aQP|lTM&nO6t5V}&!C0G~tKubz9Y%Ru2fS92aX`Xq}!!evi
zm@W6>DQA(1osY_77+by?Yh<IT9|2u_Q%<HSvk(gQWUyD0AB?WiXO-|gBjP}&b&AU5
z03~d?omZnx*&VLcw9}%ZzR31(HT7~S?TwC|#i#(&lu0W<G-usm+wxhpdwB!L^?X6C
z5sGy5jCy~g;{x!P`ze#Qz+X%siSip?ta(HqjhW_kGtrVt)h`^`Ovn*;!6eFhp1GB#
zF!eQ{YoK0N335F1A)9u6RoU-trz&@x->z*up0mBo;hmWuXWcb)dDAQ<ssma_5P7=f
zp`6*jyt#x+?B_$5!)IVSW7W25i-rL}eDtU^T=IQSNR3jW?7eTon)vI*D4BGNI>Y$3
z>H`@?JOM3R%0{FVf|nlfsuLa{gal%hluzdBYpwj~d>5d)ym&CQZi0EgcKDa;Zg0gU
zpvL^0BbSDaFAI@0a*&1LSN9hL-gN$wde5=DZW^|Y7pQ_C_8T8WhVE=tO)|#)8@Gnt
z;17~?Bw=0vTxKcXDjcI;%7SgKDn@>7c?1&9lJX7pfvjabL6cHOHeJ{OU;cRszuz#u
zx3_mb1fCz^CtFVWjw6MpeE&%6^;;pXPF#;9umAj`K=|_yH76n%*o~r^8i!;u5<vX-
z0vYu%B*FG6_b$19a2#=z!@%uej?XxAzIjm#3k|q-r*4qn0Ell7+*giv-QL>S{Sf$`
z@{>?ubUe|Re(I|d-RlC_rmDQpyuTW^(T{SN=X3TNH$Kj<Q!kv+xQ5dBxbS=gr82wX
zZJ)Ei#ldl;H)rptqe)4$fW$q=aUd8)xXtmT{bE)6TdXk}M?af~!75zJoa~j#tcfWM
zm@I`g1|HqO_BY^m1e)RQBnz!C{kf!-R8(8A*8%R~X>Z<J(|Es7dun^3uGY1MC&0>q
z!l}8J6N?<Po}&Y_r~vz1yRp7kZ!xgGK6*NQRR=SS>6z;5%OvpZRvJ5B&9RZdket0$
zyja!anvc$^sL670*t_OLNkTCz2+2<oW8o)T82!Djyy6c$os1vH3Xn?%2kZc?WEO#c
zl;j_M06NFI%_!*|z8W~bW3{xiE1#|@2jPui8m0|`gc!Fe^UP&RnZQR4ryPRwH*4)1
zp(PqkIap|-D7x)FU(?MuMj;de#!9Q|p`2aIL*nr^(=x<M?y~qh55o;D5~4;oj%iF+
zJo;2iYpfJhR_FlAeSF`<y~b!;Hat!SA!3z-)|g>-Xc-t*-Gi}5ck*vY9>-ouVqEQB
z&2jdr@!NumMw+C1P_N+{K3dVag}hY^<MAIP4m5Z2YD`OqKO>D%P#3(?x(j>zl7bSF
zyxj^{1B0w4L4K2}%C_#LuG(q*kY{ZNKRA-K)jY3<KSWmW%g2b*hnH5QMjS!3J!3c4
z5Le6Ij@WpW?ZZkH)}GvWElvyy?A|`5IK6_=qE!RAW<6_<AILSoWF8Ftsj~H1(Z6O*
zk|LJS9R$pc<6IieSJtjBPdDRo)4s+o5~6{np0zT5Y&fx)bjM>Smn_h6VPVNj#*~9&
zf-@(|Z9EWu0nUJ|>t)Q=%QL4yY|mC`N;|u=<lXd?Ol4d`P_T!`-4$hJWj~MRGvcE`
zOY<~>$hK2&#a;uT-6GzN^$bF^XMftPb9cY*FOY`ZN!@0%CR?bv7#Q8N=zA0!=zwAT
z0oQE4asKE!#$$)hjxaB1ldrqTB0mCF{1o$hTXjGpNDpg()j+^gCD*`N%LwhO;X#;#
zEcZYkgc3=@4ZQJDFgKFvzDK6oJrh&^xW1&a!6r`!$mcMARr_K!ZfK}hP=0r7hC<(i
zj^|Ln?Re`7*6N4&AX01BBx8lVtT#R?6x3H2J)g%1tM6=wZtpNrZ4%R@l+Ka1l+6Pn
zZ6TCuNZ8{E*4<{P{N5$Tk))%*BG=sH9UyX&=F3Ve>gFl@(f)*1up5t_60;2)AG4Wk
z-*iy`qWd2@V>NSzNn+NNU^4o->8HTQ8+SCLzknH~$-V*hDLmb2{p=JVnIQyC1S;P$
z4BI@`8v@UOyyzP+nLW$6G}JwjQ>!(eZmIr|-xA*SrdC^*D1`r5ukZ;qPbjsT6l})b
z*A*<YcDd$IpMq45p~zwEOP<`<{0x0Zy1-%%ckNyuwN8km_}8_}uw|NU`72Ou4a@VJ
z1RK_tUL6`GViCgHyQ|w;wp+nf2*AW{@v<jL@0bI3vIKb<aAi%wbFpBC?a=pz$^r=_
zT^CmOu8c*7v&4(PwS5K(Ogf{+`p+wn!eaoO325{BAw5h)I5;fyp7Q7ff!9GeOz2Ym
zaf@a%0FKuVhT1;}nW8<0MBGsGV?<eYaI#-%-)MUeM7i%&{33am^vhC})WxiRNfwUG
zL)4=MrdDDLU&_O+&JC5rFOV&+@3gia?oB<;1AAdL?kKHJMoFt`$&gwT-;BcH$JQgU
zG?mAdgadLf^q)xcDORq-`sCh`sS&lFoV8Cz5^L9P(aj?caC`kYR2MmVW9EZ|AQP(q
zQr#I{its-$7~Xa7kDA=`DrQRo+ODT~H~xH=AE#4d-kV|CI@)kUo@QslSlso$UM~&I
ztitCDy{^^t*ySbMX8ZgEcgKW(?qtga@Z+m-{UxiF#y0&_2HKUZbwTt3-0t{#<T6bK
zQi)Njd^u{IC?^?F75G@qy5!ZPR=E$#MiZ4Zy{!bwINbX;xd~E8slEBj&v@c%h}YI$
z(O+che2-<CIr^t2(a@8LK}EPOMfb%B%tc+G({%+Cbn?+?_eT$s$S)`z$<kGTsl8zQ
z`qP12JMdjR+60vO7<`Mq2lbaS1(no}B#mBK8fwuHZJPNdYgxV{s4g8Vkdc;j=$#G2
zQThg1O5!VpUew=?Ft!lONb7!X>5|zr@i+2$rgmJeG}OtM_z+BMjn{);D1P9Poo(^y
ztckEB;UQZrJHp22(YQr1!6ReEhCcLW+l0<NrN&iC4jok~F{FXe+T-(Eg!pAh^=s9%
z`o#!bsjUoC-6UvBIxEKjLG@|;wr*N(1R1qh#Mfkb&}~rS7<wFex1z>6!IMIcWdNEe
zJE^_B6G!XuPqk*rzGUQk<_B4bTKis&yGoys>`nN)OhHq5w_m0hnPHbHrmY}`rM6mH
zsv7SDsaSSpL%aA#SgI#b9Vs@~<^|Ack!MqQ?3;)B*lbz5p9ZG#B^WaN`K0;utVqE4
zBGvc=E~3UP<IngN1g>8znr4~iKyD1pem!{sh??YoAaD4@Z0QmWTQsf)3uR*QD$tOn
zVV=|>r2ncdBPmh5;FdiOK3+9Zl@wVOXqH-Cy)}Wnd_W@M%_tE`4c3Ume_oduYwoTE
ze2@RP_NMuz=krsL9h4Qs@fq^IkIWY*+?P3?`~(TB$X!D04E*dX^VEhZCgD9&Vi5MK
zr`!uA?GE6xs|{;8i}LEUb-lRpT2A*3@oH5d>*_Kn_bIadEs*ES5zR|*CF|FZd<(}(
z5KGoYc738tl>YT<_5~pDDgGggm2L^aabs&ZGk|1d+R)Q+>ARKBh_eW!R=M#su{+IM
zr8vPXSmrQqT;}hAHJ`sukn3j+J^csHAI<tb`Mf$U(`+l-NWIZ}7vdL|TMH=Hgt^*p
z0aI(5kvd=Guk9)Vu=Bz|XZPbGWrnj<wSE#A|6Wm#Y<<>-TxtATV@+dIihcqye%a{w
zIUpxF-s9s4U~AEn``M=<TNMpQSyvQexzyiDBIZLra(2dluJZEHI<E2wWmO^_`s(iN
z*>Fh21fyw+wB5PTdu=I27>bpC;I237lOxK1Pj}qgPE@Q<!>8qx{Mzqr2V@?}CvK86
zQ<`=N+ks}H$^3{X?VE1;=r^Sfvso8h?<H$0w~tw$6~=CMiP3jsMt1GiEij9Gf9_*7
zs267SQ$nsz;gw?Li)II(EHjnOvkAOrCHj|qV7fA;5`&?yCMuMZse;C6pl|d7Tv-xv
z88}iZT<;BkKVm|y<aGL1f0X*67l$`E;w+qFvaAk`Cc6c&OA@xw{gQ;Sv45|h|NRjS
zO@w!%VY2$Q>WzIVt-Qb58cXJ%P3^^Hp2{rhrWjXIpecgWLfeMg<|fd>COv=|+QGY<
zUo*kxj$U+i2L~kx+3Yqwv!Yd)f%!zmSeC61`V2xU)Kk0WX5#3haa<`6Wg*=kZg7g)
zt4bt%>bp@~2abH#nk6M7qX(rKySWIr?n=XJW0t=V?9$?o375N6x`@#?T#viGB8snD
z3IoV9d>35&qoofTFb)XC>762nmbhWRjqu7_rZU_4xea_*L43ZACWmx$d2Yq;L)p!c
zs`_>@a7LOc#n^igBIlRf<y_w5co=&)UFp;u=UEv>6l~<=WVOBV7a+y*MA<?C6qB{|
zEE^aq^+qi;TRGX_zBp_-69FC7#5;+FR71+c<sO_5!v#Hv^Qp%fdV4H?N(caIAn%fe
z18owhzC$8qS5DM1%If1Y9xa|8j!e$oO_HlFgW1MmdR8y&y#S^QJAwS(uLRp>-Y4a~
zNlaBt?k$h+mfVi@k1018t9r=m@TnV{Ch=lO1D}}k4oHpKJ%BDHkA=$~pmf(1!HYIb
z=k2Z>-JDwGfn0SJ3u>u(#JZ+|j`_<{yh4&x(O)x^;w9#;{4{O6X@al+iCDrZd1*<&
z7AJmCI%I!UcIT1`s*kwYLik#R-LJ+i;kWr@+%@sroxgjqb$mx9g5-~N-VQ(tc;+T8
z)~`vThQbS#$pg5Sq|=|TOplQ3QT?7<RmLZ5AlP0o>n(gf>-FSsz?kw3AwuSaRo$G$
z4u_rguRD+tY}i&&k7$O9=hZk;NSJCj=t|`GC%2^`Ce+eV7?(T(2xLY4{p>b(9DM=G
zdMe?wHp!aZo<3nVo6+A@!9H1fjK$v~H|LM33=BTV&-0+G&+8~b2xhlwm;@~Xf>W}_
z1y0!-o6Y_pPC0Y}fcC!tXm_X9uf_;0H(=_*3nP#!q@ZRf7SUD5dQE9NJ-Nc*MoU%E
z$NRmkyeGRs^)I(yQHq$@#jfDtw-U;v1w@)XJihf{xMSO+V4wB=mK$pc+tuU6yi-i0
z1}noH`sp`D6Tx9$qV_4vkIfRas^x)g;d;D}1BN{>k@)!@!dL}i=4YQpT+OqP;x~$n
zd>k=#%qiCaIdwNp9WNI;c_F(iY~P7=Ydsu-s&NnZwERquZOo0s=VkJ>#{yyGe6pd}
z=;OxnCgotTq?Sg|EiiEzvq>5>%~!6$6N`nh_e|Hr2S20AN-0v&Z<<<AD+uANZQa?+
zZ$!fi$=;6JA=<7^K<VUYJv;WJgEE|d^V9*Hw?&yL!7w%D9#j+B|2XhX-y6-AxrzP;
zFDn@t>cmQL;II&;&1%`fm*A-G=6FiF=2?DR`{d%SKP(5V7b@PJul_pqekKf5-=TCR
zuMT;@_fg7<<{e;amgVv<|5)<TAmS~Boz^O9)fht509Em7p?_bfNCL6Ywcd=SBGx%=
z_UhIncscxSqMV;b?2gfA_*+p#;hd|fmXruMM!)P&E|Fx#{mdh++6K+oC_x?#sH@`h
zbNsxyzFhV#*Cu6_k*{Ub;cG~lhB0G5R6l%f=;NYNj53Kn0hG;e&=yNI@R3c<`?ZP>
zGH9Q`Q)UTL-uYfz66o&}>@tPvr4Sup$%V>^z>G1MU2b>@)!8@k`8s~St}ro|(SoXx
z4^9J&=@JmVzj~4?1Pm=RL~HR-3H&XPnBaDGjE!}@oHE~gYGh){zd1Yy9z6ZkqHbF$
z{S3QGz6>b;dO4Rt{>w^{AI=}Xu)EDT>L!O@q-$H{<;NMVIAYW*Eixv~ng9ismNP$`
zEr8q&SV8>{t!;m=$=RP&w@0&MWgwOR(huDo1^WL4?Kz?JLDm<7EyqK(i~EgmQKsDn
z!0taB_6tJ)w+#EAH46UERyf%`hX0?<h5s8CvHK`ZmpC{MJkYy+^8sLV|8>XZ{|2G_
qpCJA_J-Gj85&vvq{&&d4l$>tZIfmN!m<gB@hu$5d+vVE!&;AV?Qb{}j

diff --git a/_site/posts/2023-10-12_DHSC_Capstone/index.html b/_site/posts/2023-10-12_DHSC_Capstone/index.html
new file mode 100644
index 0000000..041b25a
--- /dev/null
+++ b/_site/posts/2023-10-12_DHSC_Capstone/index.html
@@ -0,0 +1,420 @@
+<!DOCTYPE html>
+<html xmlns="http://www.w3.org/1999/xhtml" lang="en" xml:lang="en"><head>
+
+<meta charset="utf-8">
+<meta name="generator" content="quarto-1.3.450">
+
+<meta name="viewport" content="width=device-width, initial-scale=1.0, user-scalable=yes">
+
+<meta name="author" content="Kyle Belanger">
+<meta name="dcterms.date" content="2023-10-12">
+
+<title>Kyle Belanger - Reflex Testing using Machine Learning in the Clinical Laboratory</title>
+<style>
+code{white-space: pre-wrap;}
+span.smallcaps{font-variant: small-caps;}
+div.columns{display: flex; gap: min(4vw, 1.5em);}
+div.column{flex: auto; overflow-x: auto;}
+div.hanging-indent{margin-left: 1.5em; text-indent: -1.5em;}
+ul.task-list{list-style: none;}
+ul.task-list li input[type="checkbox"] {
+  width: 0.8em;
+  margin: 0 0.8em 0.2em -1em; /* quarto-specific, see https://github.com/quarto-dev/quarto-cli/issues/4556 */ 
+  vertical-align: middle;
+}
+</style>
+
+
+<script src="../../site_libs/quarto-nav/quarto-nav.js"></script>
+<script src="../../site_libs/quarto-nav/headroom.min.js"></script>
+<script src="../../site_libs/clipboard/clipboard.min.js"></script>
+<script src="../../site_libs/quarto-search/autocomplete.umd.js"></script>
+<script src="../../site_libs/quarto-search/fuse.min.js"></script>
+<script src="../../site_libs/quarto-search/quarto-search.js"></script>
+<meta name="quarto:offset" content="../../">
+<script src="../../site_libs/quarto-html/quarto.js"></script>
+<script src="../../site_libs/quarto-html/popper.min.js"></script>
+<script src="../../site_libs/quarto-html/tippy.umd.min.js"></script>
+<script src="../../site_libs/quarto-html/anchor.min.js"></script>
+<link href="../../site_libs/quarto-html/tippy.css" rel="stylesheet">
+<link href="../../site_libs/quarto-html/quarto-syntax-highlighting.css" rel="stylesheet" id="quarto-text-highlighting-styles">
+<script src="../../site_libs/bootstrap/bootstrap.min.js"></script>
+<link href="../../site_libs/bootstrap/bootstrap-icons.css" rel="stylesheet">
+<link href="../../site_libs/bootstrap/bootstrap.min.css" rel="stylesheet" id="quarto-bootstrap" data-mode="light">
+<script id="quarto-search-options" type="application/json">{
+  "location": "navbar",
+  "copy-button": false,
+  "collapse-after": 3,
+  "panel-placement": "end",
+  "type": "overlay",
+  "limit": 20,
+  "language": {
+    "search-no-results-text": "No results",
+    "search-matching-documents-text": "matching documents",
+    "search-copy-link-title": "Copy link to search",
+    "search-hide-matches-text": "Hide additional matches",
+    "search-more-match-text": "more match in this document",
+    "search-more-matches-text": "more matches in this document",
+    "search-clear-button-title": "Clear",
+    "search-detached-cancel-button-title": "Cancel",
+    "search-submit-button-title": "Submit",
+    "search-label": "Search"
+  }
+}</script>
+
+
+<link rel="stylesheet" href="../../styles.css">
+</head>
+
+<body class="floating nav-fixed">
+
+<div id="quarto-search-results"></div>
+  <header id="quarto-header" class="headroom fixed-top">
+    <nav class="navbar navbar-expand-lg navbar-dark ">
+      <div class="navbar-container container-fluid">
+      <div class="navbar-brand-container">
+    <a class="navbar-brand" href="../../index.html">
+    <span class="navbar-title">Kyle Belanger</span>
+    </a>
+  </div>
+            <div id="quarto-search" class="" title="Search"></div>
+          <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbarCollapse" aria-controls="navbarCollapse" aria-expanded="false" aria-label="Toggle navigation" onclick="if (window.quartoToggleHeadroom) { window.quartoToggleHeadroom(); }">
+  <span class="navbar-toggler-icon"></span>
+</button>
+          <div class="collapse navbar-collapse" id="navbarCollapse">
+            <ul class="navbar-nav navbar-nav-scroll ms-auto">
+  <li class="nav-item">
+    <a class="nav-link" href="../../blog.html" rel="" target="">
+ <span class="menu-text">Posts</span></a>
+  </li>  
+  <li class="nav-item">
+    <a class="nav-link" href="../../kyle_resume.pdf" rel="" target="">
+ <span class="menu-text">Resume</span></a>
+  </li>  
+  <li class="nav-item compact">
+    <a class="nav-link" href="https://github.com/mmmmtoasty19" rel="" target=""><i class="bi bi-github" role="img">
+</i> 
+ <span class="menu-text"></span></a>
+  </li>  
+</ul>
+            <div class="quarto-navbar-tools">
+</div>
+          </div> <!-- /navcollapse -->
+      </div> <!-- /container-fluid -->
+    </nav>
+</header>
+<!-- content -->
+<header id="title-block-header" class="quarto-title-block default toc-left page-columns page-full">
+  <div class="quarto-title-banner page-columns page-full">
+    <div class="quarto-title column-body">
+      <h1 class="title">Reflex Testing using Machine Learning in the Clinical Laboratory</h1>
+            <p class="subtitle lead"></p><p>This post contains the abstract of my Capstone for the Doctorate of Health Science program at Campbell University.</p><p></p>
+                      </div>
+  </div>
+    
+  
+  <div class="quarto-title-meta">
+
+      <div>
+      <div class="quarto-title-meta-heading">Author</div>
+      <div class="quarto-title-meta-contents">
+               <p><a href="https://kyleb.rbind.io/">Kyle Belanger</a> </p>
+            </div>
+    </div>
+      
+      <div>
+      <div class="quarto-title-meta-heading">Published</div>
+      <div class="quarto-title-meta-contents">
+        <p class="date">October 12, 2023</p>
+      </div>
+    </div>
+    
+      
+    </div>
+    
+  
+  </header><div id="quarto-content" class="quarto-container page-columns page-rows-contents page-layout-article page-navbar">
+<!-- sidebar -->
+  <nav id="quarto-sidebar" class="sidebar collapse collapse-horizontal sidebar-navigation floating overflow-auto">
+    <nav id="TOC" role="doc-toc" class="toc-active">
+    <h2 id="toc-title">Table of contents</h2>
+   
+  <ul>
+  <li><a href="#full-paper" id="toc-full-paper" class="nav-link active" data-scroll-target="#full-paper">Full Paper</a></li>
+  <li><a href="#abstract" id="toc-abstract" class="nav-link" data-scroll-target="#abstract">Abstract</a></li>
+  </ul>
+</nav>
+</nav>
+<div id="quarto-sidebar-glass" data-bs-toggle="collapse" data-bs-target="#quarto-sidebar,#quarto-sidebar-glass"></div>
+<!-- margin-sidebar -->
+    <div id="quarto-margin-sidebar" class="sidebar margin-sidebar">
+    </div>
+<!-- main -->
+<main class="content quarto-banner-title-block" id="quarto-document-content">
+
+
+
+
+<section id="full-paper" class="level1">
+<h1>Full Paper</h1>
+<p>To view the full paper please go to the following <a href="https://kyle-belanger.quarto.pub/reflex-testing-using-machine-learning-in-the-clinical-laboratory/">link</a></p>
+</section>
+<section id="abstract" class="level1">
+<h1>Abstract</h1>
+<p><strong>Introduction</strong>: This research study focuses on developing and testing a machine learning algorithm to predict the FT4 result or diagnose hyper or hypothyroidism in clinical chemistry. The goal is to bridge the gap between hard-coded reflex testing and fully manual reflective testing using machine learning algorithms. The significance of this study lies in the increasing healthcare costs, where laboratory services contribute significantly to medical decisions and budgets. By implementing automated reflex testing with machine learning algorithms, unnecessary laboratory tests can be reduced, resulting in cost savings and improved efficiency in the healthcare system.</p>
+<p><strong>Methods:</strong> The study was performed using the Medical Information Mart for Intensive Care (MIMIC) database for data collection. The database consists of de-identified health-related data from critical care units. Eighteen variables, including patient demographics and lab values, were selected for the study. The data set was filtered based on specific criteria, and an outcome variable was created to determine if the Free T4 value was diagnostic. The data handling and modeling were performed using R and R Studio. Regression and classification models were screened using a random grid search to tune hyperparameters, and random forest models were selected as the final models based on their performance. The selected hyperparameters for both regression and classification models are specified.</p>
+<p><strong>Results:</strong> The study analyzed a dataset of 11,340 observations, randomly splitting it into a training set (9071 observations) and a testing set (2269 observations) based on the Free T4 laboratory diagnostic value stratification. Classification algorithms were used to predict whether Free T4 would be diagnostic, achieving an accuracy of 0.796 and an AUC of 0.918. The model had a sensitivity of 0.632 and a specificity of 0.892. The importance of individual analytes was assessed, with TSH being the most influential variable. The study also evaluated the predictability of Free T4 results using regression, achieving a Root Mean Square Error (RMSE) of 0.334. The predicted results had an accuracy of 0.790, similar to the classification model.</p>
+<p><strong>Discussion:</strong> The study found that the diagnostic value of Free T4 can be accurately predicted 80% of the time using machine learning algorithms. However, the model had limitations in terms of sensitivity, with a false negative rate of 16% for elevated TSH results and 20% for decreased TSH results. The model achieved a specificity of 89% but did not meet the threshold for clinical deployment. The importance of individual analytes was explored, revealing unexpected correlations between TSH and hematology results, which could be valuable for future algorithms. Real-world applications could use predictive models in clinical decision-making systems to determine the need for Free T4 lab tests based on predictions and patient signs and symptoms. However, implementing such algorithms in existing laboratory information systems poses challenges.</p>
+
+
+</section>
+
+<div id="quarto-appendix" class="default"><section class="quarto-appendix-contents"><h2 class="anchored quarto-appendix-heading">Reuse</h2><div id="quarto-reuse" class="quarto-appendix-contents"><div><a rel="license" href="https://creativecommons.org/licenses/by/4.0/">https://creativecommons.org/licenses/by/4.0/</a></div></div></section><section class="quarto-appendix-contents"><h2 class="anchored quarto-appendix-heading">Citation</h2><div><div class="quarto-appendix-secondary-label">BibTeX citation:</div><pre class="sourceCode code-with-copy quarto-appendix-bibtex"><code class="sourceCode bibtex">@online{belanger2023,
+  author = {Belanger, Kyle},
+  title = {Reflex {Testing} Using {Machine} {Learning} in the {Clinical}
+    {Laboratory}},
+  date = {2023-10-12},
+  langid = {en}
+}
+</code><button title="Copy to Clipboard" class="code-copy-button"><i class="bi"></i></button></pre><div class="quarto-appendix-secondary-label">For attribution, please cite this work as:</div><div id="ref-belanger2023" class="csl-entry quarto-appendix-citeas" role="listitem">
+Belanger, Kyle. 2023. <span>“Reflex Testing Using Machine Learning in
+the Clinical Laboratory.”</span> October 12, 2023.
+</div></div></section></div></main> <!-- /main -->
+<script id="quarto-html-after-body" type="application/javascript">
+window.document.addEventListener("DOMContentLoaded", function (event) {
+  const toggleBodyColorMode = (bsSheetEl) => {
+    const mode = bsSheetEl.getAttribute("data-mode");
+    const bodyEl = window.document.querySelector("body");
+    if (mode === "dark") {
+      bodyEl.classList.add("quarto-dark");
+      bodyEl.classList.remove("quarto-light");
+    } else {
+      bodyEl.classList.add("quarto-light");
+      bodyEl.classList.remove("quarto-dark");
+    }
+  }
+  const toggleBodyColorPrimary = () => {
+    const bsSheetEl = window.document.querySelector("link#quarto-bootstrap");
+    if (bsSheetEl) {
+      toggleBodyColorMode(bsSheetEl);
+    }
+  }
+  toggleBodyColorPrimary();  
+  const icon = "";
+  const anchorJS = new window.AnchorJS();
+  anchorJS.options = {
+    placement: 'right',
+    icon: icon
+  };
+  anchorJS.add('.anchored');
+  const isCodeAnnotation = (el) => {
+    for (const clz of el.classList) {
+      if (clz.startsWith('code-annotation-')) {                     
+        return true;
+      }
+    }
+    return false;
+  }
+  const clipboard = new window.ClipboardJS('.code-copy-button', {
+    text: function(trigger) {
+      const codeEl = trigger.previousElementSibling.cloneNode(true);
+      for (const childEl of codeEl.children) {
+        if (isCodeAnnotation(childEl)) {
+          childEl.remove();
+        }
+      }
+      return codeEl.innerText;
+    }
+  });
+  clipboard.on('success', function(e) {
+    // button target
+    const button = e.trigger;
+    // don't keep focus
+    button.blur();
+    // flash "checked"
+    button.classList.add('code-copy-button-checked');
+    var currentTitle = button.getAttribute("title");
+    button.setAttribute("title", "Copied!");
+    let tooltip;
+    if (window.bootstrap) {
+      button.setAttribute("data-bs-toggle", "tooltip");
+      button.setAttribute("data-bs-placement", "left");
+      button.setAttribute("data-bs-title", "Copied!");
+      tooltip = new bootstrap.Tooltip(button, 
+        { trigger: "manual", 
+          customClass: "code-copy-button-tooltip",
+          offset: [0, -8]});
+      tooltip.show();    
+    }
+    setTimeout(function() {
+      if (tooltip) {
+        tooltip.hide();
+        button.removeAttribute("data-bs-title");
+        button.removeAttribute("data-bs-toggle");
+        button.removeAttribute("data-bs-placement");
+      }
+      button.setAttribute("title", currentTitle);
+      button.classList.remove('code-copy-button-checked');
+    }, 1000);
+    // clear code selection
+    e.clearSelection();
+  });
+  function tippyHover(el, contentFn) {
+    const config = {
+      allowHTML: true,
+      content: contentFn,
+      maxWidth: 500,
+      delay: 100,
+      arrow: false,
+      appendTo: function(el) {
+          return el.parentElement;
+      },
+      interactive: true,
+      interactiveBorder: 10,
+      theme: 'quarto',
+      placement: 'bottom-start'
+    };
+    window.tippy(el, config); 
+  }
+  const noterefs = window.document.querySelectorAll('a[role="doc-noteref"]');
+  for (var i=0; i<noterefs.length; i++) {
+    const ref = noterefs[i];
+    tippyHover(ref, function() {
+      // use id or data attribute instead here
+      let href = ref.getAttribute('data-footnote-href') || ref.getAttribute('href');
+      try { href = new URL(href).hash; } catch {}
+      const id = href.replace(/^#\/?/, "");
+      const note = window.document.getElementById(id);
+      return note.innerHTML;
+    });
+  }
+      let selectedAnnoteEl;
+      const selectorForAnnotation = ( cell, annotation) => {
+        let cellAttr = 'data-code-cell="' + cell + '"';
+        let lineAttr = 'data-code-annotation="' +  annotation + '"';
+        const selector = 'span[' + cellAttr + '][' + lineAttr + ']';
+        return selector;
+      }
+      const selectCodeLines = (annoteEl) => {
+        const doc = window.document;
+        const targetCell = annoteEl.getAttribute("data-target-cell");
+        const targetAnnotation = annoteEl.getAttribute("data-target-annotation");
+        const annoteSpan = window.document.querySelector(selectorForAnnotation(targetCell, targetAnnotation));
+        const lines = annoteSpan.getAttribute("data-code-lines").split(",");
+        const lineIds = lines.map((line) => {
+          return targetCell + "-" + line;
+        })
+        let top = null;
+        let height = null;
+        let parent = null;
+        if (lineIds.length > 0) {
+            //compute the position of the single el (top and bottom and make a div)
+            const el = window.document.getElementById(lineIds[0]);
+            top = el.offsetTop;
+            height = el.offsetHeight;
+            parent = el.parentElement.parentElement;
+          if (lineIds.length > 1) {
+            const lastEl = window.document.getElementById(lineIds[lineIds.length - 1]);
+            const bottom = lastEl.offsetTop + lastEl.offsetHeight;
+            height = bottom - top;
+          }
+          if (top !== null && height !== null && parent !== null) {
+            // cook up a div (if necessary) and position it 
+            let div = window.document.getElementById("code-annotation-line-highlight");
+            if (div === null) {
+              div = window.document.createElement("div");
+              div.setAttribute("id", "code-annotation-line-highlight");
+              div.style.position = 'absolute';
+              parent.appendChild(div);
+            }
+            div.style.top = top - 2 + "px";
+            div.style.height = height + 4 + "px";
+            let gutterDiv = window.document.getElementById("code-annotation-line-highlight-gutter");
+            if (gutterDiv === null) {
+              gutterDiv = window.document.createElement("div");
+              gutterDiv.setAttribute("id", "code-annotation-line-highlight-gutter");
+              gutterDiv.style.position = 'absolute';
+              const codeCell = window.document.getElementById(targetCell);
+              const gutter = codeCell.querySelector('.code-annotation-gutter');
+              gutter.appendChild(gutterDiv);
+            }
+            gutterDiv.style.top = top - 2 + "px";
+            gutterDiv.style.height = height + 4 + "px";
+          }
+          selectedAnnoteEl = annoteEl;
+        }
+      };
+      const unselectCodeLines = () => {
+        const elementsIds = ["code-annotation-line-highlight", "code-annotation-line-highlight-gutter"];
+        elementsIds.forEach((elId) => {
+          const div = window.document.getElementById(elId);
+          if (div) {
+            div.remove();
+          }
+        });
+        selectedAnnoteEl = undefined;
+      };
+      // Attach click handler to the DT
+      const annoteDls = window.document.querySelectorAll('dt[data-target-cell]');
+      for (const annoteDlNode of annoteDls) {
+        annoteDlNode.addEventListener('click', (event) => {
+          const clickedEl = event.target;
+          if (clickedEl !== selectedAnnoteEl) {
+            unselectCodeLines();
+            const activeEl = window.document.querySelector('dt[data-target-cell].code-annotation-active');
+            if (activeEl) {
+              activeEl.classList.remove('code-annotation-active');
+            }
+            selectCodeLines(clickedEl);
+            clickedEl.classList.add('code-annotation-active');
+          } else {
+            // Unselect the line
+            unselectCodeLines();
+            clickedEl.classList.remove('code-annotation-active');
+          }
+        });
+      }
+  const findCites = (el) => {
+    const parentEl = el.parentElement;
+    if (parentEl) {
+      const cites = parentEl.dataset.cites;
+      if (cites) {
+        return {
+          el,
+          cites: cites.split(' ')
+        };
+      } else {
+        return findCites(el.parentElement)
+      }
+    } else {
+      return undefined;
+    }
+  };
+  var bibliorefs = window.document.querySelectorAll('a[role="doc-biblioref"]');
+  for (var i=0; i<bibliorefs.length; i++) {
+    const ref = bibliorefs[i];
+    const citeInfo = findCites(ref);
+    if (citeInfo) {
+      tippyHover(citeInfo.el, function() {
+        var popup = window.document.createElement('div');
+        citeInfo.cites.forEach(function(cite) {
+          var citeDiv = window.document.createElement('div');
+          citeDiv.classList.add('hanging-indent');
+          citeDiv.classList.add('csl-entry');
+          var biblioDiv = window.document.getElementById('ref-' + cite);
+          if (biblioDiv) {
+            citeDiv.innerHTML = biblioDiv.innerHTML;
+          }
+          popup.appendChild(citeDiv);
+        });
+        return popup.innerHTML;
+      });
+    }
+  }
+});
+</script>
+</div> <!-- /content -->
+
+
+
+</body></html>
\ No newline at end of file
diff --git a/_site/search.json b/_site/search.json
index aecdb0f..77f3142 100644
--- a/_site/search.json
+++ b/_site/search.json
@@ -1,157 +1,17 @@
 [
   {
-    "objectID": "posts/2021-01-12_blogdown-to-distill/creating-a-distill-blog.html",
-    "href": "posts/2021-01-12_blogdown-to-distill/creating-a-distill-blog.html",
-    "title": "Converting From Blogdown to Distill",
+    "objectID": "posts/2023-10-12_DHSC_Capstone/index.html",
+    "href": "posts/2023-10-12_DHSC_Capstone/index.html",
+    "title": "Reflex Testing using Machine Learning in the Clinical Laboratory",
     "section": "",
-    "text": "I have since converted this blog to a quarto blog, but am leaving this post up in case anyone finds it useful"
+    "text": "Full Paper\nTo view the full paper please go to the following link\n\n\nAbstract\nIntroduction: This research study focuses on developing and testing a machine learning algorithm to predict the FT4 result or diagnose hyper or hypothyroidism in clinical chemistry. The goal is to bridge the gap between hard-coded reflex testing and fully manual reflective testing using machine learning algorithms. The significance of this study lies in the increasing healthcare costs, where laboratory services contribute significantly to medical decisions and budgets. By implementing automated reflex testing with machine learning algorithms, unnecessary laboratory tests can be reduced, resulting in cost savings and improved efficiency in the healthcare system.\nMethods: The study was performed using the Medical Information Mart for Intensive Care (MIMIC) database for data collection. The database consists of de-identified health-related data from critical care units. Eighteen variables, including patient demographics and lab values, were selected for the study. The data set was filtered based on specific criteria, and an outcome variable was created to determine if the Free T4 value was diagnostic. The data handling and modeling were performed using R and R Studio. Regression and classification models were screened using a random grid search to tune hyperparameters, and random forest models were selected as the final models based on their performance. The selected hyperparameters for both regression and classification models are specified.\nResults: The study analyzed a dataset of 11,340 observations, randomly splitting it into a training set (9071 observations) and a testing set (2269 observations) based on the Free T4 laboratory diagnostic value stratification. Classification algorithms were used to predict whether Free T4 would be diagnostic, achieving an accuracy of 0.796 and an AUC of 0.918. The model had a sensitivity of 0.632 and a specificity of 0.892. The importance of individual analytes was assessed, with TSH being the most influential variable. The study also evaluated the predictability of Free T4 results using regression, achieving a Root Mean Square Error (RMSE) of 0.334. The predicted results had an accuracy of 0.790, similar to the classification model.\nDiscussion: The study found that the diagnostic value of Free T4 can be accurately predicted 80% of the time using machine learning algorithms. However, the model had limitations in terms of sensitivity, with a false negative rate of 16% for elevated TSH results and 20% for decreased TSH results. The model achieved a specificity of 89% but did not meet the threshold for clinical deployment. The importance of individual analytes was explored, revealing unexpected correlations between TSH and hematology results, which could be valuable for future algorithms. Real-world applications could use predictive models in clinical decision-making systems to determine the need for Free T4 lab tests based on predictions and patient signs and symptoms. However, implementing such algorithms in existing laboratory information systems poses challenges.\n\n\n\n\nReusehttps://creativecommons.org/licenses/by/4.0/CitationBibTeX citation:@online{belanger2023,\n  author = {Belanger, Kyle},\n  title = {Reflex {Testing} Using {Machine} {Learning} in the {Clinical}\n    {Laboratory}},\n  date = {2023-10-12},\n  langid = {en}\n}\nFor attribution, please cite this work as:\nBelanger, Kyle. 2023. “Reflex Testing Using Machine Learning in\nthe Clinical Laboratory.” October 12, 2023."
   },
   {
-    "objectID": "posts/2021-01-12_blogdown-to-distill/creating-a-distill-blog.html#code-folding",
-    "href": "posts/2021-01-12_blogdown-to-distill/creating-a-distill-blog.html#code-folding",
-    "title": "Converting From Blogdown to Distill",
-    "section": "Code Folding",
-    "text": "Code Folding\nWhen I converted my blog on 12/30/2020, code folding was not included as an option by default in distill. At that time, an excellent package called Codefolder added the functionality. Since going live with the blog, code folding has been added to distill.1 Code folding is available for either the whole document or individual code sections. The default caption is “Show Code”, but instead of typing code_folding=TRUE, you can provide a string to change the caption.\n\n# Some awesome code \n# That does awesome things"
-  },
-  {
-    "objectID": "posts/2021-01-12_blogdown-to-distill/creating-a-distill-blog.html#customizing-the-home-page",
-    "href": "posts/2021-01-12_blogdown-to-distill/creating-a-distill-blog.html#customizing-the-home-page",
-    "title": "Converting From Blogdown to Distill",
-    "section": "Customizing the Home Page",
-    "text": "Customizing the Home Page\nBy default, a distill blog’s home page will be the blog index page. I chose to edit my home page to be a landing page for myself and then have the blog index as a separate page. When creating a new blog, this is the default YAML header for your index page.\n---\ntitle: \"New Site\"\nsite: distill::distill_website\nlisting: posts\n---\nThe critical piece here is the line site: distill::distill_website. This line is what is needed to render the website. For my home page, I decided to use the package Postcard, which is used to generate simple landing pages. I won’t go into every step as there is already a great post by Alison Hill on how to do that. However, I will point out the most crucial part of the new index page the YAML header needs to contain these two lines.\noutput:\n  postcards::trestles\nsite: distill::distill_website"
-  },
-  {
-    "objectID": "posts/2021-01-12_blogdown-to-distill/creating-a-distill-blog.html#footnotes",
-    "href": "posts/2021-01-12_blogdown-to-distill/creating-a-distill-blog.html#footnotes",
-    "title": "Converting From Blogdown to Distill",
-    "section": "Footnotes",
-    "text": "Footnotes\n\n\nNote that as of publishing, code folding is only available in the development version of distill↩︎"
-  },
-  {
-    "objectID": "posts/2020-06-25_diabetes-prevalence-in-nc/diabetes-in-rural-north-carolina-exploring-prevalence-trends.html",
-    "href": "posts/2020-06-25_diabetes-prevalence-in-nc/diabetes-in-rural-north-carolina-exploring-prevalence-trends.html",
-    "title": "Diabetes in Rural North Carolina : Exploring Prevalence Trends",
+    "objectID": "posts/2021-02-26_tidytuesday-hbcu-enrollment/tidytuesday-2021-week-6-hbcu-enrolment.html",
+    "href": "posts/2021-02-26_tidytuesday-hbcu-enrollment/tidytuesday-2021-week-6-hbcu-enrolment.html",
+    "title": "TidyTuesday 2021 Week 6: HBCU Enrollment",
     "section": "",
-    "text": "Update\n2022-15-03: Since this was posted the CDC has updated how county level diabetes prevalance is calculated. The data presented here is using previous calcualtions and may no longer be correct. More can be read here\n\n\nAbstract\nDiabetes is growing at an epidemic rate in the United States. In North Carolina alone, diabetes and prediabetes cost an estimated $10.9 billion each year (American Diabetes Asssociation, 2015). This post introduces the exploration of the Diabetes epidemic in North Carolina. Through a series of posts this project will examine various public data available on diabetes and explore possible solutions to address the rise of diabetes in North Carolina. This investigation stems from the Capstone project of my Health Care Informatics Masters program. This post will answer the following questions:\n\n\nWhat is the overall trend of diabetes prevalence in the United States?\n\n\n\n\nWhat is the trend of diabetes at a State Level and how does diabetes prevalence vary by state and region?\n\n\n\n\nHow do trends in diabetes prevalence vary across counties of North Carolina?\n\n\n\n\nIn which counties of North Carolina does the largest change in diabetes prevalence occur?\n\n\n\n\nHow does change in diabetes prevalence compare between rural and urban counties?\n\n\n\n\nEnviroment\nThis section contains technical information for deeper analysis and reproduction. Casual readers are invited to skip it.\nPackages used in this report.\n\n\nCode\n# Attach these packages so their functions don't need to be qualified: http://r-pkgs.had.co.nz/namespace.html#search-path\nlibrary(magrittr) # enables piping : %&gt;%\nlibrary(dplyr)    # data wrangling\nlibrary(ggplot2)  # graphs\nlibrary(tidyr)    # data tidying\nlibrary(maps)\nlibrary(mapdata)\nlibrary(sf)\nlibrary(readr)\n\n\nDefinitions of global object (file paths, factor levels, object groups ) used throughout the report.\n\n\nCode\n#set ggplot theme\nggplot2::theme_set(theme_bw())\n\n\n\n\nData\nThe data for this exploration comes from several sources:\n\nThe Diabetes data set for state and county levels were sourced from the US Diabetes Surveillance System; Division of Diabetes Translation - Centers for Disease Control and Prevention. The data was downloaded one year per file, and compiled into a single data set for analysis.\nThe Diabetes data set for National level data were sourced from the CDC’s National Health Interview Survey (NHIS)\nThe list of rural counties was taken from The Office of Rural Health Policy, the list is available here\n\n\n\n\nCode\n# load the data, and have all column names in lowercase\n\nnc_diabetes_data_raw &lt;- read_csv(\"https://raw.githubusercontent.com/mmmmtoasty19/nc-diabetes-epidemic-2020/62bdaa6971fbdff09214de7c013d40122abbe40d/data-public/derived/nc-diabetes-data.csv\") %&gt;% \n  rename_all(tolower)\n\nus_diabetes_data_raw &lt;- read_csv(\"https://github.com/mmmmtoasty19/nc-diabetes-epidemic-2020/raw/62bdaa6971fbdff09214de7c013d40122abbe40d/data-public/raw/us_diabetes_totals.csv\"\n                                 ,skip = 2)\n\nrural_counties &lt;- read_csv(\"https://github.com/mmmmtoasty19/nc-diabetes-epidemic-2020/raw/b29bfd93b20b73a7000d349cb3b55fd0822afe76/data-public/metadata/rural-counties.csv\")\n\ncounty_centers_raw &lt;- read_csv(\"https://github.com/mmmmtoasty19/nc-diabetes-epidemic-2020/raw/b29bfd93b20b73a7000d349cb3b55fd0822afe76/data-public/raw/nc_county_centers.csv\", col_names = c(\"county\", \"lat\",\"long\"))\n\ndiabetes_atlas_data_raw &lt;- read_csv(\"https://raw.githubusercontent.com/mmmmtoasty19/nc-diabetes-epidemic-2020/b29bfd93b20b73a7000d349cb3b55fd0822afe76/data-public/raw/DiabetesAtlasData.csv\"\n                                    ,col_types = cols(LowerLimit = col_skip(), \n                                                     UpperLimit = col_skip(),\n                                                     Percentage = col_double()), skip = 2)\n\n\n\n\n\nCode\n# load in both US State Map and NC County Map\n\nnc_counties_map_raw &lt;- st_as_sf(map(\"county\",region = \"north carolina\", plot = FALSE,fill = TRUE)) %&gt;% \n  mutate_at(\"ID\", ~stringr::str_remove(.,\"north carolina,\"))\n\nstate_map_raw &lt;- st_as_sf(map(\"state\",plot = FALSE,fill = TRUE ))\n\nnc_cities &lt;-  st_as_sf(read_csv(\"https://github.com/mmmmtoasty19/nc-diabetes-epidemic-2020/raw/b29bfd93b20b73a7000d349cb3b55fd0822afe76/data-public/metadata/nc_cities.csv\"),\n                       coords = c(\"long\", \"lat\")\n                       ,remove = FALSE\n                       ,agr = \"constant\"\n                       ,crs = 4326)\n\n\n\n\nData Manipulation\nThe combined data used in this anaylsis can be downloaded here. The only tweaks done here are to combine the rural counties column, and the data for creating maps.\n\nTweaks\n\n\n\nCode\ncounty_centers &lt;- county_centers_raw %&gt;% \n  mutate_all(~stringr::str_replace_all(.,\n                                       c(\"\\\\°\"  = \"\"\n                                         ,\"\\\\+\" = \"\"\n                                         ,\"\\\\–\" = \"-\"\n                                       )\n  ) \n  ) %&gt;%\n  mutate(across(c(\"lat\",\"long\"), ~iconv(.,from = 'UTF-8', to = 'ASCII//TRANSLIT'))\n         ,across(c(\"lat\",\"long\"),~stringr::str_remove_all(.,\"\\\\?\"))) %&gt;% \n  mutate_at(c(\"lat\",\"long\"),as.numeric) %&gt;%\n  mutate(across(\"long\", ~(. * -1))) %&gt;% \n  mutate_at(\"county\", tolower)\n\n\n\n\nus_diabetes_data &lt;- us_diabetes_data_raw %&gt;% \n  filter(Year &gt;= 2000) %&gt;% \n  select( \"Year\",\"Total - Percentage\") %&gt;% \n  rename(year = Year , us_pct = `Total - Percentage`)\n\ndiabetes_atlas_data &lt;- diabetes_atlas_data_raw %&gt;% \n  mutate_at(\"State\", tolower) %&gt;% \n  filter(Year &gt;= 2000)\n\nstate_map_abb &lt;- state_map_raw %&gt;% \n  left_join(read_csv(\"https://github.com/mmmmtoasty19/nc-diabetes-epidemic-2020/raw/b29bfd93b20b73a7000d349cb3b55fd0822afe76/data-public/metadata/state-abb.csv\") %&gt;% \n              mutate_at(\"state\", tolower)\n            ,by = c(\"ID\" = \"state\") )\n\n\n\n\nMerge\n\n\n\nCode\n#join US totals to NC data \n\nnc_diabetes_data &lt;- nc_diabetes_data_raw %&gt;% \n  mutate_at(\"county\", ~stringr::str_replace_all(.,\"Mcdowell\",\"McDowell\")) %&gt;% \n  mutate(\n    rural = county %in% rural_counties$rural_counties\n  ) %&gt;% \n  mutate_at(\"county\",tolower) %&gt;% \n  left_join(us_diabetes_data)\n\n\nnc_counties_map &lt;- nc_counties_map_raw %&gt;% \n  left_join(nc_diabetes_data, by = c(\"ID\" = \"county\")) %&gt;% \n  left_join(county_centers, by = c(\"ID\" = \"county\")) %&gt;% \n  rename(\n    center_long = long\n    ,center_lat = lat)\n\nstate_map &lt;- state_map_abb %&gt;% \n  left_join(diabetes_atlas_data, by = c(\"ID\" = \"State\")) %&gt;% \n  rename_all(tolower)\n\n\n\n\n\nOverall - National Level\n\n\nCode\nus_diabetes_data &lt;- us_diabetes_data %&gt;% \n  mutate(\n    change = lead(us_pct) - us_pct\n    ,change = if_else(change &gt; 0, TRUE, FALSE)\n  ) %&gt;% \n  mutate_at(\"change\", ~stringr::str_replace_na(.,\"NA\"))\n\n\n\no_g1 &lt;- us_diabetes_data %&gt;% \n  ggplot(aes(x = year, y = us_pct)) +\n  geom_line(color= \"#D95F02\") +\n  # geom_line(aes(color = change, group = 1)) +\n  geom_point(shape = 21, size = 3,color= \"#D95F02\") +\n  # geom_point(aes(color = change),shape = 21, size = 3) +\n  scale_color_manual(values = c(\n    \"TRUE\" = \"#D95F02\"\n    ,\"FALSE\" = \"#7570B3\"\n  ), guide = FALSE) +\n  labs(\n    title    = \"Percentage of Diagnosed Diabetes in Adults (18+), National Level\"\n    ,x       = NULL\n    ,y       = NULL\n    ,caption = \"Note: Data from the CDC's National Health Interview Survey (NHIS)\"\n  )\n\no_g1\n\n\n\n\n\nOverall, the national average for diagnosed diabetes sharply rose through the early 2000’s, leveling off around 2010. These numbers however, are estimates based on the self-reported response to the CDC’s National Health Interview Survey, and do not represent the actual confirmed diagnoses. The CDC estimates that 1 in 5 adults have undiagnosed diabetes, therefore the numbers reported by the NHIS are likely to underestimate the true prevalence (Centers for Disease Control and Prevention, 2020).\n\n\nOverall - State Level\nState and County level data on diabetes prevalence are taken from the CDC’s Behavioral Risk Factor Surveillance System (BRFSS). These results are based on the question “Has a doctor, nurse, or other health professional ever told you that you have diabetes?”. Women who only experienced diabetes during pregnancy were excluded from the counts. The BRFSS is an ongoing, monthly telephone survey of the non-institutionalized adults (aged 18 years or older) in each state. The year 2011 saw a major change to the methodology of the survey, which started to include homes without a landline phone. This change was expected to increase coverage of lower income, lower educational levels, and younger age groups, because these groups often exclusively rely on cellular telephones for personal communication.(Pierannunzi et al., 2012)\n\n\nCode\ns_g1 &lt;- state_map %&gt;% \n  st_drop_geometry() %&gt;% \n  ggplot(aes(x = year, y = percentage, color = region)) +\n  geom_line(aes(group = id ),alpha = 0.3,na.rm = TRUE) +\n  geom_smooth(method = \"lm\", se = FALSE) +\n  ggpmisc::stat_poly_eq(formula = y ~ + x ,\n                        aes(label = paste(..eq.label.., ..rr.label.., sep = \"~~~\")), \n                        parse = TRUE) +\n  geom_vline(xintercept = 2011, linetype = \"dashed\", color = \"gray\") +\n  scale_color_brewer(palette    = \"Dark2\"\n                     ,direction = -1\n                     ,labels    = snakecase::to_title_case\n  ) +\n  labs(\n    title    = \"Percentage of Diagnosed Diabetes in Adults (18+) \\nby State and Region\"\n    ,x       = NULL\n    ,y       = NULL\n    ,color   = \"Region\"\n    ,caption = \"Regions from US Census Bureau\"\n  ) \n\ns_g1\n\n\n\n\n\nThe above graph shows diabetes prevalence trends by state, grouped into regions based on the US Census classification regions. While all regions of the United states show positive growth in diabetes prevalence, the south exhibits a slightly higher growth rate, as well as the highest prevalence.\n\n\nCode\ns_g2 &lt;- state_map %&gt;% \n  st_drop_geometry() %&gt;% \n  filter(region == \"south\") %&gt;% \n  mutate_at(\"id\", ~snakecase::to_title_case(.)) %&gt;% \n  ggplot(aes(x = year, y = percentage)) +\n  geom_line(aes(group = id ),na.rm = TRUE, color= \"#D95F02\") +\n  gghighlight::gghighlight(id == \"North Carolina\", label_params = list(vjust = 3)) +\n  scale_y_continuous(breaks = seq(5,13,2)) +\n  scale_x_continuous(minor_breaks = seq(2000,2016,1)) +\n  labs(\n    title    = \"Percentage of Diagnosed Diabetes in Adults (18+) \\nSouth Region\"\n    ,x       = NULL\n    ,y       = NULL\n    ,caption = \"Regions from US Census Bureau\"\n  ) +\n  theme()\n\ns_g2\n\n\n\n\n\nWhen focusing on the south region, North Carolina falls close to the middle of diabetes prevalence.\n\n\nOverall - North Carolina\nWhen examining the trajectory for North Carolina, we can see that it has been consistently higher than national average . We see that in 2016 there was a large spike in diagnosed cases; unfortunately this is the last available year so it is unclear whether the upward trend continues. The graph below compares state-level average to the national average. Notice that the trend line is slightly higher than in the previous graphs: this is due to the age cut offs used for National and State level data vs County Level data. Previous data used 18 years of age as a cutoff for classifying adults, whereas the county level data uses 20. Due to removing 18- and 19-year-olds from the population, who typically have less diagnosed cases of diabetes than those of older ages, the computed prevalence increases slightly.\n\n\nCode\nd1 &lt;- nc_diabetes_data %&gt;% \n  group_by(year) %&gt;% \n  summarise(\n    pct = mean(percentage)\n    ,us_pct = mean(us_pct)\n  ) %&gt;% \n  pivot_longer(\n    cols       = c(\"pct\", \"us_pct\")\n    ,names_to  = \"metric\"\n    ,values_to = \"values\"\n  ) %&gt;% \n  mutate(\n    metric = factor(metric\n                    ,levels = c(\"pct\",\"us_pct\")\n                    ,labels = c(\"NC\", \"National\"))\n  )\n\nnc_g1 &lt;- d1 %&gt;% \n  ggplot(aes(x = year, y = values, color = metric)) +\n  geom_line() +\n  geom_point(shape = 21, size = 3) +\n  geom_vline(xintercept = 2011, linetype = \"dashed\", color = \"gray\") +\n  scale_y_continuous(labels = function(x) paste0(x, \"%\")) +\n  scale_color_brewer(palette = \"Dark2\") +\n  labs(\n    x      = NULL\n    ,y     = NULL\n    ,color = NULL\n    ,title = \"Percent of Adults (20+) with Diagnosed Diabetes\"\n  )\n\nnc_g1 \n\n\n\n\n\nWe see a spike in 2016, the last year for which the data are available. However, we should be careful with our interpretation of this pattern, because the examination of the county-level trajectories reveals an aberration in the trend that requires a more rigorous investigation.\n\n\nCode\nnc_g1a &lt;- nc_diabetes_data %&gt;% \n  ggplot(aes(x = year, y = percentage)) +\n  geom_line(aes(group = county),alpha = 0.4) +\n  labs(\n    x = NULL\n    ,y = NULL\n    ,color = NULL\n  )\n\nnc_g1a\n\n\n\n\n\nWhile all of North Carolina has a higher prevalence than the national average, rural counties have systematically higher prevalence of diabetes than urban counties. Note that after 2011 both Urban and Rural counties break the upward trend exhibited in the previous 5 years. This could be explained by the addition of cell phones to the BRFS Survey as many rural areas are often lower income areas and may only rely on a cell phone for communication. As mentioned previously there is an odd spike in case in 2016 that can’t be explained by current documentation. For the purpose of this evaluation 2016 will be excluded from the county level data since the odd trend can not be explained and no further data is available to determine if this is a real spike or could be attributed to methodology change or data quality.\n\n\nCode\nd2 &lt;- nc_diabetes_data %&gt;% \n  select(-us_pct) %&gt;% \n  mutate(\n    pct_rural  = if_else(rural == TRUE, percentage, FALSE)\n    ,pct_urban = if_else(rural == FALSE, percentage, FALSE)\n  ) %&gt;% \n  select(-countyfips,-percentage) %&gt;% \n  group_by(year) %&gt;% \n  summarise(\n    pct_rural = mean(pct_rural,na.rm = TRUE)\n    ,pct_urban = mean(pct_urban,na.rm = TRUE)\n  ) %&gt;% left_join(us_diabetes_data) %&gt;% \n  pivot_longer(\n    cols       = c(\"us_pct\", \"pct_rural\",\"pct_urban\")\n    ,names_to  = \"metric\"\n    ,values_to = \"value\"\n    ,values_drop_na = TRUE\n  ) %&gt;% \n  mutate(\n    metric = factor(metric,\n                    levels  = c(\"pct_rural\",\"pct_urban\",\"us_pct\")\n                    ,labels = c(\"Rural\",\"Urban\",\"US\")\n    )\n  )\n\nnc_g2 &lt;- d2 %&gt;% ggplot(aes(x = year, y = value, color = metric)) +\n  geom_line() +\n  geom_point(shape = 21, size = 3) +\n  geom_vline(xintercept = 2011, linetype = \"dashed\", color = \"gray\") +\n  scale_y_continuous(labels = function(x) paste0(x, \"%\")) +\n  scale_color_brewer(palette = \"Dark2\") +\n  labs(\n    x      = NULL\n    ,y     = NULL\n    ,color = NULL\n    ,title = \"Percent of Adults (20+) with Diagnosed Diabetes \\nDisplaying Rural vs Urban\"\n  )\n\nnc_g2\n\n\n\n\n\n\n\nBy County - Geographical\nCounty level data first became available in 2004, three years of data is used to arrive at these estimates. For example, the 2006 estimates were computed using the data from 2005, 2006, and 2007 BRFS survey rounds. The county-level estimates were based on indirect model-dependent estimates using Bayesian multilevel modeling techniques(JNK, 2003 ; Barker et al., 2013). This model-dependent approach employs a statistical model that “borrows strength” in making an estimate for one county from BRFSS data collected in other counties and states. Multilevel Binomial regression models with random effects of demographic variables (age 20-44, 45-64, &gt;=65; race/ethnicity; sex) at the county-level were developed. Estimates were adjusted for age to the 2000 US standard population using age groups of 20-44, 45-64, and 65 or older(Klein & Schoenborn, 2001).\n\n\nCode\ng50 &lt;- nc_diabetes_data %&gt;% \n  filter(year &lt; 2015) %&gt;% \n  mutate(\n    rural = factor(rural\n                   ,levels = c(TRUE,FALSE)\n                   ,labels = c(\"Rural\", \"Urban\")\n    )\n  ) %&gt;% \n  ggplot(aes(x = year, y = percentage, color = rural)) +\n  geom_line(aes(group = county),alpha = 0.3) +\n  geom_smooth(aes(group = rural), method = \"loess\", se= FALSE, size = 1.1) +\n  scale_color_brewer(palette = \"Dark2\") +\n  labs(\n    title = \"Percent of Adults (20+) with Diagnosed Diabetes \\nAll North Carolina Counties\"\n    ,x = NULL\n    ,y = NULL\n    ,color = NULL\n  )\n\ng50\n\n\n\n\n\nWhen viewing all county trend lines together, we see that the loess line for both urban and rural follows a similar trend for the time period.\nThe following graphs displays the total estimated prevalence of Diabetes in each off the 100 North Carolina counties. To keep the scaling consistent between the graphs, we binned the estimates into 6 intervals of the same size. Rural counties are highlighted with a stronger border line as well as a letter “R” in respective geographic centers. These graphs allow us to view geographical clusters of diabetes prevalence.\n\n\nCode\nnc_counties_map_binned &lt;- nc_counties_map %&gt;% \n  filter(year &lt; 2015) %&gt;% \n  mutate(\n    bin = dlookr::binning(.$percentage, nbins = 6 ,type = \"equal\")\n    ,bin = forcats::fct_recode(bin\n                               ,\"6.5   - 7.9\"  =  \"[6.5,7.97]\"\n                               ,\"8.0  - 9.4\" =  \"(7.97,9.43]\" \n                               ,\"9.5  - 10.9\" =  \"(9.43,10.9]\" \n                               ,\"11.0 - 12.4\" =  \"(10.9,12.4]\"\n                               ,\"12.5 - 13.8\" =  \"(12.4,13.8]\"  \n                               ,\"13.9 - 15.3\" =  \"(13.8,15.3]\"\n    )\n  )\n\nc_g1 &lt;- nc_counties_map_binned %&gt;% \n  filter(year %in% c(2006,2014)) %&gt;% \n  ggplot() +\n  geom_sf() + #blank geom_sf keeps gridlines from overlapping map\n  geom_sf(aes(fill = bin,color = rural)) +\n  geom_sf(data = nc_cities) +\n  ggrepel::geom_text_repel(data = nc_cities, \n                           aes(x = long, y = lat, label = city)\n                           ,nudge_y = c(-1,1,1,-1,1)\n                           ,nudge_x = c(0,0,0,-1,0)\n  ) +\n  geom_text(data = . %&gt;% filter(rural == TRUE)\n            ,aes(x = center_long, y = center_lat)\n            ,label = \"R\"\n            ,color = \"#696969\"\n  ) +\n  coord_sf(xlim = c(-84.5,-75.5), ylim = c(33.75,37)) +\n  facet_wrap(~year) +\n  scale_fill_viridis_d(alpha = 0.6, direction = -1) +\n  scale_color_manual(\n    values = c(\n      \"FALSE\" = \"gray\"\n      ,\"TRUE\" = \"black\"\n    ),guide = 'none') +\n  labs(\n    title = \"Estimated Diabetes in Adults (20+) by County\"\n    ,fill = \"Percentage\"\n    ,y    = NULL\n    ,x    = NULL\n  ) +\n  theme(\n    panel.background = element_rect(fill = \"aliceblue\")\n    ,panel.grid.major = element_line(color = \"#D4D4D4\", linetype = \"dashed\", \n                                     size = 0.5)\n    ,legend.position = \"bottom\"\n    ,plot.title = element_text(hjust = 0.5)\n  )\n\nc_g1\n\n\n\n\n\nThe following box plot displays the distribution of estimated cases by county from 2006 to 2014. For all years of current data the mean of rural counties is higher then that of their Urban counterparts.\n\n\nCode\nc_g1c &lt;- nc_counties_map %&gt;% \n  mutate(\n    rural = factor(rural\n                   ,levels = c(TRUE,FALSE)\n                   ,labels = c(\"Rural\", \"Urban\")\n    )) %&gt;% \n  filter(year &lt; 2015) %&gt;%\n  ggplot(aes(x = year, y = percentage, group = interaction(year,rural), fill = rural)) +\n  geom_boxplot(alpha = 0.5) +\n  scale_fill_brewer(palette = \"Dark2\") +\n  scale_x_continuous(breaks = seq(2004,2014,2)) +\n  labs(\n    x      = NULL\n    ,y     = NULL\n    ,fill  = NULL\n    ,title = \"Distribution  of Estimated Cases by County 2006 - 2014\"\n  )\n\nc_g1c\n\n\n\n\n\n\n\nBy County - Percent Change\nThe following graphs display the overall change in estimated prevalence between 2006 to 2014.\n\n\nCode\nd3 &lt;- nc_counties_map %&gt;% \n  st_drop_geometry() %&gt;% \n  filter(year %in% c(2006,2014)) %&gt;% \n  select(-countyfips,-us_pct) %&gt;% \n  pivot_wider(names_from = \"year\"\n              ,values_from = \"percentage\") %&gt;% \n  mutate(\n    pct_p  = `2014` - `2006`\n    ,pct_c = ((`2014` - `2006`)/`2006`) * 100\n  ) %&gt;% \n  left_join(nc_counties_map_raw) %&gt;% \n  st_as_sf()\n\n\nc_g4 &lt;- d3 %&gt;% \n  ggplot() +\n  geom_sf() + #blank geom_sf keeps gridlines from overlapping map\n  geom_sf(aes(fill = pct_c ,color = rural)) +\n  geom_sf(data = nc_cities) +\n  ggrepel::geom_text_repel(data = nc_cities, \n                           aes(x = long, y = lat, label = city)\n                           ,nudge_y = c(-1,1,1,-1,1)\n                           ,nudge_x = c(0,0,0,-1,0)\n  ) +\n  geom_text(data = . %&gt;% filter(rural == TRUE)\n            ,aes(x = center_long, y = center_lat)\n            ,label = \"R\"\n            ,color = \"#696969\"\n  ) +\n  # scale_fill_viridis_c(alpha = 0.6, direction = -1) +\n  scale_fill_gradient2(\n    low = \"#d01c8b\"\n    ,mid = \"#f7f7f7\"\n    ,high = \"#4dac26\"\n    ,midpoint = 0\n  ) +\n  scale_color_manual(\n    values = c(\n      \"FALSE\" = \"gray\"\n      ,\"TRUE\" = \"black\"\n    ),guide = 'none') +\n  labs(\n    title = \"Percentage Change of Diagnosed Diabetes 2006-2014\"\n    ,fill = \"Percentage\"\n    ,y    = NULL\n    ,x    = NULL\n  ) +\n  theme(\n    panel.background = element_rect(fill = \"aliceblue\")\n    ,panel.grid.major = element_line(color = \"#D4D4D4\", linetype = \"dashed\", \n                                     size = 0.5)\n  )\n\nc_g4\n\n\n\n\n\nThe following chart displays the density curve of the percentage change for both rural and urban counties. It is notable that the mean of change for Urban counties is actually higher than the mean for rural counties. However, we also see that most change for both regions is positive growth. In fact only 16 rural, and 10 Urban counties experienced negative change in the given time frame. While 35 rural and 34 urban counties experience growth in the same period.\n\n\nCode\nd4 &lt;- d3 %&gt;% \n  st_drop_geometry() %&gt;% \n  mutate(\n    rural = factor(rural\n                   ,levels = c(TRUE,FALSE)\n                   ,labels = c(\"Rural\", \"Urban\")\n    )\n  )\n\n\nmean_d4 &lt;- d4 %&gt;% \n  group_by(rural) %&gt;% \n  summarise(.groups = \"keep\"\n            ,pct_c = mean(pct_c)\n  )\n\ng51 &lt;-  d4 %&gt;% \n  ggplot(aes(x = pct_c, fill = rural, y = ..density.., color = rural)) +\n  geom_histogram(binwidth = 5, position = \"identity\", alpha = 0.3) +\n  geom_density(alpha = 0.5) +\n  facet_wrap(~rural, ncol = 1)  +\n  geom_vline(aes(xintercept = pct_c), data = mean_d4) +\n  geom_text(aes(x = pct_c, y = 0.038, label = round(pct_c, 2))\n            ,data  = mean_d4\n            ,hjust = -0.15\n            ,size  = 5\n            ,color = \"#000000\") +\n  geom_vline(xintercept = 0, linetype = \"dashed\", color = \"#696969\") +\n  scale_color_brewer(palette = \"Dark2\", guide = NULL) +\n  scale_fill_brewer(palette = \"Dark2\", guide = NULL) +\n  labs(\n    x = \"Percentage Change\"\n    ,y = \"Density\"\n    ,fill = NULL\n  )\ng51\n\n\n\n\n\n\n\nConclusion and Next Steps\nThe original hypothesis of this report was that rural counties were growing at a higher rate then there urban counterparts. Through out this post it has been shown that this hypothesis is incorrect, just being a rural county does not indicate diabetes growth, in fact the growth rate throughout North Carolina has been consistent. Further posts will explore other reasons for these trends, as the current post merely explores the trends and differences using data visualizations, a more rigorous and formal evaluation of these comparison is in order.\n\n\nSession information\n===========================================================================\nFor the sake of documentation and reproducibility, the current report was rendered in the following environment. Click the line below to expand.\n\n\nEnvironment \n\n\n\nCode\nif( requireNamespace(\"devtools\", quietly = TRUE) ) {\n  devtools::session_info()\n} else {\n  sessionInfo()\n} \n\n\n─ Session info ───────────────────────────────────────────────────────────────\n setting  value\n version  R version 4.2.1 (2022-06-23 ucrt)\n os       Windows 10 x64 (build 22621)\n system   x86_64, mingw32\n ui       RTerm\n language (EN)\n collate  English_United States.utf8\n ctype    English_United States.utf8\n tz       America/New_York\n date     2023-10-12\n pandoc   3.1.8 @ C:/PROGRA~1/Pandoc/ (via rmarkdown)\n\n─ Packages ───────────────────────────────────────────────────────────────────\n package           * version date (UTC) lib source\n bit                 4.0.4   2020-08-04 [1] CRAN (R 4.2.2)\n bit64               4.0.5   2020-08-30 [1] CRAN (R 4.2.2)\n cachem              1.0.6   2021-08-19 [1] CRAN (R 4.2.2)\n callr               3.7.3   2022-11-02 [1] CRAN (R 4.2.2)\n class               7.3-20  2022-01-16 [2] CRAN (R 4.2.1)\n classInt            0.4-10  2023-09-05 [1] CRAN (R 4.2.3)\n cli                 3.4.1   2022-09-23 [1] CRAN (R 4.2.2)\n colorspace          2.0-3   2022-02-21 [1] CRAN (R 4.2.2)\n confintr            1.0.2   2023-06-04 [1] CRAN (R 4.2.3)\n crayon              1.5.2   2022-09-29 [1] CRAN (R 4.2.2)\n crul                1.4.0   2023-05-17 [1] CRAN (R 4.2.3)\n curl                4.3.3   2022-10-06 [1] CRAN (R 4.2.2)\n DBI                 1.1.3   2022-06-18 [1] CRAN (R 4.2.2)\n devtools            2.4.5   2022-10-11 [1] CRAN (R 4.2.2)\n digest              0.6.30  2022-10-18 [1] CRAN (R 4.2.2)\n dlookr              0.6.2   2023-07-01 [1] CRAN (R 4.2.3)\n dplyr             * 1.1.3   2023-09-03 [1] CRAN (R 4.2.3)\n e1071               1.7-13  2023-02-01 [1] CRAN (R 4.2.3)\n ellipsis            0.3.2   2021-04-29 [1] CRAN (R 4.2.2)\n evaluate            0.21    2023-05-05 [1] CRAN (R 4.2.3)\n extrafont           0.19    2023-01-18 [1] CRAN (R 4.2.2)\n extrafontdb         1.0     2012-06-11 [1] CRAN (R 4.2.0)\n fansi               1.0.3   2022-03-24 [1] CRAN (R 4.2.2)\n farver              2.1.1   2022-07-06 [1] CRAN (R 4.2.2)\n fastmap             1.1.0   2021-01-25 [1] CRAN (R 4.2.2)\n fontBitstreamVera   0.1.1   2017-02-01 [1] CRAN (R 4.2.0)\n fontLiberation      0.1.0   2016-10-15 [1] CRAN (R 4.2.0)\n fontquiver          0.2.1   2017-02-01 [1] CRAN (R 4.2.3)\n forcats             1.0.0   2023-01-29 [1] CRAN (R 4.2.3)\n Formula             1.2-5   2023-02-24 [1] CRAN (R 4.2.2)\n fs                  1.5.2   2021-12-08 [1] CRAN (R 4.2.2)\n gdtools             0.3.3   2023-03-27 [1] CRAN (R 4.2.3)\n generics            0.1.3   2022-07-05 [1] CRAN (R 4.2.2)\n gfonts              0.2.0   2023-01-08 [1] CRAN (R 4.2.3)\n gghighlight         0.4.0   2022-10-16 [1] CRAN (R 4.2.3)\n ggplot2           * 3.4.2   2023-04-03 [1] CRAN (R 4.2.3)\n ggpmisc             0.5.4-1 2023-08-13 [1] CRAN (R 4.2.3)\n ggpp                0.5.4   2023-08-12 [1] CRAN (R 4.2.3)\n ggrepel             0.9.3   2023-02-03 [1] CRAN (R 4.2.3)\n glue                1.6.2   2022-02-24 [1] CRAN (R 4.2.2)\n gridExtra           2.3     2017-09-09 [1] CRAN (R 4.2.2)\n gtable              0.3.3   2023-03-21 [1] CRAN (R 4.2.3)\n hms                 1.1.3   2023-03-21 [1] CRAN (R 4.2.3)\n hrbrthemes          0.8.0   2020-03-06 [1] CRAN (R 4.2.3)\n htmltools           0.5.4   2022-12-07 [1] CRAN (R 4.2.2)\n htmlwidgets         1.6.2   2023-03-17 [1] CRAN (R 4.2.3)\n httpcode            0.3.0   2020-04-10 [1] CRAN (R 4.2.3)\n httpuv              1.6.8   2023-01-12 [1] CRAN (R 4.2.2)\n httr                1.4.6   2023-05-08 [1] CRAN (R 4.2.3)\n inum                1.0-5   2023-03-09 [1] CRAN (R 4.2.3)\n jsonlite            1.8.3   2022-10-21 [1] CRAN (R 4.2.2)\n kableExtra          1.3.4   2021-02-20 [1] CRAN (R 4.2.2)\n KernSmooth          2.23-20 2021-05-03 [2] CRAN (R 4.2.1)\n knitr               1.43    2023-05-25 [1] CRAN (R 4.2.3)\n labeling            0.4.2   2020-10-20 [1] CRAN (R 4.2.0)\n later               1.3.0   2021-08-18 [1] CRAN (R 4.2.2)\n lattice             0.20-45 2021-09-22 [2] CRAN (R 4.2.1)\n libcoin             1.0-10  2023-09-27 [1] CRAN (R 4.2.3)\n lifecycle           1.0.3   2022-10-07 [1] CRAN (R 4.2.2)\n magrittr          * 2.0.3   2022-03-30 [1] CRAN (R 4.2.2)\n mapdata           * 2.3.1   2022-11-01 [1] CRAN (R 4.2.3)\n maps              * 3.4.1   2022-10-30 [1] CRAN (R 4.2.3)\n MASS                7.3-60  2023-05-04 [1] CRAN (R 4.2.3)\n Matrix              1.5-4.1 2023-05-18 [1] CRAN (R 4.2.3)\n MatrixModels        0.5-1   2022-09-11 [1] CRAN (R 4.2.3)\n memoise             2.0.1   2021-11-26 [1] CRAN (R 4.2.2)\n mgcv                1.8-40  2022-03-29 [2] CRAN (R 4.2.1)\n mime                0.12    2021-09-28 [1] CRAN (R 4.2.0)\n miniUI              0.1.1.1 2018-05-18 [1] CRAN (R 4.2.2)\n munsell             0.5.0   2018-06-12 [1] CRAN (R 4.2.2)\n mvtnorm             1.2-2   2023-06-08 [1] CRAN (R 4.2.3)\n nlme                3.1-157 2022-03-25 [2] CRAN (R 4.2.1)\n pagedown            0.20    2022-12-13 [1] CRAN (R 4.2.3)\n partykit            1.2-20  2023-04-14 [1] CRAN (R 4.2.3)\n pillar              1.9.0   2023-03-22 [1] CRAN (R 4.2.3)\n pkgbuild            1.4.2   2023-06-26 [1] CRAN (R 4.2.1)\n pkgconfig           2.0.3   2019-09-22 [1] CRAN (R 4.2.2)\n pkgload             1.3.2   2022-11-16 [1] CRAN (R 4.2.2)\n polynom             1.4-1   2022-04-11 [1] CRAN (R 4.2.3)\n prettyunits         1.1.1   2020-01-24 [1] CRAN (R 4.2.2)\n processx            3.8.1   2023-04-18 [1] CRAN (R 4.2.3)\n profvis             0.3.8   2023-05-02 [1] CRAN (R 4.2.3)\n promises            1.2.0.1 2021-02-11 [1] CRAN (R 4.2.2)\n proxy               0.4-27  2022-06-09 [1] CRAN (R 4.2.3)\n ps                  1.7.5   2023-04-18 [1] CRAN (R 4.2.3)\n purrr               1.0.1   2023-01-10 [1] CRAN (R 4.2.3)\n quantreg            5.95    2023-04-08 [1] CRAN (R 4.2.3)\n R6                  2.5.1   2021-08-19 [1] CRAN (R 4.2.2)\n RColorBrewer        1.1-3   2022-04-03 [1] CRAN (R 4.2.0)\n Rcpp                1.0.9   2022-07-08 [1] CRAN (R 4.2.2)\n reactable           0.4.4   2023-03-12 [1] CRAN (R 4.2.3)\n readr             * 2.1.3   2022-10-01 [1] CRAN (R 4.2.2)\n remotes             2.4.2   2021-11-30 [1] CRAN (R 4.2.2)\n rlang               1.1.0   2023-03-14 [1] CRAN (R 4.2.3)\n rmarkdown           2.22    2023-06-01 [1] CRAN (R 4.2.3)\n rpart               4.1.16  2022-01-24 [2] CRAN (R 4.2.1)\n rstudioapi          0.14    2022-08-22 [1] CRAN (R 4.2.2)\n Rttf2pt1            1.3.12  2023-01-22 [1] CRAN (R 4.2.2)\n rvest               1.0.3   2022-08-19 [1] CRAN (R 4.2.3)\n scales              1.2.1   2022-08-20 [1] CRAN (R 4.2.2)\n sessioninfo         1.2.2   2021-12-06 [1] CRAN (R 4.2.2)\n sf                * 1.0-14  2023-07-11 [1] CRAN (R 4.2.3)\n shiny               1.7.4   2022-12-15 [1] CRAN (R 4.2.1)\n showtext            0.9-6   2023-05-03 [1] CRAN (R 4.2.3)\n showtextdb          3.0     2020-06-04 [1] CRAN (R 4.2.3)\n snakecase           0.11.0  2019-05-25 [1] CRAN (R 4.2.2)\n SparseM             1.81    2021-02-18 [1] CRAN (R 4.2.0)\n stringi             1.7.8   2022-07-11 [1] CRAN (R 4.2.1)\n stringr             1.5.0   2022-12-02 [1] CRAN (R 4.2.3)\n survival            3.3-1   2022-03-03 [2] CRAN (R 4.2.1)\n svglite             2.1.1   2023-01-10 [1] CRAN (R 4.2.2)\n sysfonts            0.8.8   2022-03-13 [1] CRAN (R 4.2.3)\n systemfonts         1.0.4   2022-02-11 [1] CRAN (R 4.2.2)\n tibble              3.2.1   2023-03-20 [1] CRAN (R 4.2.3)\n tidyr             * 1.3.0   2023-01-24 [1] CRAN (R 4.2.3)\n tidyselect          1.2.0   2022-10-10 [1] CRAN (R 4.2.2)\n tzdb                0.3.0   2022-03-28 [1] CRAN (R 4.2.2)\n units               0.8-4   2023-09-13 [1] CRAN (R 4.2.3)\n urlchecker          1.0.1   2021-11-30 [1] CRAN (R 4.2.2)\n usethis             2.2.1   2023-06-23 [1] CRAN (R 4.2.3)\n utf8                1.2.2   2021-07-24 [1] CRAN (R 4.2.2)\n vctrs               0.6.2   2023-04-19 [1] CRAN (R 4.2.3)\n viridisLite         0.4.2   2023-05-02 [1] CRAN (R 4.2.3)\n vroom               1.6.0   2022-09-30 [1] CRAN (R 4.2.2)\n webshot             0.5.4   2022-09-26 [1] CRAN (R 4.2.2)\n withr               2.5.0   2022-03-03 [1] CRAN (R 4.2.2)\n xfun                0.39    2023-04-20 [1] CRAN (R 4.2.3)\n xml2                1.3.5   2023-07-06 [1] CRAN (R 4.2.3)\n xtable              1.8-4   2019-04-21 [1] CRAN (R 4.2.2)\n yaml                2.3.6   2022-10-18 [1] CRAN (R 4.2.1)\n\n [1] C:/Users/belangew/AppData/Local/R/win-library/4.2\n [2] C:/Program Files/R/R-4.2.1/library\n\n──────────────────────────────────────────────────────────────────────────────\n\n\n\n\n\n\n\n\n\n\n\nReferences\n\nAmerican Diabetes Asssociation. (2015). The burden of diabetes in north carolina. http://main.diabetes.org/dorg/PDFs/Advocacy/burden-of-diabetes/north-carolina.pdf\n\n\nBarker, L. E., Thompson, T. J., Kirtland, K. A., Boyle, J. P., Geiss, L. S., McCauley, M. M., & Albright, A. L. (2013). Bayesian small area estimates of diabetes incidence by united states county, 2009. Journal of Data Science, 11(1), 269–280. https://www.ncbi.nlm.nih.gov/pmc/articles/PMC4537395/\n\n\nCenters for Disease Control and Prevention. (2020). National diabetes statistics report. US Department of Health and Human Services. https://www.cdc.gov/diabetes/pdfs/data/statistics/national-diabetes-statistics-report.pdf\n\n\nJNK, R. (2003). Small area estimation. https://onlinelibrary.wiley.com/doi/pdf/10.1002/0471722189.fmatter\n\n\nKlein, R. J., & Schoenborn, C. A. (2001). Age adjustment using the 2000 projected u.s. population. Healthy People 2000 Stat Notes, 20, 1–9.\n\n\nPierannunzi, C., Town, M., Garvin, W., Shaw, F. E., & Balluz, L. (2012). Methodologic changes in the behavioral risk factor surveillance system in 2011 and potential effects on prevalence estimates. Morbidity and Mortality Weekly Report, 61(22), 410–413. https://www.cdc.gov/mmwr/pdf/wk/mm6122.pdf\n\nReusehttps://creativecommons.org/licenses/by/4.0/CitationBibTeX citation:@online{belanger2020,\n  author = {Belanger, Kyle},\n  title = {Diabetes in {Rural} {North} {Carolina} : {Exploring}\n    {Prevalence} {Trends}},\n  date = {2020-06-25},\n  langid = {en}\n}\nFor attribution, please cite this work as:\nBelanger, K. (2020, June 25). Diabetes in Rural North Carolina :\nExploring Prevalence Trends."
-  },
-  {
-    "objectID": "posts/2020-02-13_basic-who-TB-data/basic-exploration-of-who-tuberculosis-data.html",
-    "href": "posts/2020-02-13_basic-who-TB-data/basic-exploration-of-who-tuberculosis-data.html",
-    "title": "Basic Exploration of WHO Tuberculosis Data",
-    "section": "",
-    "text": "Today I am going to dive into some real life data from the World Health Organization (WHO), exploring new and relapse cases of Tuberculosis. I clean up the data, and then make a few graphs to explore different variables."
-  },
-  {
-    "objectID": "posts/2020-02-13_basic-who-TB-data/basic-exploration-of-who-tuberculosis-data.html#a-different-way-to-look",
-    "href": "posts/2020-02-13_basic-who-TB-data/basic-exploration-of-who-tuberculosis-data.html#a-different-way-to-look",
-    "title": "Basic Exploration of WHO Tuberculosis Data",
-    "section": "A different way to look",
-    "text": "A different way to look\nCould there be any correlation between a countries population and the amount of TB cases? Maybe its just as simple as having more people means more people to get sick? Lets bring in another data set, again from World Bank Found Here, this contains total population data by country.\n\npop_raw &lt;-  read.csv(\"API_SP.POP.TOTL_DS2_en_csv_v2_713131.csv\"\n                     ,skip = 4)\n#If this looks famialer its because it is, the data set looks very simalar to the GDP data\n#In the future this could be moved to a function to allow cleaning much easier\npop1 &lt;- pop_raw %&gt;% \n  select(-(Indicator.Name:X2012)\n         ,-X2019\n         ,-X) %&gt;% \n  pivot_longer(cols = X2013:X2018\n               ,names_to  = \"year\" \n               ,values_to = \"population\") %&gt;% \n  mutate_if(is.character\n            ,str_remove_all\n            ,pattern = \"X(?=\\\\d*)\")\n\n#now lets combine this into are overall data set\n\nwho_combined &lt;- who_combined %&gt;% \n  mutate(year = as.character(year)) %&gt;% \n  left_join(y = pop1) %&gt;% \n  select(-Country.Name)\n\n#now lets Graph again\n\ng3 &lt;- who_combined %&gt;% \n  filter(str_detect(age,\"014|15plus|u\"),year == 2018) %&gt;% \n  group_by(country) %&gt;% \n  summarise(sum_tb_cases = (sum(values,na.rm = TRUE)/10000)\n            ,population = first(population)/1000000\n            ,who_region = first(g_whoregion)) %&gt;% \n  mutate(\n         label = ifelse((population&gt;250), yes = as.character(country),no = \"\")) %&gt;%\n  ggplot(aes(x = population, y = sum_tb_cases )) +\n  geom_point(aes(color = who_region)) +\n  ggrepel::geom_text_repel(aes(x = population, y = sum_tb_cases, label = label)) +\n  labs(\n    title = \"Total TB Cases by Country compared to Gross Domestic Product (GDP)\"\n    ,x = \"Population (in Millions)\"\n    ,y = \"Total TB Case (per 10,000 cases)\"\n    ,color = \"WHO Region\"\n    ) +\n  theme_bw() \n\n g3 \n\n\n\n\n\nFurther Exploration\nMaybe we are on to something, the more people, the more likely they are to get sick! However India seems to have a very large number of cases so lets break these cases down further by age group for 2018.\n\ng4 &lt;- who_combined %&gt;% \n  filter(year == 2018\n         ,country == \"India\"\n         ,!(str_detect(age,\"15plus|ageunk|u|014\"))\n         ,(str_detect(sex,\"m|f\"))\n         )  %&gt;% \n  mutate(age_range = glue::glue(\"{age_start} -- {age_end}\")) %&gt;% \n  ggplot(aes(x = reorder(age_range, as.numeric(age_start)), y = (values/1000), fill = sex)) +\n  geom_col(position = \"dodge\") +\n  labs(\n    title = \"TB Case in India by age and gender 2018\"\n    ,x    = NULL\n    ,y    = \"Total Cases (per 1000)\"\n    ,fill = \"Gender\") +\n  scale_fill_manual(labels = c(\"Female\",\"Male\"), values = c(\"#e9a3c9\",\"#67a9cf\") )\n  \ng4\n\n\n\n\nThere seems to be a huge spike in cases after adolescences. Females have a sharp decline the older they get, where as male case stay elevated with a slight decrease at 55."
-  },
-  {
-    "objectID": "posts/2020-02-13_basic-who-TB-data/basic-exploration-of-who-tuberculosis-data.html#last-exploration",
-    "href": "posts/2020-02-13_basic-who-TB-data/basic-exploration-of-who-tuberculosis-data.html#last-exploration",
-    "title": "Basic Exploration of WHO Tuberculosis Data",
-    "section": "Last Exploration",
-    "text": "Last Exploration\nLets look at overall cases in India, going back to 1980 and see if there as been any trends. To get these numbers we will go back to our raw data and strip everything out expect the total count\n\ng5 &lt;- who_raw %&gt;% \n  filter(country == \"India\") %&gt;% \n  select(year, c_newinc) %&gt;% \n  ggplot(aes(x = year, y = c_newinc/1000000)) +\n  geom_line() +\n  geom_point() +\n  labs(\n    title = \"New and Relapse Tuberculosis Cases In India \\n1980 -- 2018\"\n    ,x    = NULL\n    ,y    = \"Total Cases (in millions)\") +\n  theme_bw() +\n  theme(plot.title = element_text(hjust = 0.5)) + #center title \n  scale_x_continuous(breaks = seq(1980,2020,5)) +\n  scale_y_continuous(breaks = scales::pretty_breaks(n=10))  #different way to add tick marks\ng5\n\n\n\n\nCases were steadily rising from 1980 to 1990, then suddenly feel off. Starting in the early 2010s there was a sharp increase and the amount of new and relapse cases just keep growing."
-  },
-  {
-    "objectID": "posts/2020-01-29_facets-and-humility/facets-and-a-lesson-in-humility.html",
-    "href": "posts/2020-01-29_facets-and-humility/facets-and-a-lesson-in-humility.html",
-    "title": "Facets and a Lesson in Humility",
-    "section": "",
-    "text": "Todays post is a lesson in Facets, as well as humility. The task this week was to replicate the graph in Chapter 8 of Tableau for Healthcare in R. The graph in question is called a Table Lens (This is the name the book uses, however I did have trouble finding this name in Google searches), it is a collection of charts with a common theme, this time looking at countries in various WHO regions and some statistics associated with mortality as well as health expenditure. I say this is a lesson in humiltiy as I have read through the excellent book R for Data Science, and yet the idea of faceting a ggplot graph slipped my mind. This ended with hours of trying to find a package in R to line up graphs, and way more time then I care to admit spent on getting things prefect. I did find such a package called cowplots, which can be found here. While this is an excellent package, its use was unecessary and I reverted back to using the excellent facet feature of GGplot, which can be seen below! \n\nLoad Libraries\n\nlibrary(magrittr) #pipes\nlibrary(ggplot2) #ploting \nlibrary(dplyr)\nlibrary(tidyr)\n\n\n\nImport Data\n\nds &lt;- readxl::read_xlsx(path = \"../2020-01-04_my-start-to-r/Tableau 10 Training Practice Data.xlsx\"\n                        ,sheet = \"03 - WHO Life Expect & Mort\"\n                        )\n\n\n\nClean Names and Transform\n\nvarnames &lt;-  c(\"who_region\", \"country\", \"year\" , \"sex\" , \"life_expect_birth\" , \"neo_mort\"\n               ,\"under_five_mort\" , \"health_expenditure\")\nnames(ds) &lt;- varnames\n\n# Order Countries based on Life Expectancy at Birth\n\nds$country &lt;- factor(ds$country, levels = ds$country[order(ds$life_expect_birth)]) \n\n#To \"Long\" Form\n\nds1 &lt;-  ds %&gt;% pivot_longer(5:8)#select columns 5 throuh 8, leave new columns at default names\n\n# Set up labels for Facet, as well as function for Facet Labeller\n\nfacet_labels &lt;-  list(\n\"life_expect_birth\"   = \"Life Expectancy at Birth \"                            \n,\"neo_mort\"           = \"Neonatal Mortality Rate\"             \n,\"under_five_mort\"    = \"Under-Five Mortality Rate\"\n,\"health_expenditure\" = \"Health Expenditure per Capita (US$)\"  )\n\nvariable_labeller &lt;- function(variable,value){\n  return(facet_labels[value])\n}\n\n\n\nGraphs\n\nhightlight_countries &lt;- (c(\"Mauritania\", \"South Africa\")) \n\ng1 &lt;-  ds1 %&gt;% filter(who_region == \"Africa\") %&gt;% \n  mutate(name = factor(name, levels = c(\"life_expect_birth\" , \"neo_mort\"\n               ,\"under_five_mort\" , \"health_expenditure\"))\n         ,highlight = country %in% hightlight_countries) %&gt;% \n  ggplot(aes(x = country, y = value, fill = highlight)) +\n  geom_col(show.legend = FALSE) +\n  coord_flip() +\n  labs(\n    title = \"World Bank Life Expectancy, Neonatal & Under-Five Mortality Rates, and Health Expenditure Analysis\"\n    ,x  = NULL\n    ,y = NULL\n  ) +\n  facet_grid(~name, scales = \"free_x\",labeller = variable_labeller) +\n  theme_bw() +\n  geom_text(aes(label = round(value, 0)), hjust = 0) +\n  scale_y_continuous(expand = expand_scale(mult = c(0,0.2))) +\n  scale_fill_manual(values = c(\"TRUE\" = \"#fc8d59\", \"FALSE\" = \"#2b83ba\"))\ng1\n\n\n\n\n\n\n\n\nReusehttps://creativecommons.org/licenses/by/4.0/CitationBibTeX citation:@online{belanger2020,\n  author = {Belanger, Kyle},\n  title = {Facets and a {Lesson} in {Humility}},\n  date = {2020-01-29},\n  langid = {en}\n}\nFor attribution, please cite this work as:\nBelanger, Kyle. 2020. “Facets and a Lesson in Humility.”\nJanuary 29, 2020."
-  },
-  {
-    "objectID": "index.html",
-    "href": "index.html",
-    "title": "About",
-    "section": "",
-    "text": "I am a highly accomplished Medical Technologist with an extensive 14-year track record in the medical industry, consistently demonstrating the ability to effectively bridge the divide between medical professionals and information technologists. Proficient in the application of machine learning techniques to enhance medical data analysis and adept at developing innovative R Shiny apps to streamline healthcare processes and improve patient outcomes."
-  },
-  {
-    "objectID": "index.html#bio",
-    "href": "index.html#bio",
-    "title": "About",
-    "section": "",
-    "text": "I am a highly accomplished Medical Technologist with an extensive 14-year track record in the medical industry, consistently demonstrating the ability to effectively bridge the divide between medical professionals and information technologists. Proficient in the application of machine learning techniques to enhance medical data analysis and adept at developing innovative R Shiny apps to streamline healthcare processes and improve patient outcomes."
-  },
-  {
-    "objectID": "index.html#education",
-    "href": "index.html#education",
-    "title": "About",
-    "section": "Education",
-    "text": "Education\nCampbell University | Buies Creek, NC\nDoctorate of Health Sciences | August 2020 - May 2023\nUniversity of Central Florida | Orlando, FL\nM.S. in Healthcare Informatics | August 2018 - May 2020\nWestern Carolina University | Cullowhee, NC\nB.S. in Clinical Laboratory Science | August 2005 - May 2009"
-  },
-  {
-    "objectID": "index.html#experience",
-    "href": "index.html#experience",
-    "title": "About",
-    "section": "Experience",
-    "text": "Experience\nRoche Diagnositcs | IT Workflow Consultant | Oct 2021 - Present\nRoche Diagnostics | Field Application Specialist | July 2012 - Sept 2021\nCape Fear Valley Hospital | Lead Medical Laboratory Scientist | June 2011 - July 2012\nCape Fear Valley Hospital | Medical Laboratory Scientist | June 2009 - June 2011"
-  },
-  {
-    "objectID": "blog.html",
-    "href": "blog.html",
-    "title": "Posts",
-    "section": "",
-    "text": "TidyTuesday 2021 Week 6: HBCU Enrollment\n\n\nTidyTuesday 2021 Week 6: HBCU Enrollment. Posts looks at tidying the data ,as well as making some graphs about the data.\n\n\n\n\nTidyTuesday\n\n\n\n\n\n\n\n\n\n\n\nFeb 26, 2021\n\n\nKyle Belanger\n\n\n\n\n\n\n  \n\n\n\n\nConverting From Blogdown to Distill\n\n\nA meta post on transferring from a blogdown to distill blog site\n\n\n\n\nDistill\n\n\n\n\n\n\n\n\n\n\n\nJan 12, 2021\n\n\nKyle Belanger\n\n\n\n\n\n\n  \n\n\n\n\nDiabetes in Rural North Carolina : Data Collection and Cleaning\n\n\nThis is the second post in the series exploring Diabetes in rural North Carolina. This post will explore the data used for this project, from collection, cleaning, and analysis ready data.\n\n\n\n\n\n\n\n\n\nJul 25, 2020\n\n\nKyle Belanger\n\n\n\n\n\n\n  \n\n\n\n\nDiabetes in Rural North Carolina : Exploring Prevalence Trends\n\n\nThis post introduces the exploration of the Diabetes epidemic in North Carolina\n\n\n\n\n\n\n\n\n\nJun 25, 2020\n\n\nKyle Belanger\n\n\n\n\n\n\n  \n\n\n\n\nImporting Excel Data with Multiple Header Rows\n\n\nA solution for importing Excel Data that contains two header rows.\n\n\n\n\n\n\n\n\n\nJun 22, 2020\n\n\nKyle Belanger\n\n\n\n\n\n\n  \n\n\n\n\nBasic Exploration of WHO Tuberculosis Data\n\n\nToday I am going to dive into some real life data from the World Health Organization (WHO), exploring new and relapse cases of Tuberculosis. I clean up the data, and then make a few graphs to explore different variables.\n\n\n\n\n\n\n\n\n\nFeb 13, 2020\n\n\nKyle Belanger\n\n\n\n\n\n\n  \n\n\n\n\nLine Graphs and Interactivity\n\n\nTableau for Healthcare Chapter 10. Static and Interactive examples\n\n\n\n\n\n\n\n\n\nFeb 10, 2020\n\n\nKyle Belanger\n\n\n\n\n\n\n  \n\n\n\n\nFacets and a Lesson in Humility\n\n\nA look at Tableau for Healthcare Chapter 8. Table Lens graph.\n\n\n\n\n\n\n\n\n\nJan 29, 2020\n\n\nKyle Belanger\n\n\n\n\n\n\n  \n\n\n\n\nMy Start to R\n\n\nA short introduction to my blog, and R journey.\n\n\n\n\n\n\n\n\n\nJan 24, 2020\n\n\nKyle Belanger\n\n\n\n\n\n\nNo matching items"
-  },
-  {
-    "objectID": "posts/2020-01-04_my-start-to-r/my-start-to-r.html",
-    "href": "posts/2020-01-04_my-start-to-r/my-start-to-r.html",
-    "title": "My Start to R",
-    "section": "",
-    "text": "Today starts my attempt at sharing my R journey with the world! I have been learning R off and on now since late 2019, I have begun to take it much more serious as I work through my Data Analytics class at UCF. My love for all things numbers and graphs has really blossomed, and I am choosing to share that love with anyone who cares to read. I will not claim to be the best at R, or any programming for that matter, but these are my attempts. Each post in this serious will be replicated a graph created in Tableau from the book Tableau for Healthcare. Todays graph is a simple horizontal bar chart, in transferring to both a new blog site and computer I have unfortunately lost the original bar graph, but trust me the one I created looks just like it.\n\nLoad Libraries\n\nlibrary(tidyr)\nlibrary(magrittr)\nlibrary(ggplot2)\nlibrary(stringr)\nlibrary(dplyr)\n\n\n\nImport Data\n\nds &lt;- readxl::read_excel(\n    path   = \"Tableau 10 Training Practice Data.xlsx\" \n    ,sheet = \"02 - Patient Falls-Single Hosp\"\n    )\n\n\n\nClean Data Names\n\n#should make reusable forumla at later time\nnames(ds) &lt;- tolower(names(ds))\nnames(ds) &lt;- str_replace_all(names(ds),\" \", \"_\")\n\n\n\nConvert Data to ‘Long Form’\n\nds1 &lt;- ds %&gt;% \n  gather(\"patient_falls_no_injury_rate\" , \"patient_falls_with_injury_rate\"\n         ,key   = \"injury\" \n         ,value = \"rate\" ) %&gt;% \n  mutate(injury = (injury == \"patient_falls_with_injury_rate\"))\n\n\n\nGraph 5.1\n\nb1 &lt;- ds %&gt;% \n  ggplot(mapping = aes(x = reorder(type_of_care,total_patient_falls_rate ) , y = total_patient_falls_rate)) +\n  geom_col(fill = \"#2b83ba\") + \n  coord_flip() +\n  scale_y_continuous(breaks = NULL) +\n  theme(axis.ticks = element_blank()) +\n  labs(title = \"Rate of Patient Falls (per 1,000 Pateint Days)\\nby Type of Care for FY2017\"\n      ,x     = NULL\n      ,y     = NULL\n      ) +\n  theme_classic() +\n  geom_text(aes(label = format(total_patient_falls_rate, digits = 2)), nudge_y = -.25, color = \"white\")\n  \nb1\n\n\n\n\n\n\n\n\nReusehttps://creativecommons.org/licenses/by/4.0/CitationBibTeX citation:@online{belanger2020,\n  author = {Belanger, Kyle},\n  title = {My {Start} to {R}},\n  date = {2020-01-24},\n  langid = {en}\n}\nFor attribution, please cite this work as:\nBelanger, Kyle. 2020. “My Start to R.” January 24, 2020."
-  },
-  {
-    "objectID": "posts/2020-02-10_line-graphs-and-interactivity/line-graphs-and-interactivity.html",
-    "href": "posts/2020-02-10_line-graphs-and-interactivity/line-graphs-and-interactivity.html",
-    "title": "Line Graphs and Interactivity",
-    "section": "",
-    "text": "Today’s post is all about line graphs using both ggplot for a static graph as well as a package called plotly for interactivity (more on this later). The example graph and data is again coming from Tableau for Healthcare, Chapter 10."
-  },
-  {
-    "objectID": "posts/2020-02-10_line-graphs-and-interactivity/line-graphs-and-interactivity.html#load-libraries",
-    "href": "posts/2020-02-10_line-graphs-and-interactivity/line-graphs-and-interactivity.html#load-libraries",
-    "title": "Line Graphs and Interactivity",
-    "section": "Load Libraries",
-    "text": "Load Libraries\nAs always first step is to load in our libraries, I am using quite a few here, some are a bit overkill for this example but I wanted to play around with some fun features today.\n\nlibrary(magrittr) #pipes\nlibrary(ggplot2) #ploting \nlibrary(dplyr)  # data manipulation\nlibrary(tidyr) # tidy data\nlibrary(lubridate) #work with dates\nlibrary(stringr) # manipulate strings\nlibrary(plotly)"
-  },
-  {
-    "objectID": "posts/2020-02-10_line-graphs-and-interactivity/line-graphs-and-interactivity.html#import-data",
-    "href": "posts/2020-02-10_line-graphs-and-interactivity/line-graphs-and-interactivity.html#import-data",
-    "title": "Line Graphs and Interactivity",
-    "section": "Import Data",
-    "text": "Import Data\nNext lets import our data, this week we are using the sheet Flu Occurrence FY2013-2016. I am unsure if this is form a real data set or not but it is good for demonstration purposes! After importing we can glimpse at our data to understand what is contained within.\n\nds &lt;- readxl::read_xlsx(path = \"../2020-01-04_my-start-to-r/Tableau 10 Training Practice Data.xlsx\"\n                        ,sheet = \"05 - Flu Occurrence FY2013-2016\"\n                        )\nds %&gt;% glimpse()\n\nRows: 48\nColumns: 4\n$ Date                                         &lt;dttm&gt; 2012-10-27, 2012-11-24, …\n$ `Tests (+) for Influenza (count)`            &lt;dbl&gt; 995, 3228, 22368, 24615, …\n$ `Total Respiratory Specimens Tested (count)` &lt;dbl&gt; 18986, 24757, 66683, 7561…\n$ `% Tests (+) for Influenza`                  &lt;dbl&gt; 0.05240704, 0.13038737, 0…"
-  },
-  {
-    "objectID": "posts/2020-02-10_line-graphs-and-interactivity/line-graphs-and-interactivity.html#transform-data",
-    "href": "posts/2020-02-10_line-graphs-and-interactivity/line-graphs-and-interactivity.html#transform-data",
-    "title": "Line Graphs and Interactivity",
-    "section": "Transform Data",
-    "text": "Transform Data\nI went a bit overboard today with renaming the variables. I wanted to practice writing a function and while it might not be the prettiest or the best way to do this, it worked for what I was trying to accomplish. Note the use of sapply, which lets us run the function on each column name.\n\nformat_names &lt;- function(x) {\n  #Fucntion to set all names to lower case, and strip unneeded characters\n  x &lt;- tolower(x)\n  x &lt;- str_replace_all(x,c(#set each pattern equal to replacement\n                       \" \"         = \"_\"\n                      ,\"\\\\(\\\\+\\\\)\" = \"pos\"  #regualr experssion to match (+)\n                      ,\"\\\\(\"       = \"\"\n                      ,\"\\\\)\"       = \"\"\n                      ,\"\\\\%\"       = \"pct\"\n                      )\n                  ) \n                }\n\n#run the format name function on all names from DS\ncolnames(ds) &lt;- sapply(colnames(ds),format_names)    \n\nNow is were the fun really starts! For this particular data set there are a couple things we need to add to replicate the example. In the original data set the date is stored with month, day, and year; the day is irrelevant and we need to pull out the month as well as the year. For this we can use the lubridate package, first we pull out the month and set it as a factor. For this example our year actually starts in October, so we set our factor to start at October (10), and end with September (9). We then pull out the year, which presents us with a different problem. Again our year starts in October, instead of January. To solve this I have created a variable called date adjustment, in this column is our month is 10 or greater, we will place a 1, if not a 0. We then set our fiscal year to be the actual year plus the date adjustment, this allows us to have our dates in the right fiscal year. Last the percent column is currently listed as a decimal, so we will convert this to a percentage.\n\n# split date time\nds1 &lt;- ds %&gt;% mutate(\n        #create month column, then set factors and labels to start fiscal year in Oct\n        month = month(ds$date)\n        ,month = factor(month\n                        ,levels = c(10:12, 1:9)\n                        ,labels = c(month.abb[10:12],month.abb[1:9]))\n       ,year = year(ds$date)\n        ,date_adjustment = ifelse(month(ds$date) &gt;= 10, 1,0 )\n        ,fiscal_year = factor(year + date_adjustment)\n        #convert % Pos from decmial to pct\n        ,pct_tests_pos_for_influenza = round(pct_tests_pos_for_influenza * 100, digits = 0)\n        )\n\nds1 %&gt;% glimpse()\n\nRows: 48\nColumns: 8\n$ date                                     &lt;dttm&gt; 2012-10-27, 2012-11-24, 2012…\n$ tests_pos_for_influenza_count            &lt;dbl&gt; 995, 3228, 22368, 24615, 1179…\n$ total_respiratory_specimens_tested_count &lt;dbl&gt; 18986, 24757, 66683, 75614, 5…\n$ pct_tests_pos_for_influenza              &lt;dbl&gt; 5, 13, 34, 33, 23, 17, 11, 6,…\n$ month                                    &lt;fct&gt; Oct, Nov, Dec, Jan, Feb, Mar,…\n$ year                                     &lt;dbl&gt; 2012, 2012, 2012, 2013, 2013,…\n$ date_adjustment                          &lt;dbl&gt; 1, 1, 1, 0, 0, 0, 0, 0, 0, 0,…\n$ fiscal_year                              &lt;fct&gt; 2013, 2013, 2013, 2013, 2013,…"
-  },
-  {
-    "objectID": "posts/2020-02-10_line-graphs-and-interactivity/line-graphs-and-interactivity.html#ggplot",
-    "href": "posts/2020-02-10_line-graphs-and-interactivity/line-graphs-and-interactivity.html#ggplot",
-    "title": "Line Graphs and Interactivity",
-    "section": "GGplot",
-    "text": "GGplot\nThe graph here is pretty straight forward with one exception, group! For this line graph we want ggplot to connect the lines of the same year, if we do not explicitly state this using the group mapping, ggplot will try to connect all the lines together, which of course is not at all what we want!\n\ng1 &lt;- ds1 %&gt;% \n    ggplot(aes(x = month, y = pct_tests_pos_for_influenza, color = fiscal_year\n               ,group = fiscal_year)) +\n  geom_line() +\n  labs(\n    x  = NULL\n    ,y = \"% Tests (+) for Influenza\"\n    ,color = NULL\n    ,title = \"Flu Viral Surveillance: % Respiratory Specimens Positive for Influenza \\nOctober - September \\nFor Flu Seasons 2013 - 2016\"\n  ) +\n  theme_classic() +\n  scale_y_continuous(breaks = seq(0,40,5)) +\n  scale_color_manual(values = c(\"#a6611a\",\"#dfc27d\",\"#80cdc1\",\"#018571\"))\n\ng1"
-  },
-  {
-    "objectID": "posts/2020-02-10_line-graphs-and-interactivity/line-graphs-and-interactivity.html#plotly",
-    "href": "posts/2020-02-10_line-graphs-and-interactivity/line-graphs-and-interactivity.html#plotly",
-    "title": "Line Graphs and Interactivity",
-    "section": "plotly",
-    "text": "plotly\nOne of the nice features of Tableau is the fact the graphs are interactive, while a good graph should speak for itself, end users love pretty things. I have been experimenting with Plotly, which has an open source package for R (as well as many other programming languages!). This example only just scratches the surface, but there will be many more to come!\n\ng2 &lt;- ds1 %&gt;% \n    plot_ly(x = ~month, y = ~pct_tests_pos_for_influenza, type = \"scatter\", mode = \"lines\" \n            ,color = ~fiscal_year\n            ,colors = c(\"#a6611a\",\"#dfc27d\",\"#80cdc1\",\"#018571\")\n            , hoverinfo = 'y') %&gt;% \n    layout(xaxis = list(\n                        title = \"\"\n                    )\n           ,yaxis = list(\n                        title = \"% Tests (+) for Influenza\"\n                    )\n           ,title = \"Flu Viral Surveillance: % Respiratory Specimens Positive for Influenza\"\n           ,legend = list(\n                      x = 100\n                      ,y = 0.5\n                      )   \n           \n           )\n\ng2"
-  },
-  {
-    "objectID": "posts/2020-06-22_excel-data-multiple-headers/importing-excel-data-with-multiple-header-rows.html",
-    "href": "posts/2020-06-22_excel-data-multiple-headers/importing-excel-data-with-multiple-header-rows.html",
-    "title": "Importing Excel Data with Multiple Header Rows",
-    "section": "",
-    "text": "Problem\nRecently I tried to important some Microsoft Excel data into R, and ran into an issue were the data actually had two different header rows. The top row listed a group, and then the second row listed a category within that group. Searching goggle I couldn’t really find a good example of what I was looking for, so I am putting it here in hopes of helping someone else!\n\n\nExample Data\nI have created a small Excel file to demonstrate what I am talking about. Download it here. This is the data from Excel. \n\n\nCheck Data\nFirst we will read the file in using the package readxl and view the data without doing anything special to it.\n\nlibrary(readxl)                  # load the readxl library\nlibrary(tidyverse)               # load the tidyverse for manipulating the data\nfile_path &lt;- \"example_data.xlsx\" # set the file path\nds0 &lt;- read_excel(file_path)     # read the file\nds0\n\n# A tibble: 7 × 7\n  Name   `Test 1` ...3  ...4  `Test 2` ...6  ...7 \n  &lt;chr&gt;  &lt;chr&gt;    &lt;chr&gt; &lt;chr&gt; &lt;chr&gt;    &lt;chr&gt; &lt;chr&gt;\n1 &lt;NA&gt;   Run 1    Run 2 Run 3 Run 1    Run 2 Run 3\n2 Max    22       23    24    25       26    27   \n3 Phoebe 34       34    32    34       51    12   \n4 Scamp  35       36    21    22       23    24   \n5 Chance 1234     1235  1236  1267     173   1233 \n6 Aimee  420      123   690   42       45    12   \n7 Kyle   22       23    25    26       67    54   \n\n\n\n\nNew Header Names\n\nStep 1\nFirst lets read back the data, this time however with some options. We will set the n_max equal to 2, to only read the first two rows, and set col_names to FALSE so we do not read the first row as headers.\n\nds1 &lt;- read_excel(file_path, n_max = 2, col_names = FALSE)\nds1\n\n# A tibble: 2 × 7\n  ...1  ...2   ...3  ...4  ...5   ...6  ...7 \n  &lt;chr&gt; &lt;chr&gt;  &lt;chr&gt; &lt;chr&gt; &lt;chr&gt;  &lt;chr&gt; &lt;chr&gt;\n1 Name  Test 1 &lt;NA&gt;  &lt;NA&gt;  Test 2 &lt;NA&gt;  &lt;NA&gt; \n2 &lt;NA&gt;  Run 1  Run 2 Run 3 Run 1  Run 2 Run 3\n\n\n\n\nStep 2\nNow that we have our headers lets first transpose them to a vertical matrix using the base function t(), then we will turn it back into a tibble to allow us to use tidyr fill function.\n\nnames &lt;- ds1 %&gt;%\n  t() %&gt;%       #transpose to a matrix\n  as_tibble()   #back to tibble\nnames\n\n# A tibble: 7 × 2\n  V1     V2   \n  &lt;chr&gt;  &lt;chr&gt;\n1 Name   &lt;NA&gt; \n2 Test 1 Run 1\n3 &lt;NA&gt;   Run 2\n4 &lt;NA&gt;   Run 3\n5 Test 2 Run 1\n6 &lt;NA&gt;   Run 2\n7 &lt;NA&gt;   Run 3\n\n\nNote that tidyr fill can not work row wise, thus the need to flip the tibble so it is long vs wide.\n\n\nStep 3\nNow we use tidyr fill function to fill the NA’s with whatever value it finds above.\n\nnames &lt;- names %&gt;% fill(V1)  #use dplyr fill to fill in the NA's\nnames\n\n# A tibble: 7 × 2\n  V1     V2   \n  &lt;chr&gt;  &lt;chr&gt;\n1 Name   &lt;NA&gt; \n2 Test 1 Run 1\n3 Test 1 Run 2\n4 Test 1 Run 3\n5 Test 2 Run 1\n6 Test 2 Run 2\n7 Test 2 Run 3\n\n\n\n\nStep 4\nThis is where my data differed from many of the examples I could find online. Because the second row is also a header we can not just get rid of them. We can solve this using paste() combined with dplyr mutate to form a new column that combines the first and second column.\n\nnames &lt;- names %&gt;%\n  mutate(\n    new_names = paste(V1,V2, sep = \"_\")\n  )\nnames\n\n# A tibble: 7 × 3\n  V1     V2    new_names   \n  &lt;chr&gt;  &lt;chr&gt; &lt;chr&gt;       \n1 Name   &lt;NA&gt;  Name_NA     \n2 Test 1 Run 1 Test 1_Run 1\n3 Test 1 Run 2 Test 1_Run 2\n4 Test 1 Run 3 Test 1_Run 3\n5 Test 2 Run 1 Test 2_Run 1\n6 Test 2 Run 2 Test 2_Run 2\n7 Test 2 Run 3 Test 2_Run 3\n\n\n\n\nStep 4a\nOne more small clean up task, in the example data the first column header Name, did not have a second label, this has created a name with an NA attached. We can use stringr to remove this NA.\n\nnames &lt;- names %&gt;% mutate(across(new_names, ~str_remove_all(.,\"_NA\")))\nnames\n\n# A tibble: 7 × 3\n  V1     V2    new_names   \n  &lt;chr&gt;  &lt;chr&gt; &lt;chr&gt;       \n1 Name   &lt;NA&gt;  Name        \n2 Test 1 Run 1 Test 1_Run 1\n3 Test 1 Run 2 Test 1_Run 2\n4 Test 1 Run 3 Test 1_Run 3\n5 Test 2 Run 1 Test 2_Run 1\n6 Test 2 Run 2 Test 2_Run 2\n7 Test 2 Run 3 Test 2_Run 3\n\n\n\n\nStep 5\nNow that are new name column is the way we want it, we can use dpylrs pull to return a vector of just that column\n\nnames &lt;-  names %&gt;% pull(new_names)\n\n\n\n\nFinal Data\nNow that we have a vector of column names lets read in the original file using our new names. We set the skip argument to 2, to skip the first two rows, and set col_names equal to our vector of names. Note the last step I used the janitor package to provide names in snake case (the default for the clean names function.)\n\nexample_data &lt;- readxl::read_excel(file_path, col_names = names, skip = 2) %&gt;%\n  janitor::clean_names()\nexample_data\n\n# A tibble: 6 × 7\n  name   test_1_run_1 test_1_run_2 test_1_run_3 test_2_run_1 test_2_run_2\n  &lt;chr&gt;         &lt;dbl&gt;        &lt;dbl&gt;        &lt;dbl&gt;        &lt;dbl&gt;        &lt;dbl&gt;\n1 Max              22           23           24           25           26\n2 Phoebe           34           34           32           34           51\n3 Scamp            35           36           21           22           23\n4 Chance         1234         1235         1236         1267          173\n5 Aimee           420          123          690           42           45\n6 Kyle             22           23           25           26           67\n# ℹ 1 more variable: test_2_run_3 &lt;dbl&gt;\n\n\n\n\nOther Help\nWhile searching for some solutions to my problem I found two good examples, however neither did exactly what I was trying to do.\n\nThis post by Lisa Deburine is pretty close to what I was trying to accomplish and gave me a good starting point. Read it here\nThis post by Alison Hill solves a simlar but slightly different problem. In her data the 2nd row is actually metadata not a second set of headers. Read it here\n\n\n\n\n\nReusehttps://creativecommons.org/licenses/by/4.0/CitationBibTeX citation:@online{belanger2020,\n  author = {Belanger, Kyle},\n  title = {Importing {Excel} {Data} with {Multiple} {Header} {Rows}},\n  date = {2020-06-22},\n  langid = {en}\n}\nFor attribution, please cite this work as:\nBelanger, Kyle. 2020. “Importing Excel Data with Multiple Header\nRows.” June 22, 2020."
+    "text": "Introduction\nRecently I was struggling to find a data project to work on, I felt a bit stuck with some of my current projects, so I begun to scour the internet to find something to work on. I stumbled upon (TidyTuesday)[https://github.com/rfordatascience/tidytuesday] a weekly project where untidy data is posted from various sources, for the goal of practicing cleaning and visualizing. There is not right or wrong answers for TidyTuesday, this was exactly what I was looking for! This week (well by the time this was posted, a few weeks ago) the data set was about Historically Black Colleges and Universities. Within the posted data there were a few different data sets, I chose to work with the set dealing with High school Graduation rates, throughout this post I will explain my steps for cleaning and then present a few different graphs. It should also be noted that in the first section my code blocks will build upon themselves, so the same code will be duplicated as I add more steps to it.\n\n\nLoad Data\nIn this first block we will load some required libraries as well as load in the raw data. This dataset contains data for Highschool graduation rates by race. One thing to point out here is the use of import::from(), will its use here is a bit overkill, it was more for my practice. In this case I am importing the function %nin from the Hmisc package, which in the opposite of the function %in% from base R.\n\nlibrary(dplyr)\nlibrary(ggplot2)\n\nimport::from(Hmisc, `%nin%`)\n\nhs_students_raw &lt;- readxl::read_xlsx(\"104.10.xlsx\", sheet = 1)\n\nglimpse(hs_students_raw)\n\nRows: 48\nColumns: 19\n$ Total                                                             &lt;dbl&gt; 1910…\n$ `Total, percent of all persons age 25 and over`                   &lt;dbl&gt; 13.5…\n$ `Standard Errors - Total, percent of all persons age 25 and over` &lt;chr&gt; \"(—)…\n$ White1                                                            &lt;chr&gt; \"—\",…\n$ `Standard Errors - White1`                                        &lt;chr&gt; \"(†)…\n$ Black1                                                            &lt;chr&gt; \"—\",…\n$ `Standard Errors - Black1`                                        &lt;chr&gt; \"(†)…\n$ Hispanic                                                          &lt;chr&gt; \"—\",…\n$ `Standard Errors - Hispanic`                                      &lt;chr&gt; \"(†)…\n$ `Total - Asian/Pacific Islander`                                  &lt;chr&gt; \"—\",…\n$ `Standard Errors - Total - Asian/Pacific Islander`                &lt;chr&gt; \"(†)…\n$ `Asian/Pacific Islander - Asian`                                  &lt;chr&gt; \"—\",…\n$ `Standard Errors - Asian/Pacific Islander - Asian`                &lt;chr&gt; \"(†)…\n$ `Asian/Pacific Islander - Pacific Islander`                       &lt;chr&gt; \"—\",…\n$ `Standard Errors - Asian/Pacific Islander - Pacific Islander`     &lt;chr&gt; \"(†)…\n$ `American Indian/\\r\\nAlaska Native`                               &lt;chr&gt; \"—\",…\n$ `Standard Errors - American Indian/\\r\\nAlaska Native`             &lt;chr&gt; \"(†)…\n$ `Two or more race`                                                &lt;chr&gt; \"—\",…\n$ `Standard Errors - Two or more race`                              &lt;chr&gt; \"(†)…\n\n\nNow we are going to start cleaning the data. First I am going to filter for years 1985 and up, prior to this year the data set is a bit spardic, so to keep it clean I am only going to look at 1985 and up. There are also 3 odd years (19103,19203,19303) that I am not sure what those are so I will remove that data as well.\n\nhs_students &lt;- hs_students_raw %&gt;% \n  filter(Total &gt;= 1985) %&gt;% \n  filter(Total %nin% c(19103, 19203, 19303))\n\nNext I am going to convert all columns to be numeric, because of some blanks in the original import all of the columns read in as characters instead of numeric.\n\nhs_students &lt;- hs_students_raw %&gt;% \n  filter(Total &gt;= 1985) %&gt;% \n  filter(Total %nin% c(19103, 19203, 19303)) %&gt;% \n  mutate(across(everything(), as.numeric))\n\nNext I am going to rename the columns. First I rename the column Total, into year, as this column holds the year! Then I use stringr::str_remove_all to remove the long phrase ‘percent of all persons age 25 and over’, as well as the number 1. For some reason the Black and White columns each have a number 1 at the end, I think this is for some sort of footnote but we will just remove it.\n\nhs_students &lt;- hs_students_raw %&gt;% \n  filter(Total &gt;= 1985) %&gt;% \n  filter(Total %nin% c(19103, 19203, 19303)) %&gt;% \n  mutate(across(everything(), as.numeric)) %&gt;% \n  rename(year = Total) %&gt;% \n  rename_with(\n    ~stringr::str_remove_all(\n      .\n      ,\", percent of all persons age 25 and over|1\"\n      )\n    )\n\nThen I am going to drop the column ‘Total - Asian/Pacific Islander’, each of these races is stored in a seperate column so if I needed the total later for some reason I could calculate it. I am also going to drop the string “Asian/Pacific Islander -”, from the begin of each of those columns, so they will now tell me just which race each column refers too.\n\nhs_students &lt;- hs_students_raw %&gt;% \n  filter(Total &gt;= 1985) %&gt;% \n  filter(Total %nin% c(19103, 19203, 19303)) %&gt;% \n  mutate(across(everything(), as.numeric)) %&gt;% \n  rename(year = Total) %&gt;% \n  rename_with(\n    ~stringr::str_remove_all(\n      .\n      ,\", percent of all persons age 25 and over|1\"\n      )\n    ) %&gt;% \n  select(-contains(\"Total - Asian/Pacific Islander\")) %&gt;% \n  rename_with(\n    ~stringr::str_remove_all(\n      .\n      ,\"Asian/Pacific Islander - \"\n    )\n  )\n\nI now simply pivot the data longer. A nice trick I learned since I want to pivot everything expect the year column is to use the minus sign to select every column expect the year column in the pivot.\n\nhs_students_long &lt;- hs_students %&gt;% \n  tidyr::pivot_longer(-year)\n\nWith the data now in long form I am going to separate the automatically generate name column into two columns titled, stat and race. The data contains both the percent that graduated and the standard error. Then I replace all the NA’s in the stat column with Total, as these are the total percentage and the other rows will be the standard error. Last I dropped the s from standard errors to make it singular.\n\nhs_students_long &lt;- hs_students %&gt;% \n  tidyr::pivot_longer(-year) %&gt;% \n  tidyr::separate(name, c(\"stat\", \"race\"), sep = \"- \", fill = \"left\") %&gt;% \n  tidyr::replace_na(list(stat = \"Total\")) %&gt;% \n  mutate(\n    across(\n      stat\n      ,~stringr::str_replace(\n        .\n        ,\"Standard Errors\"\n        ,\"Standard Error\"\n      )\n    )\n  )\n\nI know pivot the date back to wide form, and use the Janitor package to clean the column names. This puts them in lowercase with _ for spaces.\n\nhs_students_wide &lt;- hs_students_long %&gt;% \n  tidyr::pivot_wider(names_from = stat, values_from = value) %&gt;% \n  janitor::clean_names()\n\nTo make graphing a bit easier with the scales package, I divide both columns by 100. We will see why in the graphs.\n\nhs_students_wide &lt;- hs_students_long %&gt;% \n  tidyr::pivot_wider(names_from = stat, values_from = value) %&gt;% \n  janitor::clean_names() %&gt;% \n  mutate(across(total:standard_error, ~.x/100))\n\nIt’s now time to graph. Notice the use scales::label_percent() as the labels value for the y axis. If the numbers were left as the default values (75 vs 0.75) the percentages would have been 750%, which is obviously very wrong! I also use geom_ribbon to draw the standard error bars around each line. Notice the use of color = NA, by default the ribbon has outlines, I did not like this so doing color = NA turns them off. (It should be noted there are a few other solutions to turning them off but this seemed the easiest to me). Last we see the use of the aesthetics argument in scale_color_brewer. By setting this we match the color and fill to be the same color, without setting this, the colors of the error bars and lines don’t match!\n\nhs_students_wide &lt;- hs_students_wide %&gt;% \n  mutate(\n    ymax  = total - standard_error\n    ,ymin = total + standard_error\n  )\n\ng1 &lt;- hs_students_wide %&gt;% \n  filter(race != \"Total\") %&gt;% \n  ggplot(aes(x = year, y = total, group = race, color = race)) +\n  geom_ribbon(aes(ymax = ymax, ymin = ymin, fill = race), alpha = 0.3, color = NA) +\n  geom_line() +\n  scale_x_continuous(breaks = seq(1985,2016,3)) +\n  scale_y_continuous(labels = scales::label_percent()) +\n  scale_color_brewer(palette = \"Dark2\", aesthetics = c(\"color\", \"fill\")) +\n  theme_bw() +\n  labs(\n    x      = NULL\n    ,y     = NULL\n    ,title = glue::glue(\"Percentage of High School Graduates by Race\"\n                        ,\"\\n\"\n                        ,\"1985 - 2016\")\n    ,color = \"Race\" \n    ,fill  = \"Race\"\n  ) +\n  theme(\n    plot.title    = element_text(hjust = 0.5)\n    ,legend.title = element_text(hjust = 0.5)\n  )\n  \ng1\n\n\n\n\n\n\nLoad Male/Female Data\nNow the file also contains the same information but split by male and female. I am going to load in that data.\n\nmale_hs_raw   &lt;- readxl::read_excel(\"104.10.xlsx\", sheet = 3)\nfemale_hs_raw &lt;- readxl::read_excel(\"104.10.xlsx\", sheet = 5)\n\nHere I will use the same manipulations as above, the only addition is adding a column for sex.\n\nmale_hs &lt;- male_hs_raw %&gt;% \n  filter(Total &gt;= 1985) %&gt;% \n  filter(Total %nin% c(19103, 19203, 19303)) %&gt;% \n  mutate(across(everything(), as.numeric)) %&gt;% \n  rename(year = Total) %&gt;% \n  rename_with(\n    ~stringr::str_remove_all(\n      .\n      ,\", percent of all persons age 25 and over|1\"\n      )\n    ) %&gt;% \n  select(-contains(\"Total - Asian/Pacific Islander\")) %&gt;% \n  rename_with(\n    ~stringr::str_remove_all(\n      .\n      ,\"Asian/Pacific Islander - \"\n    )\n  ) %&gt;% \n  tidyr::pivot_longer(-year) %&gt;% \n  tidyr::separate(name, c(\"stat\", \"race\"), sep = \"- \", fill = \"left\") %&gt;% \n  tidyr::replace_na(list(stat = \"Total\")) %&gt;% \n  mutate(\n    across(\n      stat\n      ,~stringr::str_replace(\n        .\n        ,\"Standard Errors\"\n        ,\"Standard Error\"\n      )\n    )\n    ,sex = \"Male\"\n  )\n\n\nfemale_hs &lt;- female_hs_raw %&gt;% \n  filter(Total &gt;= 1985) %&gt;% \n  filter(Total %nin% c(19103, 19203, 19303)) %&gt;% \n  mutate(across(everything(), as.numeric)) %&gt;% \n  rename(year = Total) %&gt;% \n  rename_with(\n    ~stringr::str_remove_all(\n      .\n      ,\", percent of all persons age 25 and over|1\"\n      )\n    ) %&gt;% \n  select(-contains(\"Total - Asian/Pacific Islander\")) %&gt;% \n  rename_with(\n    ~stringr::str_remove_all(\n      .\n      ,\"Asian/Pacific Islander - \"\n    )\n  ) %&gt;% \n  tidyr::pivot_longer(-year) %&gt;% \n  tidyr::separate(name, c(\"stat\", \"race\"), sep = \"- \", fill = \"left\") %&gt;% \n  tidyr::replace_na(list(stat = \"Total\")) %&gt;% \n  mutate(\n    across(\n      stat\n      ,~stringr::str_replace(\n        .\n        ,\"Standard Errors\"\n        ,\"Standard Error\"\n      )\n    )\n    ,sex = \"Female\"\n  )\n\nHere we will combine the two data frames and then pivot to our final graphing form.\n\nmale_female_hs_wide &lt;- male_hs %&gt;% \n  bind_rows(female_hs) %&gt;% \n  tidyr::pivot_wider(names_from = stat, values_from = value) %&gt;% \n  janitor::clean_names() %&gt;% \n  mutate(across(total:standard_error, ~.x/100)) %&gt;% \n  mutate(\n    ymax  = total - standard_error\n    ,ymin = total + standard_error\n  )\n\nLets first graph the total for Male and Female graduation rates.\n\ng2 &lt;- male_female_hs_wide %&gt;% \n  filter(race == \"Total\") %&gt;% \n  ggplot(aes(x = year, y = total, group = sex, color = sex)) +\n  geom_ribbon(aes(ymax = ymax, ymin = ymin, fill = sex), alpha = 0.3, color = NA) +\n  geom_line() +\n  scale_x_continuous(breaks = seq(1985,2016,3)) +\n  scale_y_continuous(labels = scales::label_percent()) +\n  scale_color_brewer(palette = \"Dark2\", aesthetics = c(\"color\", \"fill\")) +\n  theme_bw() +\n  labs(\n    x      = NULL\n    ,y     = NULL\n    ,title = glue::glue(\"Percentage of High School Graduates by Sex\"\n                        ,\"\\n\"\n                        ,\"1985 - 2016\")\n    ,color = \"Sex\" \n    ,fill  = \"Sex\"\n  ) +\n  theme(\n    plot.title    = element_text(hjust = 0.5)\n    ,legend.title = element_text(hjust = 0.5)\n  )\n\ng2\n\n\n\n\nNow I am going to graph by Sex and Race.\n\nrace_filter &lt;- c(\"White\", \"Black\", \"Hispanic\")\n\nmake_label &lt;- function(label){\n  # browser()\n  result &lt;- stringr::str_split(label, \"\\\\.\")\n  unlist(lapply(result, function(x) paste(x[2],x[1])))\n}\n\n\ng2 &lt;- male_female_hs_wide %&gt;% \n  filter(race %in% race_filter) %&gt;% \n  ggplot(aes(x = year, y = total, group = interaction(sex,race), color = interaction(sex,race))) +\n  geom_ribbon(aes(ymax = ymax, ymin = ymin, fill = interaction(sex,race)), alpha = 0.3, color = NA) +\n  geom_line() +\n  scale_x_continuous(breaks = seq(1985,2016,3)) +\n  scale_y_continuous(labels = scales::label_percent()) +\n  scale_color_brewer(palette = \"Dark2\", aesthetics = c(\"color\", \"fill\"), labels = make_label) +\n  theme_bw() +\n  labs(\n    x      = NULL\n    ,y     = NULL\n    ,title = glue::glue(\"Percentage of High School Graduates by Race and Sex\"\n                        ,\"\\n\"\n                        ,\"1985 - 2016\")\n    ,color = \"Race & Sex\" \n    ,fill  = \"Race & Sex\"\n  ) +\n  theme(\n    plot.title    = element_text(hjust = 0.5)\n    ,legend.title = element_text(hjust = 0.5)\n  )\n\ng2\n\n\n\n\n\n\nConclusion\nWhile I am sure there is much more that could be done with this data this is where I am going to stop for today. Our graphs clearly show a divide in graduation rates by race, however Sex does not seem to have much of an effect on graduation rates.\n\n\n\n\nReusehttps://creativecommons.org/licenses/by/4.0/CitationBibTeX citation:@online{belanger2021,\n  author = {Belanger, Kyle},\n  title = {TidyTuesday 2021 {Week} 6: {HBCU} {Enrollment}},\n  date = {2021-02-26},\n  langid = {en}\n}\nFor attribution, please cite this work as:\nBelanger, Kyle. 2021. “TidyTuesday 2021 Week 6: HBCU\nEnrollment.” February 26, 2021."
   },
   {
     "objectID": "posts/2020-07-25_diabetes-data-collection-and-cleaning/diabetes-in-rural-north-carolina-data-collection-and-cleaning.html",
@@ -196,10 +56,157 @@
     "text": "Diabetes Percentages\nThe final data set comes from the CDC Diabetes Atlas and contains the estimated prevalence of diabetes in each county of the United States, by year. The data set also includes the upper and lower estimated limits, see the previous post for an explanation of how these numbers are calculated. The data was downloaded by year, and then merged into one data set for the project.\nView greeter script here\n\n\n\nUS Diabetes Data\n\n\nYear\nCounty Fips\nDiabetes Percentage\nDiabetes Lower Limit\nDiabetes Upper Limit\n\n\n\n\n2010\n01001\n11.2\n8.8\n13.9\n\n\n2010\n01003\n10.2\n8.7\n11.9\n\n\n2010\n01005\n13.0\n10.6\n15.9\n\n\n2010\n01007\n10.6\n8.2\n13.3\n\n\n2010\n01009\n12.6\n9.8\n15.7\n\n\n2010\n01011\n16.1\n12.4\n20.4"
   },
   {
-    "objectID": "posts/2021-02-26_tidytuesday-hbcu-enrollment/tidytuesday-2021-week-6-hbcu-enrolment.html",
-    "href": "posts/2021-02-26_tidytuesday-hbcu-enrollment/tidytuesday-2021-week-6-hbcu-enrolment.html",
-    "title": "TidyTuesday 2021 Week 6: HBCU Enrollment",
+    "objectID": "posts/2020-06-22_excel-data-multiple-headers/importing-excel-data-with-multiple-header-rows.html",
+    "href": "posts/2020-06-22_excel-data-multiple-headers/importing-excel-data-with-multiple-header-rows.html",
+    "title": "Importing Excel Data with Multiple Header Rows",
     "section": "",
-    "text": "Introduction\nRecently I was struggling to find a data project to work on, I felt a bit stuck with some of my current projects, so I begun to scour the internet to find something to work on. I stumbled upon (TidyTuesday)[https://github.com/rfordatascience/tidytuesday] a weekly project where untidy data is posted from various sources, for the goal of practicing cleaning and visualizing. There is not right or wrong answers for TidyTuesday, this was exactly what I was looking for! This week (well by the time this was posted, a few weeks ago) the data set was about Historically Black Colleges and Universities. Within the posted data there were a few different data sets, I chose to work with the set dealing with High school Graduation rates, throughout this post I will explain my steps for cleaning and then present a few different graphs. It should also be noted that in the first section my code blocks will build upon themselves, so the same code will be duplicated as I add more steps to it.\n\n\nLoad Data\nIn this first block we will load some required libraries as well as load in the raw data. This dataset contains data for Highschool graduation rates by race. One thing to point out here is the use of import::from(), will its use here is a bit overkill, it was more for my practice. In this case I am importing the function %nin from the Hmisc package, which in the opposite of the function %in% from base R.\n\nlibrary(dplyr)\nlibrary(ggplot2)\n\nimport::from(Hmisc, `%nin%`)\n\nhs_students_raw &lt;- readxl::read_xlsx(\"104.10.xlsx\", sheet = 1)\n\nglimpse(hs_students_raw)\n\nRows: 48\nColumns: 19\n$ Total                                                             &lt;dbl&gt; 1910…\n$ `Total, percent of all persons age 25 and over`                   &lt;dbl&gt; 13.5…\n$ `Standard Errors - Total, percent of all persons age 25 and over` &lt;chr&gt; \"(—)…\n$ White1                                                            &lt;chr&gt; \"—\",…\n$ `Standard Errors - White1`                                        &lt;chr&gt; \"(†)…\n$ Black1                                                            &lt;chr&gt; \"—\",…\n$ `Standard Errors - Black1`                                        &lt;chr&gt; \"(†)…\n$ Hispanic                                                          &lt;chr&gt; \"—\",…\n$ `Standard Errors - Hispanic`                                      &lt;chr&gt; \"(†)…\n$ `Total - Asian/Pacific Islander`                                  &lt;chr&gt; \"—\",…\n$ `Standard Errors - Total - Asian/Pacific Islander`                &lt;chr&gt; \"(†)…\n$ `Asian/Pacific Islander - Asian`                                  &lt;chr&gt; \"—\",…\n$ `Standard Errors - Asian/Pacific Islander - Asian`                &lt;chr&gt; \"(†)…\n$ `Asian/Pacific Islander - Pacific Islander`                       &lt;chr&gt; \"—\",…\n$ `Standard Errors - Asian/Pacific Islander - Pacific Islander`     &lt;chr&gt; \"(†)…\n$ `American Indian/\\r\\nAlaska Native`                               &lt;chr&gt; \"—\",…\n$ `Standard Errors - American Indian/\\r\\nAlaska Native`             &lt;chr&gt; \"(†)…\n$ `Two or more race`                                                &lt;chr&gt; \"—\",…\n$ `Standard Errors - Two or more race`                              &lt;chr&gt; \"(†)…\n\n\nNow we are going to start cleaning the data. First I am going to filter for years 1985 and up, prior to this year the data set is a bit spardic, so to keep it clean I am only going to look at 1985 and up. There are also 3 odd years (19103,19203,19303) that I am not sure what those are so I will remove that data as well.\n\nhs_students &lt;- hs_students_raw %&gt;% \n  filter(Total &gt;= 1985) %&gt;% \n  filter(Total %nin% c(19103, 19203, 19303))\n\nNext I am going to convert all columns to be numeric, because of some blanks in the original import all of the columns read in as characters instead of numeric.\n\nhs_students &lt;- hs_students_raw %&gt;% \n  filter(Total &gt;= 1985) %&gt;% \n  filter(Total %nin% c(19103, 19203, 19303)) %&gt;% \n  mutate(across(everything(), as.numeric))\n\nNext I am going to rename the columns. First I rename the column Total, into year, as this column holds the year! Then I use stringr::str_remove_all to remove the long phrase ‘percent of all persons age 25 and over’, as well as the number 1. For some reason the Black and White columns each have a number 1 at the end, I think this is for some sort of footnote but we will just remove it.\n\nhs_students &lt;- hs_students_raw %&gt;% \n  filter(Total &gt;= 1985) %&gt;% \n  filter(Total %nin% c(19103, 19203, 19303)) %&gt;% \n  mutate(across(everything(), as.numeric)) %&gt;% \n  rename(year = Total) %&gt;% \n  rename_with(\n    ~stringr::str_remove_all(\n      .\n      ,\", percent of all persons age 25 and over|1\"\n      )\n    )\n\nThen I am going to drop the column ‘Total - Asian/Pacific Islander’, each of these races is stored in a seperate column so if I needed the total later for some reason I could calculate it. I am also going to drop the string “Asian/Pacific Islander -”, from the begin of each of those columns, so they will now tell me just which race each column refers too.\n\nhs_students &lt;- hs_students_raw %&gt;% \n  filter(Total &gt;= 1985) %&gt;% \n  filter(Total %nin% c(19103, 19203, 19303)) %&gt;% \n  mutate(across(everything(), as.numeric)) %&gt;% \n  rename(year = Total) %&gt;% \n  rename_with(\n    ~stringr::str_remove_all(\n      .\n      ,\", percent of all persons age 25 and over|1\"\n      )\n    ) %&gt;% \n  select(-contains(\"Total - Asian/Pacific Islander\")) %&gt;% \n  rename_with(\n    ~stringr::str_remove_all(\n      .\n      ,\"Asian/Pacific Islander - \"\n    )\n  )\n\nI now simply pivot the data longer. A nice trick I learned since I want to pivot everything expect the year column is to use the minus sign to select every column expect the year column in the pivot.\n\nhs_students_long &lt;- hs_students %&gt;% \n  tidyr::pivot_longer(-year)\n\nWith the data now in long form I am going to separate the automatically generate name column into two columns titled, stat and race. The data contains both the percent that graduated and the standard error. Then I replace all the NA’s in the stat column with Total, as these are the total percentage and the other rows will be the standard error. Last I dropped the s from standard errors to make it singular.\n\nhs_students_long &lt;- hs_students %&gt;% \n  tidyr::pivot_longer(-year) %&gt;% \n  tidyr::separate(name, c(\"stat\", \"race\"), sep = \"- \", fill = \"left\") %&gt;% \n  tidyr::replace_na(list(stat = \"Total\")) %&gt;% \n  mutate(\n    across(\n      stat\n      ,~stringr::str_replace(\n        .\n        ,\"Standard Errors\"\n        ,\"Standard Error\"\n      )\n    )\n  )\n\nI know pivot the date back to wide form, and use the Janitor package to clean the column names. This puts them in lowercase with _ for spaces.\n\nhs_students_wide &lt;- hs_students_long %&gt;% \n  tidyr::pivot_wider(names_from = stat, values_from = value) %&gt;% \n  janitor::clean_names()\n\nTo make graphing a bit easier with the scales package, I divide both columns by 100. We will see why in the graphs.\n\nhs_students_wide &lt;- hs_students_long %&gt;% \n  tidyr::pivot_wider(names_from = stat, values_from = value) %&gt;% \n  janitor::clean_names() %&gt;% \n  mutate(across(total:standard_error, ~.x/100))\n\nIt’s now time to graph. Notice the use scales::label_percent() as the labels value for the y axis. If the numbers were left as the default values (75 vs 0.75) the percentages would have been 750%, which is obviously very wrong! I also use geom_ribbon to draw the standard error bars around each line. Notice the use of color = NA, by default the ribbon has outlines, I did not like this so doing color = NA turns them off. (It should be noted there are a few other solutions to turning them off but this seemed the easiest to me). Last we see the use of the aesthetics argument in scale_color_brewer. By setting this we match the color and fill to be the same color, without setting this, the colors of the error bars and lines don’t match!\n\nhs_students_wide &lt;- hs_students_wide %&gt;% \n  mutate(\n    ymax  = total - standard_error\n    ,ymin = total + standard_error\n  )\n\ng1 &lt;- hs_students_wide %&gt;% \n  filter(race != \"Total\") %&gt;% \n  ggplot(aes(x = year, y = total, group = race, color = race)) +\n  geom_ribbon(aes(ymax = ymax, ymin = ymin, fill = race), alpha = 0.3, color = NA) +\n  geom_line() +\n  scale_x_continuous(breaks = seq(1985,2016,3)) +\n  scale_y_continuous(labels = scales::label_percent()) +\n  scale_color_brewer(palette = \"Dark2\", aesthetics = c(\"color\", \"fill\")) +\n  theme_bw() +\n  labs(\n    x      = NULL\n    ,y     = NULL\n    ,title = glue::glue(\"Percentage of High School Graduates by Race\"\n                        ,\"\\n\"\n                        ,\"1985 - 2016\")\n    ,color = \"Race\" \n    ,fill  = \"Race\"\n  ) +\n  theme(\n    plot.title    = element_text(hjust = 0.5)\n    ,legend.title = element_text(hjust = 0.5)\n  )\n  \ng1\n\n\n\n\n\n\nLoad Male/Female Data\nNow the file also contains the same information but split by male and female. I am going to load in that data.\n\nmale_hs_raw   &lt;- readxl::read_excel(\"104.10.xlsx\", sheet = 3)\nfemale_hs_raw &lt;- readxl::read_excel(\"104.10.xlsx\", sheet = 5)\n\nHere I will use the same manipulations as above, the only addition is adding a column for sex.\n\nmale_hs &lt;- male_hs_raw %&gt;% \n  filter(Total &gt;= 1985) %&gt;% \n  filter(Total %nin% c(19103, 19203, 19303)) %&gt;% \n  mutate(across(everything(), as.numeric)) %&gt;% \n  rename(year = Total) %&gt;% \n  rename_with(\n    ~stringr::str_remove_all(\n      .\n      ,\", percent of all persons age 25 and over|1\"\n      )\n    ) %&gt;% \n  select(-contains(\"Total - Asian/Pacific Islander\")) %&gt;% \n  rename_with(\n    ~stringr::str_remove_all(\n      .\n      ,\"Asian/Pacific Islander - \"\n    )\n  ) %&gt;% \n  tidyr::pivot_longer(-year) %&gt;% \n  tidyr::separate(name, c(\"stat\", \"race\"), sep = \"- \", fill = \"left\") %&gt;% \n  tidyr::replace_na(list(stat = \"Total\")) %&gt;% \n  mutate(\n    across(\n      stat\n      ,~stringr::str_replace(\n        .\n        ,\"Standard Errors\"\n        ,\"Standard Error\"\n      )\n    )\n    ,sex = \"Male\"\n  )\n\n\nfemale_hs &lt;- female_hs_raw %&gt;% \n  filter(Total &gt;= 1985) %&gt;% \n  filter(Total %nin% c(19103, 19203, 19303)) %&gt;% \n  mutate(across(everything(), as.numeric)) %&gt;% \n  rename(year = Total) %&gt;% \n  rename_with(\n    ~stringr::str_remove_all(\n      .\n      ,\", percent of all persons age 25 and over|1\"\n      )\n    ) %&gt;% \n  select(-contains(\"Total - Asian/Pacific Islander\")) %&gt;% \n  rename_with(\n    ~stringr::str_remove_all(\n      .\n      ,\"Asian/Pacific Islander - \"\n    )\n  ) %&gt;% \n  tidyr::pivot_longer(-year) %&gt;% \n  tidyr::separate(name, c(\"stat\", \"race\"), sep = \"- \", fill = \"left\") %&gt;% \n  tidyr::replace_na(list(stat = \"Total\")) %&gt;% \n  mutate(\n    across(\n      stat\n      ,~stringr::str_replace(\n        .\n        ,\"Standard Errors\"\n        ,\"Standard Error\"\n      )\n    )\n    ,sex = \"Female\"\n  )\n\nHere we will combine the two data frames and then pivot to our final graphing form.\n\nmale_female_hs_wide &lt;- male_hs %&gt;% \n  bind_rows(female_hs) %&gt;% \n  tidyr::pivot_wider(names_from = stat, values_from = value) %&gt;% \n  janitor::clean_names() %&gt;% \n  mutate(across(total:standard_error, ~.x/100)) %&gt;% \n  mutate(\n    ymax  = total - standard_error\n    ,ymin = total + standard_error\n  )\n\nLets first graph the total for Male and Female graduation rates.\n\ng2 &lt;- male_female_hs_wide %&gt;% \n  filter(race == \"Total\") %&gt;% \n  ggplot(aes(x = year, y = total, group = sex, color = sex)) +\n  geom_ribbon(aes(ymax = ymax, ymin = ymin, fill = sex), alpha = 0.3, color = NA) +\n  geom_line() +\n  scale_x_continuous(breaks = seq(1985,2016,3)) +\n  scale_y_continuous(labels = scales::label_percent()) +\n  scale_color_brewer(palette = \"Dark2\", aesthetics = c(\"color\", \"fill\")) +\n  theme_bw() +\n  labs(\n    x      = NULL\n    ,y     = NULL\n    ,title = glue::glue(\"Percentage of High School Graduates by Sex\"\n                        ,\"\\n\"\n                        ,\"1985 - 2016\")\n    ,color = \"Sex\" \n    ,fill  = \"Sex\"\n  ) +\n  theme(\n    plot.title    = element_text(hjust = 0.5)\n    ,legend.title = element_text(hjust = 0.5)\n  )\n\ng2\n\n\n\n\nNow I am going to graph by Sex and Race.\n\nrace_filter &lt;- c(\"White\", \"Black\", \"Hispanic\")\n\nmake_label &lt;- function(label){\n  # browser()\n  result &lt;- stringr::str_split(label, \"\\\\.\")\n  unlist(lapply(result, function(x) paste(x[2],x[1])))\n}\n\n\ng2 &lt;- male_female_hs_wide %&gt;% \n  filter(race %in% race_filter) %&gt;% \n  ggplot(aes(x = year, y = total, group = interaction(sex,race), color = interaction(sex,race))) +\n  geom_ribbon(aes(ymax = ymax, ymin = ymin, fill = interaction(sex,race)), alpha = 0.3, color = NA) +\n  geom_line() +\n  scale_x_continuous(breaks = seq(1985,2016,3)) +\n  scale_y_continuous(labels = scales::label_percent()) +\n  scale_color_brewer(palette = \"Dark2\", aesthetics = c(\"color\", \"fill\"), labels = make_label) +\n  theme_bw() +\n  labs(\n    x      = NULL\n    ,y     = NULL\n    ,title = glue::glue(\"Percentage of High School Graduates by Race and Sex\"\n                        ,\"\\n\"\n                        ,\"1985 - 2016\")\n    ,color = \"Race & Sex\" \n    ,fill  = \"Race & Sex\"\n  ) +\n  theme(\n    plot.title    = element_text(hjust = 0.5)\n    ,legend.title = element_text(hjust = 0.5)\n  )\n\ng2\n\n\n\n\n\n\nConclusion\nWhile I am sure there is much more that could be done with this data this is where I am going to stop for today. Our graphs clearly show a divide in graduation rates by race, however Sex does not seem to have much of an effect on graduation rates.\n\n\n\n\nReusehttps://creativecommons.org/licenses/by/4.0/CitationBibTeX citation:@online{belanger2021,\n  author = {Belanger, Kyle},\n  title = {TidyTuesday 2021 {Week} 6: {HBCU} {Enrollment}},\n  date = {2021-02-26},\n  langid = {en}\n}\nFor attribution, please cite this work as:\nBelanger, Kyle. 2021. “TidyTuesday 2021 Week 6: HBCU\nEnrollment.” February 26, 2021."
+    "text": "Problem\nRecently I tried to important some Microsoft Excel data into R, and ran into an issue were the data actually had two different header rows. The top row listed a group, and then the second row listed a category within that group. Searching goggle I couldn’t really find a good example of what I was looking for, so I am putting it here in hopes of helping someone else!\n\n\nExample Data\nI have created a small Excel file to demonstrate what I am talking about. Download it here. This is the data from Excel. \n\n\nCheck Data\nFirst we will read the file in using the package readxl and view the data without doing anything special to it.\n\nlibrary(readxl)                  # load the readxl library\nlibrary(tidyverse)               # load the tidyverse for manipulating the data\nfile_path &lt;- \"example_data.xlsx\" # set the file path\nds0 &lt;- read_excel(file_path)     # read the file\nds0\n\n# A tibble: 7 × 7\n  Name   `Test 1` ...3  ...4  `Test 2` ...6  ...7 \n  &lt;chr&gt;  &lt;chr&gt;    &lt;chr&gt; &lt;chr&gt; &lt;chr&gt;    &lt;chr&gt; &lt;chr&gt;\n1 &lt;NA&gt;   Run 1    Run 2 Run 3 Run 1    Run 2 Run 3\n2 Max    22       23    24    25       26    27   \n3 Phoebe 34       34    32    34       51    12   \n4 Scamp  35       36    21    22       23    24   \n5 Chance 1234     1235  1236  1267     173   1233 \n6 Aimee  420      123   690   42       45    12   \n7 Kyle   22       23    25    26       67    54   \n\n\n\n\nNew Header Names\n\nStep 1\nFirst lets read back the data, this time however with some options. We will set the n_max equal to 2, to only read the first two rows, and set col_names to FALSE so we do not read the first row as headers.\n\nds1 &lt;- read_excel(file_path, n_max = 2, col_names = FALSE)\nds1\n\n# A tibble: 2 × 7\n  ...1  ...2   ...3  ...4  ...5   ...6  ...7 \n  &lt;chr&gt; &lt;chr&gt;  &lt;chr&gt; &lt;chr&gt; &lt;chr&gt;  &lt;chr&gt; &lt;chr&gt;\n1 Name  Test 1 &lt;NA&gt;  &lt;NA&gt;  Test 2 &lt;NA&gt;  &lt;NA&gt; \n2 &lt;NA&gt;  Run 1  Run 2 Run 3 Run 1  Run 2 Run 3\n\n\n\n\nStep 2\nNow that we have our headers lets first transpose them to a vertical matrix using the base function t(), then we will turn it back into a tibble to allow us to use tidyr fill function.\n\nnames &lt;- ds1 %&gt;%\n  t() %&gt;%       #transpose to a matrix\n  as_tibble()   #back to tibble\nnames\n\n# A tibble: 7 × 2\n  V1     V2   \n  &lt;chr&gt;  &lt;chr&gt;\n1 Name   &lt;NA&gt; \n2 Test 1 Run 1\n3 &lt;NA&gt;   Run 2\n4 &lt;NA&gt;   Run 3\n5 Test 2 Run 1\n6 &lt;NA&gt;   Run 2\n7 &lt;NA&gt;   Run 3\n\n\nNote that tidyr fill can not work row wise, thus the need to flip the tibble so it is long vs wide.\n\n\nStep 3\nNow we use tidyr fill function to fill the NA’s with whatever value it finds above.\n\nnames &lt;- names %&gt;% fill(V1)  #use dplyr fill to fill in the NA's\nnames\n\n# A tibble: 7 × 2\n  V1     V2   \n  &lt;chr&gt;  &lt;chr&gt;\n1 Name   &lt;NA&gt; \n2 Test 1 Run 1\n3 Test 1 Run 2\n4 Test 1 Run 3\n5 Test 2 Run 1\n6 Test 2 Run 2\n7 Test 2 Run 3\n\n\n\n\nStep 4\nThis is where my data differed from many of the examples I could find online. Because the second row is also a header we can not just get rid of them. We can solve this using paste() combined with dplyr mutate to form a new column that combines the first and second column.\n\nnames &lt;- names %&gt;%\n  mutate(\n    new_names = paste(V1,V2, sep = \"_\")\n  )\nnames\n\n# A tibble: 7 × 3\n  V1     V2    new_names   \n  &lt;chr&gt;  &lt;chr&gt; &lt;chr&gt;       \n1 Name   &lt;NA&gt;  Name_NA     \n2 Test 1 Run 1 Test 1_Run 1\n3 Test 1 Run 2 Test 1_Run 2\n4 Test 1 Run 3 Test 1_Run 3\n5 Test 2 Run 1 Test 2_Run 1\n6 Test 2 Run 2 Test 2_Run 2\n7 Test 2 Run 3 Test 2_Run 3\n\n\n\n\nStep 4a\nOne more small clean up task, in the example data the first column header Name, did not have a second label, this has created a name with an NA attached. We can use stringr to remove this NA.\n\nnames &lt;- names %&gt;% mutate(across(new_names, ~str_remove_all(.,\"_NA\")))\nnames\n\n# A tibble: 7 × 3\n  V1     V2    new_names   \n  &lt;chr&gt;  &lt;chr&gt; &lt;chr&gt;       \n1 Name   &lt;NA&gt;  Name        \n2 Test 1 Run 1 Test 1_Run 1\n3 Test 1 Run 2 Test 1_Run 2\n4 Test 1 Run 3 Test 1_Run 3\n5 Test 2 Run 1 Test 2_Run 1\n6 Test 2 Run 2 Test 2_Run 2\n7 Test 2 Run 3 Test 2_Run 3\n\n\n\n\nStep 5\nNow that are new name column is the way we want it, we can use dpylrs pull to return a vector of just that column\n\nnames &lt;-  names %&gt;% pull(new_names)\n\n\n\n\nFinal Data\nNow that we have a vector of column names lets read in the original file using our new names. We set the skip argument to 2, to skip the first two rows, and set col_names equal to our vector of names. Note the last step I used the janitor package to provide names in snake case (the default for the clean names function.)\n\nexample_data &lt;- readxl::read_excel(file_path, col_names = names, skip = 2) %&gt;%\n  janitor::clean_names()\nexample_data\n\n# A tibble: 6 × 7\n  name   test_1_run_1 test_1_run_2 test_1_run_3 test_2_run_1 test_2_run_2\n  &lt;chr&gt;         &lt;dbl&gt;        &lt;dbl&gt;        &lt;dbl&gt;        &lt;dbl&gt;        &lt;dbl&gt;\n1 Max              22           23           24           25           26\n2 Phoebe           34           34           32           34           51\n3 Scamp            35           36           21           22           23\n4 Chance         1234         1235         1236         1267          173\n5 Aimee           420          123          690           42           45\n6 Kyle             22           23           25           26           67\n# ℹ 1 more variable: test_2_run_3 &lt;dbl&gt;\n\n\n\n\nOther Help\nWhile searching for some solutions to my problem I found two good examples, however neither did exactly what I was trying to do.\n\nThis post by Lisa Deburine is pretty close to what I was trying to accomplish and gave me a good starting point. Read it here\nThis post by Alison Hill solves a simlar but slightly different problem. In her data the 2nd row is actually metadata not a second set of headers. Read it here\n\n\n\n\n\nReusehttps://creativecommons.org/licenses/by/4.0/CitationBibTeX citation:@online{belanger2020,\n  author = {Belanger, Kyle},\n  title = {Importing {Excel} {Data} with {Multiple} {Header} {Rows}},\n  date = {2020-06-22},\n  langid = {en}\n}\nFor attribution, please cite this work as:\nBelanger, Kyle. 2020. “Importing Excel Data with Multiple Header\nRows.” June 22, 2020."
+  },
+  {
+    "objectID": "posts/2020-02-10_line-graphs-and-interactivity/line-graphs-and-interactivity.html",
+    "href": "posts/2020-02-10_line-graphs-and-interactivity/line-graphs-and-interactivity.html",
+    "title": "Line Graphs and Interactivity",
+    "section": "",
+    "text": "Today’s post is all about line graphs using both ggplot for a static graph as well as a package called plotly for interactivity (more on this later). The example graph and data is again coming from Tableau for Healthcare, Chapter 10."
+  },
+  {
+    "objectID": "posts/2020-02-10_line-graphs-and-interactivity/line-graphs-and-interactivity.html#load-libraries",
+    "href": "posts/2020-02-10_line-graphs-and-interactivity/line-graphs-and-interactivity.html#load-libraries",
+    "title": "Line Graphs and Interactivity",
+    "section": "Load Libraries",
+    "text": "Load Libraries\nAs always first step is to load in our libraries, I am using quite a few here, some are a bit overkill for this example but I wanted to play around with some fun features today.\n\nlibrary(magrittr) #pipes\nlibrary(ggplot2) #ploting \nlibrary(dplyr)  # data manipulation\nlibrary(tidyr) # tidy data\nlibrary(lubridate) #work with dates\nlibrary(stringr) # manipulate strings\nlibrary(plotly)"
+  },
+  {
+    "objectID": "posts/2020-02-10_line-graphs-and-interactivity/line-graphs-and-interactivity.html#import-data",
+    "href": "posts/2020-02-10_line-graphs-and-interactivity/line-graphs-and-interactivity.html#import-data",
+    "title": "Line Graphs and Interactivity",
+    "section": "Import Data",
+    "text": "Import Data\nNext lets import our data, this week we are using the sheet Flu Occurrence FY2013-2016. I am unsure if this is form a real data set or not but it is good for demonstration purposes! After importing we can glimpse at our data to understand what is contained within.\n\nds &lt;- readxl::read_xlsx(path = \"../2020-01-04_my-start-to-r/Tableau 10 Training Practice Data.xlsx\"\n                        ,sheet = \"05 - Flu Occurrence FY2013-2016\"\n                        )\nds %&gt;% glimpse()\n\nRows: 48\nColumns: 4\n$ Date                                         &lt;dttm&gt; 2012-10-27, 2012-11-24, …\n$ `Tests (+) for Influenza (count)`            &lt;dbl&gt; 995, 3228, 22368, 24615, …\n$ `Total Respiratory Specimens Tested (count)` &lt;dbl&gt; 18986, 24757, 66683, 7561…\n$ `% Tests (+) for Influenza`                  &lt;dbl&gt; 0.05240704, 0.13038737, 0…"
+  },
+  {
+    "objectID": "posts/2020-02-10_line-graphs-and-interactivity/line-graphs-and-interactivity.html#transform-data",
+    "href": "posts/2020-02-10_line-graphs-and-interactivity/line-graphs-and-interactivity.html#transform-data",
+    "title": "Line Graphs and Interactivity",
+    "section": "Transform Data",
+    "text": "Transform Data\nI went a bit overboard today with renaming the variables. I wanted to practice writing a function and while it might not be the prettiest or the best way to do this, it worked for what I was trying to accomplish. Note the use of sapply, which lets us run the function on each column name.\n\nformat_names &lt;- function(x) {\n  #Fucntion to set all names to lower case, and strip unneeded characters\n  x &lt;- tolower(x)\n  x &lt;- str_replace_all(x,c(#set each pattern equal to replacement\n                       \" \"         = \"_\"\n                      ,\"\\\\(\\\\+\\\\)\" = \"pos\"  #regualr experssion to match (+)\n                      ,\"\\\\(\"       = \"\"\n                      ,\"\\\\)\"       = \"\"\n                      ,\"\\\\%\"       = \"pct\"\n                      )\n                  ) \n                }\n\n#run the format name function on all names from DS\ncolnames(ds) &lt;- sapply(colnames(ds),format_names)    \n\nNow is were the fun really starts! For this particular data set there are a couple things we need to add to replicate the example. In the original data set the date is stored with month, day, and year; the day is irrelevant and we need to pull out the month as well as the year. For this we can use the lubridate package, first we pull out the month and set it as a factor. For this example our year actually starts in October, so we set our factor to start at October (10), and end with September (9). We then pull out the year, which presents us with a different problem. Again our year starts in October, instead of January. To solve this I have created a variable called date adjustment, in this column is our month is 10 or greater, we will place a 1, if not a 0. We then set our fiscal year to be the actual year plus the date adjustment, this allows us to have our dates in the right fiscal year. Last the percent column is currently listed as a decimal, so we will convert this to a percentage.\n\n# split date time\nds1 &lt;- ds %&gt;% mutate(\n        #create month column, then set factors and labels to start fiscal year in Oct\n        month = month(ds$date)\n        ,month = factor(month\n                        ,levels = c(10:12, 1:9)\n                        ,labels = c(month.abb[10:12],month.abb[1:9]))\n       ,year = year(ds$date)\n        ,date_adjustment = ifelse(month(ds$date) &gt;= 10, 1,0 )\n        ,fiscal_year = factor(year + date_adjustment)\n        #convert % Pos from decmial to pct\n        ,pct_tests_pos_for_influenza = round(pct_tests_pos_for_influenza * 100, digits = 0)\n        )\n\nds1 %&gt;% glimpse()\n\nRows: 48\nColumns: 8\n$ date                                     &lt;dttm&gt; 2012-10-27, 2012-11-24, 2012…\n$ tests_pos_for_influenza_count            &lt;dbl&gt; 995, 3228, 22368, 24615, 1179…\n$ total_respiratory_specimens_tested_count &lt;dbl&gt; 18986, 24757, 66683, 75614, 5…\n$ pct_tests_pos_for_influenza              &lt;dbl&gt; 5, 13, 34, 33, 23, 17, 11, 6,…\n$ month                                    &lt;fct&gt; Oct, Nov, Dec, Jan, Feb, Mar,…\n$ year                                     &lt;dbl&gt; 2012, 2012, 2012, 2013, 2013,…\n$ date_adjustment                          &lt;dbl&gt; 1, 1, 1, 0, 0, 0, 0, 0, 0, 0,…\n$ fiscal_year                              &lt;fct&gt; 2013, 2013, 2013, 2013, 2013,…"
+  },
+  {
+    "objectID": "posts/2020-02-10_line-graphs-and-interactivity/line-graphs-and-interactivity.html#ggplot",
+    "href": "posts/2020-02-10_line-graphs-and-interactivity/line-graphs-and-interactivity.html#ggplot",
+    "title": "Line Graphs and Interactivity",
+    "section": "GGplot",
+    "text": "GGplot\nThe graph here is pretty straight forward with one exception, group! For this line graph we want ggplot to connect the lines of the same year, if we do not explicitly state this using the group mapping, ggplot will try to connect all the lines together, which of course is not at all what we want!\n\ng1 &lt;- ds1 %&gt;% \n    ggplot(aes(x = month, y = pct_tests_pos_for_influenza, color = fiscal_year\n               ,group = fiscal_year)) +\n  geom_line() +\n  labs(\n    x  = NULL\n    ,y = \"% Tests (+) for Influenza\"\n    ,color = NULL\n    ,title = \"Flu Viral Surveillance: % Respiratory Specimens Positive for Influenza \\nOctober - September \\nFor Flu Seasons 2013 - 2016\"\n  ) +\n  theme_classic() +\n  scale_y_continuous(breaks = seq(0,40,5)) +\n  scale_color_manual(values = c(\"#a6611a\",\"#dfc27d\",\"#80cdc1\",\"#018571\"))\n\ng1"
+  },
+  {
+    "objectID": "posts/2020-02-10_line-graphs-and-interactivity/line-graphs-and-interactivity.html#plotly",
+    "href": "posts/2020-02-10_line-graphs-and-interactivity/line-graphs-and-interactivity.html#plotly",
+    "title": "Line Graphs and Interactivity",
+    "section": "plotly",
+    "text": "plotly\nOne of the nice features of Tableau is the fact the graphs are interactive, while a good graph should speak for itself, end users love pretty things. I have been experimenting with Plotly, which has an open source package for R (as well as many other programming languages!). This example only just scratches the surface, but there will be many more to come!\n\ng2 &lt;- ds1 %&gt;% \n    plot_ly(x = ~month, y = ~pct_tests_pos_for_influenza, type = \"scatter\", mode = \"lines\" \n            ,color = ~fiscal_year\n            ,colors = c(\"#a6611a\",\"#dfc27d\",\"#80cdc1\",\"#018571\")\n            , hoverinfo = 'y') %&gt;% \n    layout(xaxis = list(\n                        title = \"\"\n                    )\n           ,yaxis = list(\n                        title = \"% Tests (+) for Influenza\"\n                    )\n           ,title = \"Flu Viral Surveillance: % Respiratory Specimens Positive for Influenza\"\n           ,legend = list(\n                      x = 100\n                      ,y = 0.5\n                      )   \n           \n           )\n\ng2"
+  },
+  {
+    "objectID": "posts/2020-01-04_my-start-to-r/my-start-to-r.html",
+    "href": "posts/2020-01-04_my-start-to-r/my-start-to-r.html",
+    "title": "My Start to R",
+    "section": "",
+    "text": "Today starts my attempt at sharing my R journey with the world! I have been learning R off and on now since late 2019, I have begun to take it much more serious as I work through my Data Analytics class at UCF. My love for all things numbers and graphs has really blossomed, and I am choosing to share that love with anyone who cares to read. I will not claim to be the best at R, or any programming for that matter, but these are my attempts. Each post in this serious will be replicated a graph created in Tableau from the book Tableau for Healthcare. Todays graph is a simple horizontal bar chart, in transferring to both a new blog site and computer I have unfortunately lost the original bar graph, but trust me the one I created looks just like it.\n\nLoad Libraries\n\nlibrary(tidyr)\nlibrary(magrittr)\nlibrary(ggplot2)\nlibrary(stringr)\nlibrary(dplyr)\n\n\n\nImport Data\n\nds &lt;- readxl::read_excel(\n    path   = \"Tableau 10 Training Practice Data.xlsx\" \n    ,sheet = \"02 - Patient Falls-Single Hosp\"\n    )\n\n\n\nClean Data Names\n\n#should make reusable forumla at later time\nnames(ds) &lt;- tolower(names(ds))\nnames(ds) &lt;- str_replace_all(names(ds),\" \", \"_\")\n\n\n\nConvert Data to ‘Long Form’\n\nds1 &lt;- ds %&gt;% \n  gather(\"patient_falls_no_injury_rate\" , \"patient_falls_with_injury_rate\"\n         ,key   = \"injury\" \n         ,value = \"rate\" ) %&gt;% \n  mutate(injury = (injury == \"patient_falls_with_injury_rate\"))\n\n\n\nGraph 5.1\n\nb1 &lt;- ds %&gt;% \n  ggplot(mapping = aes(x = reorder(type_of_care,total_patient_falls_rate ) , y = total_patient_falls_rate)) +\n  geom_col(fill = \"#2b83ba\") + \n  coord_flip() +\n  scale_y_continuous(breaks = NULL) +\n  theme(axis.ticks = element_blank()) +\n  labs(title = \"Rate of Patient Falls (per 1,000 Pateint Days)\\nby Type of Care for FY2017\"\n      ,x     = NULL\n      ,y     = NULL\n      ) +\n  theme_classic() +\n  geom_text(aes(label = format(total_patient_falls_rate, digits = 2)), nudge_y = -.25, color = \"white\")\n  \nb1\n\n\n\n\n\n\n\n\nReusehttps://creativecommons.org/licenses/by/4.0/CitationBibTeX citation:@online{belanger2020,\n  author = {Belanger, Kyle},\n  title = {My {Start} to {R}},\n  date = {2020-01-24},\n  langid = {en}\n}\nFor attribution, please cite this work as:\nBelanger, Kyle. 2020. “My Start to R.” January 24, 2020."
+  },
+  {
+    "objectID": "blog.html",
+    "href": "blog.html",
+    "title": "Posts",
+    "section": "",
+    "text": "Reflex Testing using Machine Learning in the Clinical Laboratory\n\n\nThis post contains the abstract of my Capstone for the Doctorate of Health Science program at Campbell University.\n\n\n\n\n\n\n\n\n\nOct 12, 2023\n\n\nKyle Belanger\n\n\n\n\n\n\n  \n\n\n\n\nTidyTuesday 2021 Week 6: HBCU Enrollment\n\n\nTidyTuesday 2021 Week 6: HBCU Enrollment. Posts looks at tidying the data ,as well as making some graphs about the data.\n\n\n\n\nTidyTuesday\n\n\n\n\n\n\n\n\n\n\n\nFeb 26, 2021\n\n\nKyle Belanger\n\n\n\n\n\n\n  \n\n\n\n\nConverting From Blogdown to Distill\n\n\nA meta post on transferring from a blogdown to distill blog site\n\n\n\n\nDistill\n\n\n\n\n\n\n\n\n\n\n\nJan 12, 2021\n\n\nKyle Belanger\n\n\n\n\n\n\n  \n\n\n\n\nDiabetes in Rural North Carolina : Data Collection and Cleaning\n\n\nThis is the second post in the series exploring Diabetes in rural North Carolina. This post will explore the data used for this project, from collection, cleaning, and analysis ready data.\n\n\n\n\n\n\n\n\n\nJul 25, 2020\n\n\nKyle Belanger\n\n\n\n\n\n\n  \n\n\n\n\nDiabetes in Rural North Carolina : Exploring Prevalence Trends\n\n\nThis post introduces the exploration of the Diabetes epidemic in North Carolina\n\n\n\n\n\n\n\n\n\nJun 25, 2020\n\n\nKyle Belanger\n\n\n\n\n\n\n  \n\n\n\n\nImporting Excel Data with Multiple Header Rows\n\n\nA solution for importing Excel Data that contains two header rows.\n\n\n\n\n\n\n\n\n\nJun 22, 2020\n\n\nKyle Belanger\n\n\n\n\n\n\n  \n\n\n\n\nBasic Exploration of WHO Tuberculosis Data\n\n\nToday I am going to dive into some real life data from the World Health Organization (WHO), exploring new and relapse cases of Tuberculosis. I clean up the data, and then make a few graphs to explore different variables.\n\n\n\n\n\n\n\n\n\nFeb 13, 2020\n\n\nKyle Belanger\n\n\n\n\n\n\n  \n\n\n\n\nLine Graphs and Interactivity\n\n\nTableau for Healthcare Chapter 10. Static and Interactive examples\n\n\n\n\n\n\n\n\n\nFeb 10, 2020\n\n\nKyle Belanger\n\n\n\n\n\n\n  \n\n\n\n\nFacets and a Lesson in Humility\n\n\nA look at Tableau for Healthcare Chapter 8. Table Lens graph.\n\n\n\n\n\n\n\n\n\nJan 29, 2020\n\n\nKyle Belanger\n\n\n\n\n\n\n  \n\n\n\n\nMy Start to R\n\n\nA short introduction to my blog, and R journey.\n\n\n\n\n\n\n\n\n\nJan 24, 2020\n\n\nKyle Belanger\n\n\n\n\n\n\nNo matching items"
+  },
+  {
+    "objectID": "index.html",
+    "href": "index.html",
+    "title": "About",
+    "section": "",
+    "text": "I am a highly accomplished Medical Technologist with an extensive 14-year track record in the medical industry, consistently demonstrating the ability to effectively bridge the divide between medical professionals and information technologists. Proficient in the application of machine learning techniques to enhance medical data analysis and adept at developing innovative R Shiny apps to streamline healthcare processes and improve patient outcomes."
+  },
+  {
+    "objectID": "index.html#bio",
+    "href": "index.html#bio",
+    "title": "About",
+    "section": "",
+    "text": "I am a highly accomplished Medical Technologist with an extensive 14-year track record in the medical industry, consistently demonstrating the ability to effectively bridge the divide between medical professionals and information technologists. Proficient in the application of machine learning techniques to enhance medical data analysis and adept at developing innovative R Shiny apps to streamline healthcare processes and improve patient outcomes."
+  },
+  {
+    "objectID": "index.html#education",
+    "href": "index.html#education",
+    "title": "About",
+    "section": "Education",
+    "text": "Education\nCampbell University | Buies Creek, NC\nDoctorate of Health Sciences | August 2020 - May 2023\nUniversity of Central Florida | Orlando, FL\nM.S. in Healthcare Informatics | August 2018 - May 2020\nWestern Carolina University | Cullowhee, NC\nB.S. in Clinical Laboratory Science | August 2005 - May 2009"
+  },
+  {
+    "objectID": "index.html#experience",
+    "href": "index.html#experience",
+    "title": "About",
+    "section": "Experience",
+    "text": "Experience\nRoche Diagnositcs | IT Workflow Consultant | Oct 2021 - Present\nRoche Diagnostics | Field Application Specialist | July 2012 - Sept 2021\nCape Fear Valley Hospital | Lead Medical Laboratory Scientist | June 2011 - July 2012\nCape Fear Valley Hospital | Medical Laboratory Scientist | June 2009 - June 2011"
+  },
+  {
+    "objectID": "posts/2020-01-29_facets-and-humility/facets-and-a-lesson-in-humility.html",
+    "href": "posts/2020-01-29_facets-and-humility/facets-and-a-lesson-in-humility.html",
+    "title": "Facets and a Lesson in Humility",
+    "section": "",
+    "text": "Todays post is a lesson in Facets, as well as humility. The task this week was to replicate the graph in Chapter 8 of Tableau for Healthcare in R. The graph in question is called a Table Lens (This is the name the book uses, however I did have trouble finding this name in Google searches), it is a collection of charts with a common theme, this time looking at countries in various WHO regions and some statistics associated with mortality as well as health expenditure. I say this is a lesson in humiltiy as I have read through the excellent book R for Data Science, and yet the idea of faceting a ggplot graph slipped my mind. This ended with hours of trying to find a package in R to line up graphs, and way more time then I care to admit spent on getting things prefect. I did find such a package called cowplots, which can be found here. While this is an excellent package, its use was unecessary and I reverted back to using the excellent facet feature of GGplot, which can be seen below! \n\nLoad Libraries\n\nlibrary(magrittr) #pipes\nlibrary(ggplot2) #ploting \nlibrary(dplyr)\nlibrary(tidyr)\n\n\n\nImport Data\n\nds &lt;- readxl::read_xlsx(path = \"../2020-01-04_my-start-to-r/Tableau 10 Training Practice Data.xlsx\"\n                        ,sheet = \"03 - WHO Life Expect & Mort\"\n                        )\n\n\n\nClean Names and Transform\n\nvarnames &lt;-  c(\"who_region\", \"country\", \"year\" , \"sex\" , \"life_expect_birth\" , \"neo_mort\"\n               ,\"under_five_mort\" , \"health_expenditure\")\nnames(ds) &lt;- varnames\n\n# Order Countries based on Life Expectancy at Birth\n\nds$country &lt;- factor(ds$country, levels = ds$country[order(ds$life_expect_birth)]) \n\n#To \"Long\" Form\n\nds1 &lt;-  ds %&gt;% pivot_longer(5:8)#select columns 5 throuh 8, leave new columns at default names\n\n# Set up labels for Facet, as well as function for Facet Labeller\n\nfacet_labels &lt;-  list(\n\"life_expect_birth\"   = \"Life Expectancy at Birth \"                            \n,\"neo_mort\"           = \"Neonatal Mortality Rate\"             \n,\"under_five_mort\"    = \"Under-Five Mortality Rate\"\n,\"health_expenditure\" = \"Health Expenditure per Capita (US$)\"  )\n\nvariable_labeller &lt;- function(variable,value){\n  return(facet_labels[value])\n}\n\n\n\nGraphs\n\nhightlight_countries &lt;- (c(\"Mauritania\", \"South Africa\")) \n\ng1 &lt;-  ds1 %&gt;% filter(who_region == \"Africa\") %&gt;% \n  mutate(name = factor(name, levels = c(\"life_expect_birth\" , \"neo_mort\"\n               ,\"under_five_mort\" , \"health_expenditure\"))\n         ,highlight = country %in% hightlight_countries) %&gt;% \n  ggplot(aes(x = country, y = value, fill = highlight)) +\n  geom_col(show.legend = FALSE) +\n  coord_flip() +\n  labs(\n    title = \"World Bank Life Expectancy, Neonatal & Under-Five Mortality Rates, and Health Expenditure Analysis\"\n    ,x  = NULL\n    ,y = NULL\n  ) +\n  facet_grid(~name, scales = \"free_x\",labeller = variable_labeller) +\n  theme_bw() +\n  geom_text(aes(label = round(value, 0)), hjust = 0) +\n  scale_y_continuous(expand = expand_scale(mult = c(0,0.2))) +\n  scale_fill_manual(values = c(\"TRUE\" = \"#fc8d59\", \"FALSE\" = \"#2b83ba\"))\ng1\n\n\n\n\n\n\n\n\nReusehttps://creativecommons.org/licenses/by/4.0/CitationBibTeX citation:@online{belanger2020,\n  author = {Belanger, Kyle},\n  title = {Facets and a {Lesson} in {Humility}},\n  date = {2020-01-29},\n  langid = {en}\n}\nFor attribution, please cite this work as:\nBelanger, Kyle. 2020. “Facets and a Lesson in Humility.”\nJanuary 29, 2020."
+  },
+  {
+    "objectID": "posts/2020-02-13_basic-who-TB-data/basic-exploration-of-who-tuberculosis-data.html",
+    "href": "posts/2020-02-13_basic-who-TB-data/basic-exploration-of-who-tuberculosis-data.html",
+    "title": "Basic Exploration of WHO Tuberculosis Data",
+    "section": "",
+    "text": "Today I am going to dive into some real life data from the World Health Organization (WHO), exploring new and relapse cases of Tuberculosis. I clean up the data, and then make a few graphs to explore different variables."
+  },
+  {
+    "objectID": "posts/2020-02-13_basic-who-TB-data/basic-exploration-of-who-tuberculosis-data.html#a-different-way-to-look",
+    "href": "posts/2020-02-13_basic-who-TB-data/basic-exploration-of-who-tuberculosis-data.html#a-different-way-to-look",
+    "title": "Basic Exploration of WHO Tuberculosis Data",
+    "section": "A different way to look",
+    "text": "A different way to look\nCould there be any correlation between a countries population and the amount of TB cases? Maybe its just as simple as having more people means more people to get sick? Lets bring in another data set, again from World Bank Found Here, this contains total population data by country.\n\npop_raw &lt;-  read.csv(\"API_SP.POP.TOTL_DS2_en_csv_v2_713131.csv\"\n                     ,skip = 4)\n#If this looks famialer its because it is, the data set looks very simalar to the GDP data\n#In the future this could be moved to a function to allow cleaning much easier\npop1 &lt;- pop_raw %&gt;% \n  select(-(Indicator.Name:X2012)\n         ,-X2019\n         ,-X) %&gt;% \n  pivot_longer(cols = X2013:X2018\n               ,names_to  = \"year\" \n               ,values_to = \"population\") %&gt;% \n  mutate_if(is.character\n            ,str_remove_all\n            ,pattern = \"X(?=\\\\d*)\")\n\n#now lets combine this into are overall data set\n\nwho_combined &lt;- who_combined %&gt;% \n  mutate(year = as.character(year)) %&gt;% \n  left_join(y = pop1) %&gt;% \n  select(-Country.Name)\n\n#now lets Graph again\n\ng3 &lt;- who_combined %&gt;% \n  filter(str_detect(age,\"014|15plus|u\"),year == 2018) %&gt;% \n  group_by(country) %&gt;% \n  summarise(sum_tb_cases = (sum(values,na.rm = TRUE)/10000)\n            ,population = first(population)/1000000\n            ,who_region = first(g_whoregion)) %&gt;% \n  mutate(\n         label = ifelse((population&gt;250), yes = as.character(country),no = \"\")) %&gt;%\n  ggplot(aes(x = population, y = sum_tb_cases )) +\n  geom_point(aes(color = who_region)) +\n  ggrepel::geom_text_repel(aes(x = population, y = sum_tb_cases, label = label)) +\n  labs(\n    title = \"Total TB Cases by Country compared to Gross Domestic Product (GDP)\"\n    ,x = \"Population (in Millions)\"\n    ,y = \"Total TB Case (per 10,000 cases)\"\n    ,color = \"WHO Region\"\n    ) +\n  theme_bw() \n\n g3 \n\n\n\n\n\nFurther Exploration\nMaybe we are on to something, the more people, the more likely they are to get sick! However India seems to have a very large number of cases so lets break these cases down further by age group for 2018.\n\ng4 &lt;- who_combined %&gt;% \n  filter(year == 2018\n         ,country == \"India\"\n         ,!(str_detect(age,\"15plus|ageunk|u|014\"))\n         ,(str_detect(sex,\"m|f\"))\n         )  %&gt;% \n  mutate(age_range = glue::glue(\"{age_start} -- {age_end}\")) %&gt;% \n  ggplot(aes(x = reorder(age_range, as.numeric(age_start)), y = (values/1000), fill = sex)) +\n  geom_col(position = \"dodge\") +\n  labs(\n    title = \"TB Case in India by age and gender 2018\"\n    ,x    = NULL\n    ,y    = \"Total Cases (per 1000)\"\n    ,fill = \"Gender\") +\n  scale_fill_manual(labels = c(\"Female\",\"Male\"), values = c(\"#e9a3c9\",\"#67a9cf\") )\n  \ng4\n\n\n\n\nThere seems to be a huge spike in cases after adolescences. Females have a sharp decline the older they get, where as male case stay elevated with a slight decrease at 55."
+  },
+  {
+    "objectID": "posts/2020-02-13_basic-who-TB-data/basic-exploration-of-who-tuberculosis-data.html#last-exploration",
+    "href": "posts/2020-02-13_basic-who-TB-data/basic-exploration-of-who-tuberculosis-data.html#last-exploration",
+    "title": "Basic Exploration of WHO Tuberculosis Data",
+    "section": "Last Exploration",
+    "text": "Last Exploration\nLets look at overall cases in India, going back to 1980 and see if there as been any trends. To get these numbers we will go back to our raw data and strip everything out expect the total count\n\ng5 &lt;- who_raw %&gt;% \n  filter(country == \"India\") %&gt;% \n  select(year, c_newinc) %&gt;% \n  ggplot(aes(x = year, y = c_newinc/1000000)) +\n  geom_line() +\n  geom_point() +\n  labs(\n    title = \"New and Relapse Tuberculosis Cases In India \\n1980 -- 2018\"\n    ,x    = NULL\n    ,y    = \"Total Cases (in millions)\") +\n  theme_bw() +\n  theme(plot.title = element_text(hjust = 0.5)) + #center title \n  scale_x_continuous(breaks = seq(1980,2020,5)) +\n  scale_y_continuous(breaks = scales::pretty_breaks(n=10))  #different way to add tick marks\ng5\n\n\n\n\nCases were steadily rising from 1980 to 1990, then suddenly feel off. Starting in the early 2010s there was a sharp increase and the amount of new and relapse cases just keep growing."
+  },
+  {
+    "objectID": "posts/2020-06-25_diabetes-prevalence-in-nc/diabetes-in-rural-north-carolina-exploring-prevalence-trends.html",
+    "href": "posts/2020-06-25_diabetes-prevalence-in-nc/diabetes-in-rural-north-carolina-exploring-prevalence-trends.html",
+    "title": "Diabetes in Rural North Carolina : Exploring Prevalence Trends",
+    "section": "",
+    "text": "Update\n2022-15-03: Since this was posted the CDC has updated how county level diabetes prevalance is calculated. The data presented here is using previous calcualtions and may no longer be correct. More can be read here\n\n\nAbstract\nDiabetes is growing at an epidemic rate in the United States. In North Carolina alone, diabetes and prediabetes cost an estimated $10.9 billion each year (American Diabetes Asssociation, 2015). This post introduces the exploration of the Diabetes epidemic in North Carolina. Through a series of posts this project will examine various public data available on diabetes and explore possible solutions to address the rise of diabetes in North Carolina. This investigation stems from the Capstone project of my Health Care Informatics Masters program. This post will answer the following questions:\n\n\nWhat is the overall trend of diabetes prevalence in the United States?\n\n\n\n\nWhat is the trend of diabetes at a State Level and how does diabetes prevalence vary by state and region?\n\n\n\n\nHow do trends in diabetes prevalence vary across counties of North Carolina?\n\n\n\n\nIn which counties of North Carolina does the largest change in diabetes prevalence occur?\n\n\n\n\nHow does change in diabetes prevalence compare between rural and urban counties?\n\n\n\n\nEnviroment\nThis section contains technical information for deeper analysis and reproduction. Casual readers are invited to skip it.\nPackages used in this report.\n\n\nCode\n# Attach these packages so their functions don't need to be qualified: http://r-pkgs.had.co.nz/namespace.html#search-path\nlibrary(magrittr) # enables piping : %&gt;%\nlibrary(dplyr)    # data wrangling\nlibrary(ggplot2)  # graphs\nlibrary(tidyr)    # data tidying\nlibrary(maps)\nlibrary(mapdata)\nlibrary(sf)\nlibrary(readr)\n\n\nDefinitions of global object (file paths, factor levels, object groups ) used throughout the report.\n\n\nCode\n#set ggplot theme\nggplot2::theme_set(theme_bw())\n\n\n\n\nData\nThe data for this exploration comes from several sources:\n\nThe Diabetes data set for state and county levels were sourced from the US Diabetes Surveillance System; Division of Diabetes Translation - Centers for Disease Control and Prevention. The data was downloaded one year per file, and compiled into a single data set for analysis.\nThe Diabetes data set for National level data were sourced from the CDC’s National Health Interview Survey (NHIS)\nThe list of rural counties was taken from The Office of Rural Health Policy, the list is available here\n\n\n\n\nCode\n# load the data, and have all column names in lowercase\n\nnc_diabetes_data_raw &lt;- read_csv(\"https://raw.githubusercontent.com/mmmmtoasty19/nc-diabetes-epidemic-2020/62bdaa6971fbdff09214de7c013d40122abbe40d/data-public/derived/nc-diabetes-data.csv\") %&gt;% \n  rename_all(tolower)\n\nus_diabetes_data_raw &lt;- read_csv(\"https://github.com/mmmmtoasty19/nc-diabetes-epidemic-2020/raw/62bdaa6971fbdff09214de7c013d40122abbe40d/data-public/raw/us_diabetes_totals.csv\"\n                                 ,skip = 2)\n\nrural_counties &lt;- read_csv(\"https://github.com/mmmmtoasty19/nc-diabetes-epidemic-2020/raw/b29bfd93b20b73a7000d349cb3b55fd0822afe76/data-public/metadata/rural-counties.csv\")\n\ncounty_centers_raw &lt;- read_csv(\"https://github.com/mmmmtoasty19/nc-diabetes-epidemic-2020/raw/b29bfd93b20b73a7000d349cb3b55fd0822afe76/data-public/raw/nc_county_centers.csv\", col_names = c(\"county\", \"lat\",\"long\"))\n\ndiabetes_atlas_data_raw &lt;- read_csv(\"https://raw.githubusercontent.com/mmmmtoasty19/nc-diabetes-epidemic-2020/b29bfd93b20b73a7000d349cb3b55fd0822afe76/data-public/raw/DiabetesAtlasData.csv\"\n                                    ,col_types = cols(LowerLimit = col_skip(), \n                                                     UpperLimit = col_skip(),\n                                                     Percentage = col_double()), skip = 2)\n\n\n\n\n\nCode\n# load in both US State Map and NC County Map\n\nnc_counties_map_raw &lt;- st_as_sf(map(\"county\",region = \"north carolina\", plot = FALSE,fill = TRUE)) %&gt;% \n  mutate_at(\"ID\", ~stringr::str_remove(.,\"north carolina,\"))\n\nstate_map_raw &lt;- st_as_sf(map(\"state\",plot = FALSE,fill = TRUE ))\n\nnc_cities &lt;-  st_as_sf(read_csv(\"https://github.com/mmmmtoasty19/nc-diabetes-epidemic-2020/raw/b29bfd93b20b73a7000d349cb3b55fd0822afe76/data-public/metadata/nc_cities.csv\"),\n                       coords = c(\"long\", \"lat\")\n                       ,remove = FALSE\n                       ,agr = \"constant\"\n                       ,crs = 4326)\n\n\n\n\nData Manipulation\nThe combined data used in this anaylsis can be downloaded here. The only tweaks done here are to combine the rural counties column, and the data for creating maps.\n\nTweaks\n\n\n\nCode\ncounty_centers &lt;- county_centers_raw %&gt;% \n  mutate_all(~stringr::str_replace_all(.,\n                                       c(\"\\\\°\"  = \"\"\n                                         ,\"\\\\+\" = \"\"\n                                         ,\"\\\\–\" = \"-\"\n                                       )\n  ) \n  ) %&gt;%\n  mutate(across(c(\"lat\",\"long\"), ~iconv(.,from = 'UTF-8', to = 'ASCII//TRANSLIT'))\n         ,across(c(\"lat\",\"long\"),~stringr::str_remove_all(.,\"\\\\?\"))) %&gt;% \n  mutate_at(c(\"lat\",\"long\"),as.numeric) %&gt;%\n  mutate(across(\"long\", ~(. * -1))) %&gt;% \n  mutate_at(\"county\", tolower)\n\n\n\n\nus_diabetes_data &lt;- us_diabetes_data_raw %&gt;% \n  filter(Year &gt;= 2000) %&gt;% \n  select( \"Year\",\"Total - Percentage\") %&gt;% \n  rename(year = Year , us_pct = `Total - Percentage`)\n\ndiabetes_atlas_data &lt;- diabetes_atlas_data_raw %&gt;% \n  mutate_at(\"State\", tolower) %&gt;% \n  filter(Year &gt;= 2000)\n\nstate_map_abb &lt;- state_map_raw %&gt;% \n  left_join(read_csv(\"https://github.com/mmmmtoasty19/nc-diabetes-epidemic-2020/raw/b29bfd93b20b73a7000d349cb3b55fd0822afe76/data-public/metadata/state-abb.csv\") %&gt;% \n              mutate_at(\"state\", tolower)\n            ,by = c(\"ID\" = \"state\") )\n\n\n\n\nMerge\n\n\n\nCode\n#join US totals to NC data \n\nnc_diabetes_data &lt;- nc_diabetes_data_raw %&gt;% \n  mutate_at(\"county\", ~stringr::str_replace_all(.,\"Mcdowell\",\"McDowell\")) %&gt;% \n  mutate(\n    rural = county %in% rural_counties$rural_counties\n  ) %&gt;% \n  mutate_at(\"county\",tolower) %&gt;% \n  left_join(us_diabetes_data)\n\n\nnc_counties_map &lt;- nc_counties_map_raw %&gt;% \n  left_join(nc_diabetes_data, by = c(\"ID\" = \"county\")) %&gt;% \n  left_join(county_centers, by = c(\"ID\" = \"county\")) %&gt;% \n  rename(\n    center_long = long\n    ,center_lat = lat)\n\nstate_map &lt;- state_map_abb %&gt;% \n  left_join(diabetes_atlas_data, by = c(\"ID\" = \"State\")) %&gt;% \n  rename_all(tolower)\n\n\n\n\n\nOverall - National Level\n\n\nCode\nus_diabetes_data &lt;- us_diabetes_data %&gt;% \n  mutate(\n    change = lead(us_pct) - us_pct\n    ,change = if_else(change &gt; 0, TRUE, FALSE)\n  ) %&gt;% \n  mutate_at(\"change\", ~stringr::str_replace_na(.,\"NA\"))\n\n\n\no_g1 &lt;- us_diabetes_data %&gt;% \n  ggplot(aes(x = year, y = us_pct)) +\n  geom_line(color= \"#D95F02\") +\n  # geom_line(aes(color = change, group = 1)) +\n  geom_point(shape = 21, size = 3,color= \"#D95F02\") +\n  # geom_point(aes(color = change),shape = 21, size = 3) +\n  scale_color_manual(values = c(\n    \"TRUE\" = \"#D95F02\"\n    ,\"FALSE\" = \"#7570B3\"\n  ), guide = FALSE) +\n  labs(\n    title    = \"Percentage of Diagnosed Diabetes in Adults (18+), National Level\"\n    ,x       = NULL\n    ,y       = NULL\n    ,caption = \"Note: Data from the CDC's National Health Interview Survey (NHIS)\"\n  )\n\no_g1\n\n\n\n\n\nOverall, the national average for diagnosed diabetes sharply rose through the early 2000’s, leveling off around 2010. These numbers however, are estimates based on the self-reported response to the CDC’s National Health Interview Survey, and do not represent the actual confirmed diagnoses. The CDC estimates that 1 in 5 adults have undiagnosed diabetes, therefore the numbers reported by the NHIS are likely to underestimate the true prevalence (Centers for Disease Control and Prevention, 2020).\n\n\nOverall - State Level\nState and County level data on diabetes prevalence are taken from the CDC’s Behavioral Risk Factor Surveillance System (BRFSS). These results are based on the question “Has a doctor, nurse, or other health professional ever told you that you have diabetes?”. Women who only experienced diabetes during pregnancy were excluded from the counts. The BRFSS is an ongoing, monthly telephone survey of the non-institutionalized adults (aged 18 years or older) in each state. The year 2011 saw a major change to the methodology of the survey, which started to include homes without a landline phone. This change was expected to increase coverage of lower income, lower educational levels, and younger age groups, because these groups often exclusively rely on cellular telephones for personal communication.(Pierannunzi et al., 2012)\n\n\nCode\ns_g1 &lt;- state_map %&gt;% \n  st_drop_geometry() %&gt;% \n  ggplot(aes(x = year, y = percentage, color = region)) +\n  geom_line(aes(group = id ),alpha = 0.3,na.rm = TRUE) +\n  geom_smooth(method = \"lm\", se = FALSE) +\n  ggpmisc::stat_poly_eq(formula = y ~ + x ,\n                        aes(label = paste(..eq.label.., ..rr.label.., sep = \"~~~\")), \n                        parse = TRUE) +\n  geom_vline(xintercept = 2011, linetype = \"dashed\", color = \"gray\") +\n  scale_color_brewer(palette    = \"Dark2\"\n                     ,direction = -1\n                     ,labels    = snakecase::to_title_case\n  ) +\n  labs(\n    title    = \"Percentage of Diagnosed Diabetes in Adults (18+) \\nby State and Region\"\n    ,x       = NULL\n    ,y       = NULL\n    ,color   = \"Region\"\n    ,caption = \"Regions from US Census Bureau\"\n  ) \n\ns_g1\n\n\n\n\n\nThe above graph shows diabetes prevalence trends by state, grouped into regions based on the US Census classification regions. While all regions of the United states show positive growth in diabetes prevalence, the south exhibits a slightly higher growth rate, as well as the highest prevalence.\n\n\nCode\ns_g2 &lt;- state_map %&gt;% \n  st_drop_geometry() %&gt;% \n  filter(region == \"south\") %&gt;% \n  mutate_at(\"id\", ~snakecase::to_title_case(.)) %&gt;% \n  ggplot(aes(x = year, y = percentage)) +\n  geom_line(aes(group = id ),na.rm = TRUE, color= \"#D95F02\") +\n  gghighlight::gghighlight(id == \"North Carolina\", label_params = list(vjust = 3)) +\n  scale_y_continuous(breaks = seq(5,13,2)) +\n  scale_x_continuous(minor_breaks = seq(2000,2016,1)) +\n  labs(\n    title    = \"Percentage of Diagnosed Diabetes in Adults (18+) \\nSouth Region\"\n    ,x       = NULL\n    ,y       = NULL\n    ,caption = \"Regions from US Census Bureau\"\n  ) +\n  theme()\n\ns_g2\n\n\n\n\n\nWhen focusing on the south region, North Carolina falls close to the middle of diabetes prevalence.\n\n\nOverall - North Carolina\nWhen examining the trajectory for North Carolina, we can see that it has been consistently higher than national average . We see that in 2016 there was a large spike in diagnosed cases; unfortunately this is the last available year so it is unclear whether the upward trend continues. The graph below compares state-level average to the national average. Notice that the trend line is slightly higher than in the previous graphs: this is due to the age cut offs used for National and State level data vs County Level data. Previous data used 18 years of age as a cutoff for classifying adults, whereas the county level data uses 20. Due to removing 18- and 19-year-olds from the population, who typically have less diagnosed cases of diabetes than those of older ages, the computed prevalence increases slightly.\n\n\nCode\nd1 &lt;- nc_diabetes_data %&gt;% \n  group_by(year) %&gt;% \n  summarise(\n    pct = mean(percentage)\n    ,us_pct = mean(us_pct)\n  ) %&gt;% \n  pivot_longer(\n    cols       = c(\"pct\", \"us_pct\")\n    ,names_to  = \"metric\"\n    ,values_to = \"values\"\n  ) %&gt;% \n  mutate(\n    metric = factor(metric\n                    ,levels = c(\"pct\",\"us_pct\")\n                    ,labels = c(\"NC\", \"National\"))\n  )\n\nnc_g1 &lt;- d1 %&gt;% \n  ggplot(aes(x = year, y = values, color = metric)) +\n  geom_line() +\n  geom_point(shape = 21, size = 3) +\n  geom_vline(xintercept = 2011, linetype = \"dashed\", color = \"gray\") +\n  scale_y_continuous(labels = function(x) paste0(x, \"%\")) +\n  scale_color_brewer(palette = \"Dark2\") +\n  labs(\n    x      = NULL\n    ,y     = NULL\n    ,color = NULL\n    ,title = \"Percent of Adults (20+) with Diagnosed Diabetes\"\n  )\n\nnc_g1 \n\n\n\n\n\nWe see a spike in 2016, the last year for which the data are available. However, we should be careful with our interpretation of this pattern, because the examination of the county-level trajectories reveals an aberration in the trend that requires a more rigorous investigation.\n\n\nCode\nnc_g1a &lt;- nc_diabetes_data %&gt;% \n  ggplot(aes(x = year, y = percentage)) +\n  geom_line(aes(group = county),alpha = 0.4) +\n  labs(\n    x = NULL\n    ,y = NULL\n    ,color = NULL\n  )\n\nnc_g1a\n\n\n\n\n\nWhile all of North Carolina has a higher prevalence than the national average, rural counties have systematically higher prevalence of diabetes than urban counties. Note that after 2011 both Urban and Rural counties break the upward trend exhibited in the previous 5 years. This could be explained by the addition of cell phones to the BRFS Survey as many rural areas are often lower income areas and may only rely on a cell phone for communication. As mentioned previously there is an odd spike in case in 2016 that can’t be explained by current documentation. For the purpose of this evaluation 2016 will be excluded from the county level data since the odd trend can not be explained and no further data is available to determine if this is a real spike or could be attributed to methodology change or data quality.\n\n\nCode\nd2 &lt;- nc_diabetes_data %&gt;% \n  select(-us_pct) %&gt;% \n  mutate(\n    pct_rural  = if_else(rural == TRUE, percentage, FALSE)\n    ,pct_urban = if_else(rural == FALSE, percentage, FALSE)\n  ) %&gt;% \n  select(-countyfips,-percentage) %&gt;% \n  group_by(year) %&gt;% \n  summarise(\n    pct_rural = mean(pct_rural,na.rm = TRUE)\n    ,pct_urban = mean(pct_urban,na.rm = TRUE)\n  ) %&gt;% left_join(us_diabetes_data) %&gt;% \n  pivot_longer(\n    cols       = c(\"us_pct\", \"pct_rural\",\"pct_urban\")\n    ,names_to  = \"metric\"\n    ,values_to = \"value\"\n    ,values_drop_na = TRUE\n  ) %&gt;% \n  mutate(\n    metric = factor(metric,\n                    levels  = c(\"pct_rural\",\"pct_urban\",\"us_pct\")\n                    ,labels = c(\"Rural\",\"Urban\",\"US\")\n    )\n  )\n\nnc_g2 &lt;- d2 %&gt;% ggplot(aes(x = year, y = value, color = metric)) +\n  geom_line() +\n  geom_point(shape = 21, size = 3) +\n  geom_vline(xintercept = 2011, linetype = \"dashed\", color = \"gray\") +\n  scale_y_continuous(labels = function(x) paste0(x, \"%\")) +\n  scale_color_brewer(palette = \"Dark2\") +\n  labs(\n    x      = NULL\n    ,y     = NULL\n    ,color = NULL\n    ,title = \"Percent of Adults (20+) with Diagnosed Diabetes \\nDisplaying Rural vs Urban\"\n  )\n\nnc_g2\n\n\n\n\n\n\n\nBy County - Geographical\nCounty level data first became available in 2004, three years of data is used to arrive at these estimates. For example, the 2006 estimates were computed using the data from 2005, 2006, and 2007 BRFS survey rounds. The county-level estimates were based on indirect model-dependent estimates using Bayesian multilevel modeling techniques(JNK, 2003 ; Barker et al., 2013). This model-dependent approach employs a statistical model that “borrows strength” in making an estimate for one county from BRFSS data collected in other counties and states. Multilevel Binomial regression models with random effects of demographic variables (age 20-44, 45-64, &gt;=65; race/ethnicity; sex) at the county-level were developed. Estimates were adjusted for age to the 2000 US standard population using age groups of 20-44, 45-64, and 65 or older(Klein & Schoenborn, 2001).\n\n\nCode\ng50 &lt;- nc_diabetes_data %&gt;% \n  filter(year &lt; 2015) %&gt;% \n  mutate(\n    rural = factor(rural\n                   ,levels = c(TRUE,FALSE)\n                   ,labels = c(\"Rural\", \"Urban\")\n    )\n  ) %&gt;% \n  ggplot(aes(x = year, y = percentage, color = rural)) +\n  geom_line(aes(group = county),alpha = 0.3) +\n  geom_smooth(aes(group = rural), method = \"loess\", se= FALSE, size = 1.1) +\n  scale_color_brewer(palette = \"Dark2\") +\n  labs(\n    title = \"Percent of Adults (20+) with Diagnosed Diabetes \\nAll North Carolina Counties\"\n    ,x = NULL\n    ,y = NULL\n    ,color = NULL\n  )\n\ng50\n\n\n\n\n\nWhen viewing all county trend lines together, we see that the loess line for both urban and rural follows a similar trend for the time period.\nThe following graphs displays the total estimated prevalence of Diabetes in each off the 100 North Carolina counties. To keep the scaling consistent between the graphs, we binned the estimates into 6 intervals of the same size. Rural counties are highlighted with a stronger border line as well as a letter “R” in respective geographic centers. These graphs allow us to view geographical clusters of diabetes prevalence.\n\n\nCode\nnc_counties_map_binned &lt;- nc_counties_map %&gt;% \n  filter(year &lt; 2015) %&gt;% \n  mutate(\n    bin = dlookr::binning(.$percentage, nbins = 6 ,type = \"equal\")\n    ,bin = forcats::fct_recode(bin\n                               ,\"6.5   - 7.9\"  =  \"[6.5,7.97]\"\n                               ,\"8.0  - 9.4\" =  \"(7.97,9.43]\" \n                               ,\"9.5  - 10.9\" =  \"(9.43,10.9]\" \n                               ,\"11.0 - 12.4\" =  \"(10.9,12.4]\"\n                               ,\"12.5 - 13.8\" =  \"(12.4,13.8]\"  \n                               ,\"13.9 - 15.3\" =  \"(13.8,15.3]\"\n    )\n  )\n\nc_g1 &lt;- nc_counties_map_binned %&gt;% \n  filter(year %in% c(2006,2014)) %&gt;% \n  ggplot() +\n  geom_sf() + #blank geom_sf keeps gridlines from overlapping map\n  geom_sf(aes(fill = bin,color = rural)) +\n  geom_sf(data = nc_cities) +\n  ggrepel::geom_text_repel(data = nc_cities, \n                           aes(x = long, y = lat, label = city)\n                           ,nudge_y = c(-1,1,1,-1,1)\n                           ,nudge_x = c(0,0,0,-1,0)\n  ) +\n  geom_text(data = . %&gt;% filter(rural == TRUE)\n            ,aes(x = center_long, y = center_lat)\n            ,label = \"R\"\n            ,color = \"#696969\"\n  ) +\n  coord_sf(xlim = c(-84.5,-75.5), ylim = c(33.75,37)) +\n  facet_wrap(~year) +\n  scale_fill_viridis_d(alpha = 0.6, direction = -1) +\n  scale_color_manual(\n    values = c(\n      \"FALSE\" = \"gray\"\n      ,\"TRUE\" = \"black\"\n    ),guide = 'none') +\n  labs(\n    title = \"Estimated Diabetes in Adults (20+) by County\"\n    ,fill = \"Percentage\"\n    ,y    = NULL\n    ,x    = NULL\n  ) +\n  theme(\n    panel.background = element_rect(fill = \"aliceblue\")\n    ,panel.grid.major = element_line(color = \"#D4D4D4\", linetype = \"dashed\", \n                                     size = 0.5)\n    ,legend.position = \"bottom\"\n    ,plot.title = element_text(hjust = 0.5)\n  )\n\nc_g1\n\n\n\n\n\nThe following box plot displays the distribution of estimated cases by county from 2006 to 2014. For all years of current data the mean of rural counties is higher then that of their Urban counterparts.\n\n\nCode\nc_g1c &lt;- nc_counties_map %&gt;% \n  mutate(\n    rural = factor(rural\n                   ,levels = c(TRUE,FALSE)\n                   ,labels = c(\"Rural\", \"Urban\")\n    )) %&gt;% \n  filter(year &lt; 2015) %&gt;%\n  ggplot(aes(x = year, y = percentage, group = interaction(year,rural), fill = rural)) +\n  geom_boxplot(alpha = 0.5) +\n  scale_fill_brewer(palette = \"Dark2\") +\n  scale_x_continuous(breaks = seq(2004,2014,2)) +\n  labs(\n    x      = NULL\n    ,y     = NULL\n    ,fill  = NULL\n    ,title = \"Distribution  of Estimated Cases by County 2006 - 2014\"\n  )\n\nc_g1c\n\n\n\n\n\n\n\nBy County - Percent Change\nThe following graphs display the overall change in estimated prevalence between 2006 to 2014.\n\n\nCode\nd3 &lt;- nc_counties_map %&gt;% \n  st_drop_geometry() %&gt;% \n  filter(year %in% c(2006,2014)) %&gt;% \n  select(-countyfips,-us_pct) %&gt;% \n  pivot_wider(names_from = \"year\"\n              ,values_from = \"percentage\") %&gt;% \n  mutate(\n    pct_p  = `2014` - `2006`\n    ,pct_c = ((`2014` - `2006`)/`2006`) * 100\n  ) %&gt;% \n  left_join(nc_counties_map_raw) %&gt;% \n  st_as_sf()\n\n\nc_g4 &lt;- d3 %&gt;% \n  ggplot() +\n  geom_sf() + #blank geom_sf keeps gridlines from overlapping map\n  geom_sf(aes(fill = pct_c ,color = rural)) +\n  geom_sf(data = nc_cities) +\n  ggrepel::geom_text_repel(data = nc_cities, \n                           aes(x = long, y = lat, label = city)\n                           ,nudge_y = c(-1,1,1,-1,1)\n                           ,nudge_x = c(0,0,0,-1,0)\n  ) +\n  geom_text(data = . %&gt;% filter(rural == TRUE)\n            ,aes(x = center_long, y = center_lat)\n            ,label = \"R\"\n            ,color = \"#696969\"\n  ) +\n  # scale_fill_viridis_c(alpha = 0.6, direction = -1) +\n  scale_fill_gradient2(\n    low = \"#d01c8b\"\n    ,mid = \"#f7f7f7\"\n    ,high = \"#4dac26\"\n    ,midpoint = 0\n  ) +\n  scale_color_manual(\n    values = c(\n      \"FALSE\" = \"gray\"\n      ,\"TRUE\" = \"black\"\n    ),guide = 'none') +\n  labs(\n    title = \"Percentage Change of Diagnosed Diabetes 2006-2014\"\n    ,fill = \"Percentage\"\n    ,y    = NULL\n    ,x    = NULL\n  ) +\n  theme(\n    panel.background = element_rect(fill = \"aliceblue\")\n    ,panel.grid.major = element_line(color = \"#D4D4D4\", linetype = \"dashed\", \n                                     size = 0.5)\n  )\n\nc_g4\n\n\n\n\n\nThe following chart displays the density curve of the percentage change for both rural and urban counties. It is notable that the mean of change for Urban counties is actually higher than the mean for rural counties. However, we also see that most change for both regions is positive growth. In fact only 16 rural, and 10 Urban counties experienced negative change in the given time frame. While 35 rural and 34 urban counties experience growth in the same period.\n\n\nCode\nd4 &lt;- d3 %&gt;% \n  st_drop_geometry() %&gt;% \n  mutate(\n    rural = factor(rural\n                   ,levels = c(TRUE,FALSE)\n                   ,labels = c(\"Rural\", \"Urban\")\n    )\n  )\n\n\nmean_d4 &lt;- d4 %&gt;% \n  group_by(rural) %&gt;% \n  summarise(.groups = \"keep\"\n            ,pct_c = mean(pct_c)\n  )\n\ng51 &lt;-  d4 %&gt;% \n  ggplot(aes(x = pct_c, fill = rural, y = ..density.., color = rural)) +\n  geom_histogram(binwidth = 5, position = \"identity\", alpha = 0.3) +\n  geom_density(alpha = 0.5) +\n  facet_wrap(~rural, ncol = 1)  +\n  geom_vline(aes(xintercept = pct_c), data = mean_d4) +\n  geom_text(aes(x = pct_c, y = 0.038, label = round(pct_c, 2))\n            ,data  = mean_d4\n            ,hjust = -0.15\n            ,size  = 5\n            ,color = \"#000000\") +\n  geom_vline(xintercept = 0, linetype = \"dashed\", color = \"#696969\") +\n  scale_color_brewer(palette = \"Dark2\", guide = NULL) +\n  scale_fill_brewer(palette = \"Dark2\", guide = NULL) +\n  labs(\n    x = \"Percentage Change\"\n    ,y = \"Density\"\n    ,fill = NULL\n  )\ng51\n\n\n\n\n\n\n\nConclusion and Next Steps\nThe original hypothesis of this report was that rural counties were growing at a higher rate then there urban counterparts. Through out this post it has been shown that this hypothesis is incorrect, just being a rural county does not indicate diabetes growth, in fact the growth rate throughout North Carolina has been consistent. Further posts will explore other reasons for these trends, as the current post merely explores the trends and differences using data visualizations, a more rigorous and formal evaluation of these comparison is in order.\n\n\nSession information\n===========================================================================\nFor the sake of documentation and reproducibility, the current report was rendered in the following environment. Click the line below to expand.\n\n\nEnvironment \n\n\n\nCode\nif( requireNamespace(\"devtools\", quietly = TRUE) ) {\n  devtools::session_info()\n} else {\n  sessionInfo()\n} \n\n\n─ Session info ───────────────────────────────────────────────────────────────\n setting  value\n version  R version 4.2.1 (2022-06-23 ucrt)\n os       Windows 10 x64 (build 22621)\n system   x86_64, mingw32\n ui       RTerm\n language (EN)\n collate  English_United States.utf8\n ctype    English_United States.utf8\n tz       America/New_York\n date     2023-10-12\n pandoc   3.1.8 @ C:/PROGRA~1/Pandoc/ (via rmarkdown)\n\n─ Packages ───────────────────────────────────────────────────────────────────\n package           * version date (UTC) lib source\n bit                 4.0.4   2020-08-04 [1] CRAN (R 4.2.2)\n bit64               4.0.5   2020-08-30 [1] CRAN (R 4.2.2)\n cachem              1.0.6   2021-08-19 [1] CRAN (R 4.2.2)\n callr               3.7.3   2022-11-02 [1] CRAN (R 4.2.2)\n class               7.3-20  2022-01-16 [2] CRAN (R 4.2.1)\n classInt            0.4-10  2023-09-05 [1] CRAN (R 4.2.3)\n cli                 3.4.1   2022-09-23 [1] CRAN (R 4.2.2)\n colorspace          2.0-3   2022-02-21 [1] CRAN (R 4.2.2)\n confintr            1.0.2   2023-06-04 [1] CRAN (R 4.2.3)\n crayon              1.5.2   2022-09-29 [1] CRAN (R 4.2.2)\n crul                1.4.0   2023-05-17 [1] CRAN (R 4.2.3)\n curl                4.3.3   2022-10-06 [1] CRAN (R 4.2.2)\n DBI                 1.1.3   2022-06-18 [1] CRAN (R 4.2.2)\n devtools            2.4.5   2022-10-11 [1] CRAN (R 4.2.2)\n digest              0.6.30  2022-10-18 [1] CRAN (R 4.2.2)\n dlookr              0.6.2   2023-07-01 [1] CRAN (R 4.2.3)\n dplyr             * 1.1.3   2023-09-03 [1] CRAN (R 4.2.3)\n e1071               1.7-13  2023-02-01 [1] CRAN (R 4.2.3)\n ellipsis            0.3.2   2021-04-29 [1] CRAN (R 4.2.2)\n evaluate            0.21    2023-05-05 [1] CRAN (R 4.2.3)\n extrafont           0.19    2023-01-18 [1] CRAN (R 4.2.2)\n extrafontdb         1.0     2012-06-11 [1] CRAN (R 4.2.0)\n fansi               1.0.3   2022-03-24 [1] CRAN (R 4.2.2)\n farver              2.1.1   2022-07-06 [1] CRAN (R 4.2.2)\n fastmap             1.1.0   2021-01-25 [1] CRAN (R 4.2.2)\n fontBitstreamVera   0.1.1   2017-02-01 [1] CRAN (R 4.2.0)\n fontLiberation      0.1.0   2016-10-15 [1] CRAN (R 4.2.0)\n fontquiver          0.2.1   2017-02-01 [1] CRAN (R 4.2.3)\n forcats             1.0.0   2023-01-29 [1] CRAN (R 4.2.3)\n Formula             1.2-5   2023-02-24 [1] CRAN (R 4.2.2)\n fs                  1.5.2   2021-12-08 [1] CRAN (R 4.2.2)\n gdtools             0.3.3   2023-03-27 [1] CRAN (R 4.2.3)\n generics            0.1.3   2022-07-05 [1] CRAN (R 4.2.2)\n gfonts              0.2.0   2023-01-08 [1] CRAN (R 4.2.3)\n gghighlight         0.4.0   2022-10-16 [1] CRAN (R 4.2.3)\n ggplot2           * 3.4.2   2023-04-03 [1] CRAN (R 4.2.3)\n ggpmisc             0.5.4-1 2023-08-13 [1] CRAN (R 4.2.3)\n ggpp                0.5.4   2023-08-12 [1] CRAN (R 4.2.3)\n ggrepel             0.9.3   2023-02-03 [1] CRAN (R 4.2.3)\n glue                1.6.2   2022-02-24 [1] CRAN (R 4.2.2)\n gridExtra           2.3     2017-09-09 [1] CRAN (R 4.2.2)\n gtable              0.3.3   2023-03-21 [1] CRAN (R 4.2.3)\n hms                 1.1.3   2023-03-21 [1] CRAN (R 4.2.3)\n hrbrthemes          0.8.0   2020-03-06 [1] CRAN (R 4.2.3)\n htmltools           0.5.4   2022-12-07 [1] CRAN (R 4.2.2)\n htmlwidgets         1.6.2   2023-03-17 [1] CRAN (R 4.2.3)\n httpcode            0.3.0   2020-04-10 [1] CRAN (R 4.2.3)\n httpuv              1.6.8   2023-01-12 [1] CRAN (R 4.2.2)\n httr                1.4.6   2023-05-08 [1] CRAN (R 4.2.3)\n inum                1.0-5   2023-03-09 [1] CRAN (R 4.2.3)\n jsonlite            1.8.3   2022-10-21 [1] CRAN (R 4.2.2)\n kableExtra          1.3.4   2021-02-20 [1] CRAN (R 4.2.2)\n KernSmooth          2.23-20 2021-05-03 [2] CRAN (R 4.2.1)\n knitr               1.43    2023-05-25 [1] CRAN (R 4.2.3)\n labeling            0.4.2   2020-10-20 [1] CRAN (R 4.2.0)\n later               1.3.0   2021-08-18 [1] CRAN (R 4.2.2)\n lattice             0.20-45 2021-09-22 [2] CRAN (R 4.2.1)\n libcoin             1.0-10  2023-09-27 [1] CRAN (R 4.2.3)\n lifecycle           1.0.3   2022-10-07 [1] CRAN (R 4.2.2)\n magrittr          * 2.0.3   2022-03-30 [1] CRAN (R 4.2.2)\n mapdata           * 2.3.1   2022-11-01 [1] CRAN (R 4.2.3)\n maps              * 3.4.1   2022-10-30 [1] CRAN (R 4.2.3)\n MASS                7.3-60  2023-05-04 [1] CRAN (R 4.2.3)\n Matrix              1.5-4.1 2023-05-18 [1] CRAN (R 4.2.3)\n MatrixModels        0.5-1   2022-09-11 [1] CRAN (R 4.2.3)\n memoise             2.0.1   2021-11-26 [1] CRAN (R 4.2.2)\n mgcv                1.8-40  2022-03-29 [2] CRAN (R 4.2.1)\n mime                0.12    2021-09-28 [1] CRAN (R 4.2.0)\n miniUI              0.1.1.1 2018-05-18 [1] CRAN (R 4.2.2)\n munsell             0.5.0   2018-06-12 [1] CRAN (R 4.2.2)\n mvtnorm             1.2-2   2023-06-08 [1] CRAN (R 4.2.3)\n nlme                3.1-157 2022-03-25 [2] CRAN (R 4.2.1)\n pagedown            0.20    2022-12-13 [1] CRAN (R 4.2.3)\n partykit            1.2-20  2023-04-14 [1] CRAN (R 4.2.3)\n pillar              1.9.0   2023-03-22 [1] CRAN (R 4.2.3)\n pkgbuild            1.4.2   2023-06-26 [1] CRAN (R 4.2.1)\n pkgconfig           2.0.3   2019-09-22 [1] CRAN (R 4.2.2)\n pkgload             1.3.2   2022-11-16 [1] CRAN (R 4.2.2)\n polynom             1.4-1   2022-04-11 [1] CRAN (R 4.2.3)\n prettyunits         1.1.1   2020-01-24 [1] CRAN (R 4.2.2)\n processx            3.8.1   2023-04-18 [1] CRAN (R 4.2.3)\n profvis             0.3.8   2023-05-02 [1] CRAN (R 4.2.3)\n promises            1.2.0.1 2021-02-11 [1] CRAN (R 4.2.2)\n proxy               0.4-27  2022-06-09 [1] CRAN (R 4.2.3)\n ps                  1.7.5   2023-04-18 [1] CRAN (R 4.2.3)\n purrr               1.0.1   2023-01-10 [1] CRAN (R 4.2.3)\n quantreg            5.95    2023-04-08 [1] CRAN (R 4.2.3)\n R6                  2.5.1   2021-08-19 [1] CRAN (R 4.2.2)\n RColorBrewer        1.1-3   2022-04-03 [1] CRAN (R 4.2.0)\n Rcpp                1.0.9   2022-07-08 [1] CRAN (R 4.2.2)\n reactable           0.4.4   2023-03-12 [1] CRAN (R 4.2.3)\n readr             * 2.1.3   2022-10-01 [1] CRAN (R 4.2.2)\n remotes             2.4.2   2021-11-30 [1] CRAN (R 4.2.2)\n rlang               1.1.0   2023-03-14 [1] CRAN (R 4.2.3)\n rmarkdown           2.22    2023-06-01 [1] CRAN (R 4.2.3)\n rpart               4.1.16  2022-01-24 [2] CRAN (R 4.2.1)\n rstudioapi          0.14    2022-08-22 [1] CRAN (R 4.2.2)\n Rttf2pt1            1.3.12  2023-01-22 [1] CRAN (R 4.2.2)\n rvest               1.0.3   2022-08-19 [1] CRAN (R 4.2.3)\n scales              1.2.1   2022-08-20 [1] CRAN (R 4.2.2)\n sessioninfo         1.2.2   2021-12-06 [1] CRAN (R 4.2.2)\n sf                * 1.0-14  2023-07-11 [1] CRAN (R 4.2.3)\n shiny               1.7.4   2022-12-15 [1] CRAN (R 4.2.1)\n showtext            0.9-6   2023-05-03 [1] CRAN (R 4.2.3)\n showtextdb          3.0     2020-06-04 [1] CRAN (R 4.2.3)\n snakecase           0.11.0  2019-05-25 [1] CRAN (R 4.2.2)\n SparseM             1.81    2021-02-18 [1] CRAN (R 4.2.0)\n stringi             1.7.8   2022-07-11 [1] CRAN (R 4.2.1)\n stringr             1.5.0   2022-12-02 [1] CRAN (R 4.2.3)\n survival            3.3-1   2022-03-03 [2] CRAN (R 4.2.1)\n svglite             2.1.1   2023-01-10 [1] CRAN (R 4.2.2)\n sysfonts            0.8.8   2022-03-13 [1] CRAN (R 4.2.3)\n systemfonts         1.0.4   2022-02-11 [1] CRAN (R 4.2.2)\n tibble              3.2.1   2023-03-20 [1] CRAN (R 4.2.3)\n tidyr             * 1.3.0   2023-01-24 [1] CRAN (R 4.2.3)\n tidyselect          1.2.0   2022-10-10 [1] CRAN (R 4.2.2)\n tzdb                0.3.0   2022-03-28 [1] CRAN (R 4.2.2)\n units               0.8-4   2023-09-13 [1] CRAN (R 4.2.3)\n urlchecker          1.0.1   2021-11-30 [1] CRAN (R 4.2.2)\n usethis             2.2.1   2023-06-23 [1] CRAN (R 4.2.3)\n utf8                1.2.2   2021-07-24 [1] CRAN (R 4.2.2)\n vctrs               0.6.2   2023-04-19 [1] CRAN (R 4.2.3)\n viridisLite         0.4.2   2023-05-02 [1] CRAN (R 4.2.3)\n vroom               1.6.0   2022-09-30 [1] CRAN (R 4.2.2)\n webshot             0.5.4   2022-09-26 [1] CRAN (R 4.2.2)\n withr               2.5.0   2022-03-03 [1] CRAN (R 4.2.2)\n xfun                0.39    2023-04-20 [1] CRAN (R 4.2.3)\n xml2                1.3.5   2023-07-06 [1] CRAN (R 4.2.3)\n xtable              1.8-4   2019-04-21 [1] CRAN (R 4.2.2)\n yaml                2.3.6   2022-10-18 [1] CRAN (R 4.2.1)\n\n [1] C:/Users/belangew/AppData/Local/R/win-library/4.2\n [2] C:/Program Files/R/R-4.2.1/library\n\n──────────────────────────────────────────────────────────────────────────────\n\n\n\n\n\n\n\n\n\n\n\nReferences\n\nAmerican Diabetes Asssociation. (2015). The burden of diabetes in north carolina. http://main.diabetes.org/dorg/PDFs/Advocacy/burden-of-diabetes/north-carolina.pdf\n\n\nBarker, L. E., Thompson, T. J., Kirtland, K. A., Boyle, J. P., Geiss, L. S., McCauley, M. M., & Albright, A. L. (2013). Bayesian small area estimates of diabetes incidence by united states county, 2009. Journal of Data Science, 11(1), 269–280. https://www.ncbi.nlm.nih.gov/pmc/articles/PMC4537395/\n\n\nCenters for Disease Control and Prevention. (2020). National diabetes statistics report. US Department of Health and Human Services. https://www.cdc.gov/diabetes/pdfs/data/statistics/national-diabetes-statistics-report.pdf\n\n\nJNK, R. (2003). Small area estimation. https://onlinelibrary.wiley.com/doi/pdf/10.1002/0471722189.fmatter\n\n\nKlein, R. J., & Schoenborn, C. A. (2001). Age adjustment using the 2000 projected u.s. population. Healthy People 2000 Stat Notes, 20, 1–9.\n\n\nPierannunzi, C., Town, M., Garvin, W., Shaw, F. E., & Balluz, L. (2012). Methodologic changes in the behavioral risk factor surveillance system in 2011 and potential effects on prevalence estimates. Morbidity and Mortality Weekly Report, 61(22), 410–413. https://www.cdc.gov/mmwr/pdf/wk/mm6122.pdf\n\nReusehttps://creativecommons.org/licenses/by/4.0/CitationBibTeX citation:@online{belanger2020,\n  author = {Belanger, Kyle},\n  title = {Diabetes in {Rural} {North} {Carolina} : {Exploring}\n    {Prevalence} {Trends}},\n  date = {2020-06-25},\n  langid = {en}\n}\nFor attribution, please cite this work as:\nBelanger, K. (2020, June 25). Diabetes in Rural North Carolina :\nExploring Prevalence Trends."
+  },
+  {
+    "objectID": "posts/2021-01-12_blogdown-to-distill/creating-a-distill-blog.html",
+    "href": "posts/2021-01-12_blogdown-to-distill/creating-a-distill-blog.html",
+    "title": "Converting From Blogdown to Distill",
+    "section": "",
+    "text": "I have since converted this blog to a quarto blog, but am leaving this post up in case anyone finds it useful"
+  },
+  {
+    "objectID": "posts/2021-01-12_blogdown-to-distill/creating-a-distill-blog.html#code-folding",
+    "href": "posts/2021-01-12_blogdown-to-distill/creating-a-distill-blog.html#code-folding",
+    "title": "Converting From Blogdown to Distill",
+    "section": "Code Folding",
+    "text": "Code Folding\nWhen I converted my blog on 12/30/2020, code folding was not included as an option by default in distill. At that time, an excellent package called Codefolder added the functionality. Since going live with the blog, code folding has been added to distill.1 Code folding is available for either the whole document or individual code sections. The default caption is “Show Code”, but instead of typing code_folding=TRUE, you can provide a string to change the caption.\n\n# Some awesome code \n# That does awesome things"
+  },
+  {
+    "objectID": "posts/2021-01-12_blogdown-to-distill/creating-a-distill-blog.html#customizing-the-home-page",
+    "href": "posts/2021-01-12_blogdown-to-distill/creating-a-distill-blog.html#customizing-the-home-page",
+    "title": "Converting From Blogdown to Distill",
+    "section": "Customizing the Home Page",
+    "text": "Customizing the Home Page\nBy default, a distill blog’s home page will be the blog index page. I chose to edit my home page to be a landing page for myself and then have the blog index as a separate page. When creating a new blog, this is the default YAML header for your index page.\n---\ntitle: \"New Site\"\nsite: distill::distill_website\nlisting: posts\n---\nThe critical piece here is the line site: distill::distill_website. This line is what is needed to render the website. For my home page, I decided to use the package Postcard, which is used to generate simple landing pages. I won’t go into every step as there is already a great post by Alison Hill on how to do that. However, I will point out the most crucial part of the new index page the YAML header needs to contain these two lines.\noutput:\n  postcards::trestles\nsite: distill::distill_website"
+  },
+  {
+    "objectID": "posts/2021-01-12_blogdown-to-distill/creating-a-distill-blog.html#footnotes",
+    "href": "posts/2021-01-12_blogdown-to-distill/creating-a-distill-blog.html#footnotes",
+    "title": "Converting From Blogdown to Distill",
+    "section": "Footnotes",
+    "text": "Footnotes\n\n\nNote that as of publishing, code folding is only available in the development version of distill↩︎"
   }
 ]
\ No newline at end of file
diff --git a/posts/2023-10-12_DHSC_Capstone/index.qmd b/posts/2023-10-12_DHSC_Capstone/index.qmd
new file mode 100644
index 0000000..13acf8b
--- /dev/null
+++ b/posts/2023-10-12_DHSC_Capstone/index.qmd
@@ -0,0 +1,21 @@
+---
+title: "Reflex Testing using Machine Learning in the Clinical Laboratory"
+subtitle: |
+  This post contains the abstract of my Capstone for the Doctorate of Health Science program at
+  Campbell University. 
+date: 2023-10-12
+---
+
+# Full Paper
+
+To view the full paper please go to the following [link](https://kyle-belanger.quarto.pub/reflex-testing-using-machine-learning-in-the-clinical-laboratory/)
+
+# Abstract
+
+**Introduction**: This research study focuses on developing and testing a machine learning algorithm to predict the FT4 result or diagnose hyper or hypothyroidism in clinical chemistry. The goal is to bridge the gap between hard-coded reflex testing and fully manual reflective testing using machine learning algorithms. The significance of this study lies in the increasing healthcare costs, where laboratory services contribute significantly to medical decisions and budgets. By implementing automated reflex testing with machine learning algorithms, unnecessary laboratory tests can be reduced, resulting in cost savings and improved efficiency in the healthcare system.
+
+**Methods:** The study was performed using the Medical Information Mart for Intensive Care (MIMIC) database for data collection. The database consists of de-identified health-related data from critical care units. Eighteen variables, including patient demographics and lab values, were selected for the study. The data set was filtered based on specific criteria, and an outcome variable was created to determine if the Free T4 value was diagnostic. The data handling and modeling were performed using R and R Studio. Regression and classification models were screened using a random grid search to tune hyperparameters, and random forest models were selected as the final models based on their performance. The selected hyperparameters for both regression and classification models are specified.
+
+**Results:** The study analyzed a dataset of 11,340 observations, randomly splitting it into a training set (9071 observations) and a testing set (2269 observations) based on the Free T4 laboratory diagnostic value stratification. Classification algorithms were used to predict whether Free T4 would be diagnostic, achieving an accuracy of 0.796 and an AUC of 0.918. The model had a sensitivity of 0.632 and a specificity of 0.892. The importance of individual analytes was assessed, with TSH being the most influential variable. The study also evaluated the predictability of Free T4 results using regression, achieving a Root Mean Square Error (RMSE) of 0.334. The predicted results had an accuracy of 0.790, similar to the classification model.
+
+**Discussion:** The study found that the diagnostic value of Free T4 can be accurately predicted 80% of the time using machine learning algorithms. However, the model had limitations in terms of sensitivity, with a false negative rate of 16% for elevated TSH results and 20% for decreased TSH results. The model achieved a specificity of 89% but did not meet the threshold for clinical deployment. The importance of individual analytes was explored, revealing unexpected correlations between TSH and hematology results, which could be valuable for future algorithms. Real-world applications could use predictive models in clinical decision-making systems to determine the need for Free T4 lab tests based on predictions and patient signs and symptoms. However, implementing such algorithms in existing laboratory information systems poses challenges.
\ No newline at end of file